<% @Language='vbscript' codepage='65001'%>
<%
Option Explicit
%>
<!-- #include file = "XMLClass.asp" -->
<!-- #include file = "aspJSON1.17.asp" -->
<!-- #include file = "json2.asp" -->
<!-- #include file = "JSON_2.0.4.asp" -->
<!-- #include file = "JSON_UTIL_0.1.1.asp" -->
<%
'###########################################################################################
'프로젝트 관련 페이지 상수 선언
'###########################################################################################
CONST URL_ERROR = "UrlError"
CONST SCREEN_PAGE = "Survey_Out"
CONST CSCREEN_PAGE = "TEST_Survey_Out"
CONST QUOTA_PAGE = "Quota_Out"
CONST ERROR_PAGE = "Survey_Error"
CONST CLOSING_PAGE = "Survey_Close"
CONST SURVEY_PREV = "Survey_Prev_Response"
CONST SURVEY_FINISH = "Survey_End"
CONST SKIN = "BOOT"

'###########################################################################################
'기본 설정 변수 선언
'###########################################################################################
Dim SV_NAME, DB_NAME, UID, PWD							'설문 DB 연결 정보
Dim MAIL_SV, MAIL_ID, MAIL_PW							'메일 정보
Dim DBCONN												'DB 커넥션
Dim TB_NAME,TB_NAME1,TB_NAME2,LI_NAME,Quota_TBName				'테이블 네임
Dim PAGEINFO											'페이지별 데이터 정보 설정
Dim MClick												'마우스 오른쪽버튼 클릭 방지
Dim SurveyCpRight										'페이지 하단 카피라이트 문구
Dim VarList												'변수리스트
Dim SKIN_COLOR										'스킨 컬러
Dim COLOR												'스킨 종류
Dim SITEURL												'기본 URL
Dim DELAYTIME											'기본 버튼 보여주기 지연 시간
Dim LISTKEY												'LISTKEY 고정키

'###########################################################################################
'프로젝트 변수 선언
'###########################################################################################
Dim PROJECTCODE											'프로젝트 코드
Dim PPOINT												'패널 포인트
Dim SURVEYTITLE											'설문조사 명
Dim CLIENTTITLE											'클라이언트 회사명
Dim CLIENTIMAGE											'클라이언트 이미지
Dim SURVEYSTATUS										'설문 상태
Dim GIFT												'경품 정보
Dim QuotaVariable										'쿼터대상 변수 정보
Dim SURVEYENDDATE										'설문 종료일
Dim Quota_Variables										'쿼터변수 정보
Dim PROGRESSBAR											'프로그래스바
Dim TOTALCOUNT											'프로그래스바 페이지수
Dim PVALUE												'프로그레스 바용 변수
Dim LayoutType											'Layout Type
Dim SurveyType											'설문조사 종류	1 패널조사 2 리스트 조사 3 CATI
Dim OUTSURVEY											'패널 대여 여부
Dim ECODE												'에러 코드용 변수
Dim ENUMBER												'에러 코드용 변수
Dim LanCodeValue										'1:USA, 2:Italia, 3:Japan, 4:Korea, 5:Germany, 6:France, 7:Hong Kong, 8:China, 9:Netherlands, 10:Spain, 11:turkey
Dim ERROREMAIL											'에러 발생시 발송될 이메일

Dim OUTURL_COMPLETE
Dim OUTURL_SCREEN
Dim OUTURL_QUOTA

Dim GMIStKey
Dim CATI_CONTENT										'CATI 면접원 내용 입력
Dim CATI_TEXT											'CATI 설문내용
Dim FILEUPLOAD										'파일 업로드 관련
FILEUPLOAD = False

'###########################################################################################
'DATA BASE 설정
'###########################################################################################

Dim CONFIG_DOM
Set CONFIG_DOM = new XMLClass	
		
'Tag 가져오기 (SurveyKey,catiKey)
CONFIG_DOM.LoadHDD("C:\surveyKey.xml")

SV_NAME = CONFIG_DOM.TAGTEXT("DBIP",0)'"192.168.100.8"
DB_NAME = CONFIG_DOM.TAGTEXT("DBName",0)
UID = CONFIG_DOM.TAGTEXT("DBID",0)
PWD = CONFIG_DOM.TAGTEXT("DBPW",0)
MAIL_SV = CONFIG_DOM.TAGTEXT("MAILSERVER",0)
MAIL_ID = CONFIG_DOM.TAGTEXT("MAILID",0)
MAIL_PW = CONFIG_DOM.TAGTEXT("MAILPW",0)

Set CONFIG_DOM = Nothing

'###########################################################################################
'프로젝트 관련정보 설정
'###########################################################################################
PROJECTCODE = "[[!!PROJECTCODE!!]]"
TOTALCOUNT = "[[!!PAGECOUNT!!]]"

Dim PROJECT_DOM
Set PROJECT_DOM = new XMLClass
PROJECT_DOM.LoadHTTP("http://admin.surveymonster.kr/Project/NewProject/XML/" & PROJECTCODE & ".xml")

TB_NAME = "[DAT_" & PROJECTCODE & "]"
TB_NAME1 = ""

Quota_TBNAME = "[Q_" & PROJECTCODE & "]"
LI_NAME = "[LIST_" & PROJECTCODE & "]"

PPOINT			= PROJECT_DOM.TAGTEXT("POINT",0)
GIFT			= ""
SURVEYTITLE		= PROJECT_DOM.TAGTEXT("SUBJECT",0)
SURVEYSTATUS	= PROJECT_DOM.TAGTEXT("STATUS",0)
'SURVEYENDDATE	= Replace(PROJECT_DOM.TAGTEXT("END_DATE",0),"/","-")
SURVEYTYPE		= PROJECT_DOM.TAGTEXT("PROJECT_TYPE",0)
OUTSURVEY		= PROJECT_DOM.TAGTEXT("OUT_STATUS",0)
ERROREMAIL		= PROJECT_DOM.TAGTEXT("VC_Email",0)

OUTURL_COMPLETE = PROJECT_DOM.TAGTEXT("OUTURL_COMPLETE",0)
OUTURL_SCREEN = PROJECT_DOM.TAGTEXT("OUTURL_SCREEN",0)
OUTURL_QUOTA = PROJECT_DOM.TAGTEXT("OUTURL_QUOTA",0)

'Gmi 실사 Study Key
GMIStKey = ""

If OUTSURVEY="" Then OUTSURVEY = "0"
Quota_Variables = ""

'CATI 면접원 INFO 내용
CATI_CONTENT = ""
'CATI 설문 내용
CATI_TEXT = ""

'###########################################################################################
'환경 설정
'LANCODEVALUE = 1:Korea, 2:Italia, 3:Japan, 4:USA, 5:Germany, 6:France, 7:Hong Kong, 8:China, 9:Netherlands, 10:Spain, 11:turkey
'LISTKEY = 리스트에 기본키로 작동할 리스트키를 생성합니다.
'SURVEYSTATUS 3 : 준비중 2 : 진행중 1 : 완료
'SURVEYTYPE 1 : 패널 조사 2 : 리스트 조사 3 : CATI/ CAPI 4 : LOTTE 5 : GMI 6 : HOMEPLUS
'설문 조사 방법별로 기본적으로 스킨을 설정해주는 부분
'DELAYTIME : 버튼을 보여주는 시간을 설정 기본으로 0임
'필요에 따라 동영상이나 시간을 지연시킬 경우 아래 시간을 더 늘려주면 됨
'###########################################################################################
LanCodeValue = "1"

LISTKEY = "[ID]"

SURVEYTYPE = "[[!!SKIN!!]]"
COLOR = "3"

Select Case COLOR
	Case "1"
		SKIN_COLOR = "primary"
	Case "2"
		SKIN_COLOR = "success"
	Case "3"
		SKIN_COLOR = "info"
	Case "4"
		SKIN_COLOR = "warning"
	Case "5"
		SKIN_COLOR = "danger"
	Case "6"
		SKIN_COLOR = "default"
	Case Else
		SKIN_COLOR = "primary"
End Select


CLIENTTITLE	= PROJECT_DOM.TAGTEXT("CLIENT_NM",0)
CLIENTIMAGE = "GLOBAL_LOGO.png"

'트루이즈 연결
If Request("ResType")="TRUIS" Then
	CLIENTTITLE	= "TRUIS"
	CLIENTIMAGE = "TRUIS.gif"
End if	

If Request("ResType")="Research_Panel_Asia" Then
	CLIENTTITLE	= "Research Panel Asia"
	CLIENTIMAGE = "RPA.gif"
End If

If Request("ResType")="Tillion" Then
	CLIENTTITLE	= "Tillion"
	CLIENTIMAGE = "Tillion.gif"
End If

If Request("ResType")="AIP" Then
	CLIENTTITLE	= "AIP"
	CLIENTIMAGE = "AIP.gif"
End If

If Request("ResType")="RPA" Then
	CLIENTTITLE	= "PanelNow"
	CLIENTIMAGE = "RPA.png"
End If

Set PROJECT_DOM = Nothing

DELAYTIME="0"

'###########################################################################################
'기타 정보 설정
'###########################################################################################
PVALUE = Request.Form("PVALUE")
If PVALUE = "" Then PVALUE=1

MClick="oncontextmenu='return false'"
If SURVEYTYPE<>"5" Then
	SurveyCpRight="COPYRIGHT &copy; "& YEAR(NOW) &" <span class='logo'>" & CLIENTTITLE & "</span>  ALL RIGHTS RESERVED."
End if

Dim STARTMSG	'설문 안내 메세지 부분
Dim ENDMSG		'설문 완료 메세지 부분
Dim SORRYMSG	'설문 대상자 아닌경우
Dim PREVMSG		'이미 설문조사에 참여한 경우
Dim QUOTAMSG	'쿼터 대상자가 아닌경우
Dim TESTMSG		'테스트 중 스크린 아웃의 경우
Dim MEDIASORRYMSG	'미디어가 틀린경우

'패널조사
If SURVEYTYPE = "1" Then
	STARTMSG = STARTMSG & "안녕하십니까? <br>온라인 전문 조사 회사인 "&CLIENTTITLE&" 입니다.<br>이번에 저희 회사에서는 [[!!PROJECTTITLE!!]]에 대한 귀하의 의견을 조사하고 있습니다.<br>본 조사 질문의 응답내용은 통계법 제33조에 의거하여 제품이나 서비스 개선 및 개발의 목적으로만 사용될 것이며, 귀하의 신상에 어떠한 불이익도 따르지 않을 것임을 약속 드립니다.<br>바쁘시더라도 잠시 시간을 내셔서 저희 조사에 참여해 주시면 감사하겠습니다.<br><font color='#FF0000'>불성실 응답을 하신 경우 포인트가 지급되지 않는 점 알려드립니다.</font>"
	STARTMSG = STARTMSG & "<br>"

Else
	'클라이언트용 작성
	STARTMSG = STARTMSG & "안녕하십니까? <br> "&CLIENTTITLE&" 입니다.<br>이번에 저희 회사에서는 [[!!PROJECTTITLE!!]]에 대한 귀하의 의견을 조사하고 있습니다.<br>본 조사 질문의 응답내용은 통계법 제33조에 의거하여 제품이나 서비스 개선 및 개발의 목적으로만 사용될 것이며, 귀하의 신상에 어떠한 불이익도 따르지 않을 것임을 약속 드립니다.<br>바쁘시더라도 잠시 시간을 내셔서 저희 조사에 참여해 주시면 감사하겠습니다."
	STARTMSG = STARTMSG & "<br>"
End if

'###########################################################################################
'메세지 창
'###########################################################################################

If SurveyType="5" Then		'GMI
	ENDMSG = "Thank you for participating in the survey."
	SORRYMSG = "Thank you for participating in this study.<br/>Unfortunately you are not eligible for this particular study.</br>However we appreciate that you took the time to participate.</br>We look forward to inviting you to a future study."
	PREVMSG = "Already participated in the survey."
	QUOTAMSG = "Of those that have completed the survey.<br/>Please join the next survey. Thank you."
	TESTMSG = "You have the Screen Out.<br/> Click the OK button again, go back to the previous survey questionnaire can be tested."
Else
	ENDMSG = "설문조사가 완료되었습니다.<br>응답해 주셔서 대단히 감사합니다."
	SORRYMSG = "죄송합니다.<br/>귀하께서는 설문 조사 대상자가 아닙니다.<br/>다음번 조사에 참여 부탁드립니다. 감사합니다."
	PREVMSG = "설문조사에 이미 참여하였습니다.<br/>다음 설문조사에 참여 부탁드립니다.<br/>감사합니다."
	QUOTAMSG = "죄송합니다.<br/>귀하께서는 설문 조사 대상자가 아닙니다.<br/>다음번 조사에 참여 부탁드립니다. 감사합니다."
	TESTMSG = "귀하는 Screen Out 되었습니다.<br/>확인 버튼을 클릭하면 이전 설문으로 돌아가셔서 다시 설문을 테스트 하실 수 있습니다.<br/><br/>You have the Screen Out.<br/> Click the OK button again, go back to the previous survey questionnaire can be tested."
	MEDIASORRYMSG="미디어 음향기기 설정을 확인해 주시기 바랍니다.<br/>설문 조사 메일을 클릭하시면 다시 설문에 참여하실 수 있습니다.<br/>감사합니다."
End if

'###########################################################################################
'폴더 정보 설정
'###########################################################################################

Dim LogFolder,DataFolder,XMLFolder,ERRFolder,CodeLabel,DAT_PATH,ERR_PATH
Dim XMLKeys
XMLKeys = Request.Form("IDKEY")

LogFolder = "./LogData"
DataFolder = "./Data"
DAT_PATH = "./data/"
ERRFolder = "./Error/"

ERR_PATH = ERRFolder & XMLKeys & ".log"
DAT_PATH = DAT_PATH & XMLKeys & ".json"
XMLFolder = "./Data/" & XMLKeys & ".XML"'PanelXMLFolder
CodeLabel = "./CodeLabel/"

%>
