<%

Const ARRAYSPLITTER = "∏"
Const ARRAYSPLITTER1 = "⇔"
Const LABELSPLITTER = "∑"
Const CODESPLITTER = "∮"
Const GROUPSPLITTER = "†"
Const GCODESPLITTER = "‡"
Const DB1STR = "╫"
Const DB2STR = "╬"
Const NONSTR = "Don't know"

'나라별
'영어 - Const NONSTR = "Prefer not to answer"
'독일 - Const NONSTR = "Möchte lieber nicht antworten"
'중국 - Const NONSTR = "不愿回答"

'영어 - Const NONSTR1 = "I don’t do other activities besides the above."
'독일 - Const NONSTR1 = "Ich übe keine Aktivitäten außer den oben genannten aus."
'중국 - Const NONSTR1 = "除了上述活动之外，我不进行其他活动。"

Const ERRORSTR = """[~@\#$^&*\()\-=_']`ㅂㅈㄷㄱㅅㅁㄴㅇㄹㅎㅋㅌㅊㅍㅛㅕㅑㅐㅔㅗㅓㅏㅣㅠㅜㅡ"""

	'###########################################################################################
	'사용자 임의로 저장하는 경우 데이터 변환
	'###########################################################################################
	Function CDAT(dName)
		Dim DTSTR
		DTSTR = Replace(dName,"=",DB1STR)
		DTSTR = Replace(DTSTR,"&",DB2STR)
		CDAT = DTSTR
	End Function

	'###########################################################################################
	'값 찾아서 가져오기
	'###########################################################################################

	Function getXValue(fieldNm)
		Dim uData
		Set uData = new XMLClass

		Dim vData
		If FileChecker(XMLFolder) Then
			uData.Load XMLFolder
		Else
			getXValue = ""
			Set uData = Nothing
			Exit Function
		End If

		getXValue=uData.TagValue(fieldNm)
		Set uData = Nothing

	End Function

	'###########################################################################################
	'URL Redirect
	'###########################################################################################	
	Function call_Url(url,msg)
		Response.Write "<html xmlns='http://www.w3.org/1999/xhtml'>" & vbCRLF
		Response.Write "<head>" & vbCrLF
		Response.Write "<title>" & SurveyTitle & "</title>" & vbCrlf
		Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=utf-8' />" & vbCrlf
		Response.Write "</head>" & vbCrLF
		Response.Write "<script language='javascript'>" & vbCrlf
		Response.Write "<!--" & vbCrlf
	
		if Trim(msg)<>"" Then 
		Response.Write "    alert('" & trim(msg) & "');" & vbCrlf
		end if
		
		Response.Write "    location.replace('" & trim(url) & "');" & vbCrlf	
	
		Response.Write "//-->" & vbCrlf	
		Response.Write "</script>" & vbCrlf	
		Response.Write "</html>"
	End Function


	'###########################################################################################
	'GUID
	'###########################################################################################	
	Function GetGUID()
		Dim tmpTemp
		tmpTemp = ""
		tmpTemp = tmpTemp & Right(String(4,48) & Month(Now()),2)
		tmpTemp = tmpTemp & Right(String(4,48) & Day(Now()),2)
		tmpTemp = tmpTemp & Right(String(4,48) & Hour(Now()),2)
		tmpTemp = tmpTemp & Right(String(4,48) & Minute(Now()),2)
		tmpTemp = tmpTemp & Right(String(4,48) & Second(Now()),2)
		tmpTemp = tmpTemp & RandomNum(0,99999)
		tmpTemp = tmpTemp & Session.SessionID
		GetGUID = tmpTemp
	End Function

	Function LoadSkin(fnName)

		  Dim objStream  
		  Set objStream = CreateObject("ADODB.Stream")
		  With objStream
			.Charset = "utf-8"
			.Type=2
			.mode=3
			.Open
			.loadfromfile Server.Mappath(fnName)
			LoadSkin=.readtext
			.Close
		  End With
		  
		  Set objStream = Nothing

	End Function

	'###########################################################################################
	'메일 발송
	'###########################################################################################
	Function MailSend(FromStr,ToStr,Subject,BodyStr)
		Dim objMail,iConf

		Set objMail=server.CreateObject("CDO.Message")
		Set iConf = objMail.Configuration
		With iConf.Fields
		'.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")       =2
		'.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")      =MAIL_SV
		'.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  =25
		'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")  =1
		'.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")  =MAIL_ID
		'.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")  =MAIL_PW

		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
		'SMTP Port
		.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		'호스트 설정
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
		'Pickup 디렉토리 설정
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\Inetpub\mailroot\Pickup"
		'연결 시간
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30


		.Update
		End with
					
		objMail.To = ToStr
		objMail.From = FromStr
		objmail.Subject = Subject
					
		objmail.htmlBody = BodyStr
		objMail.BodyPart.Charset="utf-8"
		objMail.Send

		Set objMail = Nothing
	End Function	
	
	'###########################################################################################
	'랜덤 난수 발생
	'###########################################################################################		
	Function RandomNum(start,limit)
		Dim Val,MyValue

		if Not IsNumeric(start) Or Not IsNumeric(limit) then
			RandomNum = 0
			Exit Function
		end if

		Randomize 		
		MyValue = Int(limit * Rnd) + start

		RandomNum=MyValue

	End Function

	'###########################################################################################
	'코드의 오른편만 고정 시킴
	'Col 갯수 만큼 오른쪽에서 빼서 랜덤으로 돌리고 보내줌
	'###########################################################################################
	Function RItemFIXED(datArr,Col)
		Dim KEYIDV
		Dim XV,ir

		If IsArray(datArr)=False Then	'배열이 아닌 경우 Null 을 보내줌
			RItemFIXED = Null
			Exit Function
		End If

		If UBound(datArr)=0 Then		'배열 길이가 1인경우 동일한 배열을 보내줌
			RItemFIXED = datArr
			Exit Function
		End If
		
		XV = ""

		For ir=0 To UBound(datArr)-Col
			XV = XV & datArr(ir) & ARRAYSPLITTER1
		Next

'		XV = Left(XV,Len(XV)-1)

		Dim RV
		
		RV = RandomArray(Split(XV,ARRAYSPLITTER1))
		XV = ""

		For ir=0 To UBound(RV)-1
			XV = XV & RV(ir) & ARRAYSPLITTER1
		Next

		For ir=UBound(RV) To UBound(datArr)
			XV = XV & datArr(ir) & ARRAYSPLITTER1
		Next

		XV = Left(XV,Len(XV)-1)

		RItemFIXED = Split(XV,ARRAYSPLITTER1)
		
	End Function

	'###########################################################################################
	'코드의 왼쪽편만 고정 시킴
	'Col 갯수 만큼 왼쪽에서 빼서 랜덤으로 돌리고 보내줌
	'###########################################################################################
	Function LItemFIXED(datArr,Col)
		Dim KEYIDV
		Dim XV,ir

		If IsArray(datArr)=False Then	'배열이 아닌 경우 Null 을 보내줌
			LItemFIXED = Null
			Exit Function
		End If

		If UBound(datArr)=0 Then		'배열 길이가 1인경우 동일한 배열을 보내줌
			LItemFIXED = datArr
			Exit Function
		End If
		
		XV = ""

		For ir=col To UBound(datArr)
			XV = XV & datArr(ir) & ARRAYSPLITTER1
		Next

'		XV = Left(XV,Len(XV)-1)

		Dim RV

		RV = RandomArray(Split(XV,ARRAYSPLITTER1))
		XV = ""

		For ir=0 To Col-1
			XV = XV & datArr(ir) & ARRAYSPLITTER1
		Next

		For ir=0 To UBound(RV)-1
			If VarType(RV(ir))<>0 And VarType(RV(ir))<>1 Then
				XV = XV & RV(ir) & ARRAYSPLITTER1
			End IF
		Next

		XV = Left(XV,Len(XV)-1)

		LItemFIXED = Split(XV,ARRAYSPLITTER1)
		
	End Function

	'###########################################################################################
	'랜덤 배열 위치 변경
	'무조건 섞는 경우 사용
	'###########################################################################################
	Function RandomArray(rndArray)

		Dim start
		Dim ir
		Dim temp
		Dim rArray

		If UBound(rndArray)=1 Then
			RandomArray = rndArray
			Exit Function
		End If
		
		rArray = ""

		For ir=0 to uBound(rndArray)
			If VarType(rndArray(ir))<>0 And VarType(rndArray(ir))<>1 And rndArray(ir)<>"" Then
				start = RandomNum(1,ubound(rndArray))
				temp = "##" & rndArray(start-1)
					
				If InStr(rArray,temp & ARRAYSPLITTER1)<1 Then
					rArray = rArray & temp & ARRAYSPLITTER1
				Else
					ir=ir-1
				End If
			End IF
		Next

		rArray = Replace(rArray,"##","")
		
		RandomArray = Split(rArray,ARRAYSPLITTER1)

	End Function

	'###########################################################################################
	'에러 메일 발송
	'###########################################################################################
	Private Sub ErrorMail(er)
		Dim ErrBody
		ErrBody = LoadSkin("./SKIN/Error.htm")
		ErrBody = Replace(ErrBody,"##PROJECTTITLE##",SURVEYTITLE)
		ErrBody = Replace(ErrBody,"##PROJECTCODE##",PROJECTCODE)
		ErrBody = Replace(ErrBody,"##PAGE##",Request.Form("PageName"))
		ErrBody = Replace(ErrBody,"##ERKEY##",Request.Form("IDKey"))
		ErrBody = Replace(ErrBody,"##CODE##",er.Description)
		ErrBody = Replace(ErrBody,"##NUMBER##",er.Number)

		MailSend "system@survey.kr","wookim.opr@gmail.com;" & ERROREMAIL ,"Error Message",ErrBody

	End Sub
	'###########################################################################################
	'값 찾아서 가져오기
	'###########################################################################################
	Function getJValue(fieldNm)
		Dim uData
		Set uData = New aspJSON

		Dim vData
		If FileChecker(DAT_PATH) Then
			uData.loadJSON(ReadUTF_File(DAT_PATH))
		Else
			getJValue = ""
			Set uData = Nothing
			Exit Function
		End If

		getJValue=uData.data(fieldNm)
		Set uData = Nothing

	End Function

	'###########################################################################################
	'JSON값 찾아서 가져오기
	'###########################################################################################
	Function getValue(fieldNm)
		getValue = getJValue(fieldNm)
	End Function


	'###########################################################################################
	'응답한 값에 따라 라벨을 만들어서 가져옴
	'LvData : 코드나 속성 정보
	'VA : 해당 변수명 "," 로 구분
	'###########################################################################################

		Function getRESLabelCount(LVData,VA)
		Dim XArray,RArray,CARDITEM
		Dim RV,rCnt,tCod
		
		SET CARDITEM = server.CreateObject ("scripting.dictionary") 

		XArray = Split(LVData,LABELSPLITTER)
		RV = ""
		For rCnt=0 To UBound(XArray)
			If VarType(XArray(rCnt))<>0 And VarType(XArray(rCnt))<>1 Then
				tCod = Split(XArray(rCnt),CODESPLITTER)
				CARDITEM.ADD CStr(tCod(0)),XArray(rCnt)			
			End If
		Next

		RArray = Split(VA,",")

		Dim RC
		RC = 0

		For rCnt=0 To UBound(RArray)
			If VarType(CARDITEM(CStr(getValue(RArray(rCnt)))))<>0 And VarType(CARDITEM(CStr(getValue(RArray(rCnt)))))<>1 Then
				RC = RC +1
			End IF
		Next


		getRESLabelCount = RC
		
	End Function

	Function getRESLabel(LVData,VA)
		Dim XArray,RArray,CARDITEM
		Dim RV,rCnt,tCod
		
		SET CARDITEM = server.CreateObject ("scripting.dictionary") 

		XArray = Split(LVData,LABELSPLITTER)
		RV = ""
		For rCnt=0 To UBound(XArray)
			If VarType(XArray(rCnt))<>0 And VarType(XArray(rCnt))<>1 Then
				tCod = Split(XArray(rCnt),CODESPLITTER)
				CARDITEM.ADD CStr(tCod(0)),XArray(rCnt)			
			End If
		Next

		RArray = Split(VA,",")

		For rCnt=0 To UBound(RArray)
			If VarType(CARDITEM(CStr(getValue(RArray(rCnt)))))<>0 And VarType(CARDITEM(CStr(getValue(RArray(rCnt)))))<>1 Then
				RV = RV & CARDITEM(CStr(getValue(RArray(rCnt)))) & LABELSPLITTER
			End IF
		Next

		If RV<>"" Then
			RV = Left(RV,Len(RV)-1)
		End If

		getRESLabel = RV
		
	End Function

	'###########################################################################################
	'응답한 값을 제외하고 라벨을 만들어서 가져옴
	'LvData : 코드나 속성 정보
	'VA : 해당 변수명 "," 로 구분
	'###########################################################################################
	Function getREVLabel(LVData,VA)
		Dim XArray,xCnt,RArray
		Dim rCnt,tCod,tValue,dFlag
		RArray = Split(VA,",")
		XArray = Split(LVData,LABELSPLITTER)

		tValue = ""

		For rCnt=0 To UBound(RArray)
			If VarType(RArray(rCnt))<>0 And VarType(RArray(rCnt))<>1 Then
				RArray(rCnt) = getJValue(RArray(rCnt))
			End IF
		Next

		For rCnt=0 To UBound(XArray)
			dFlag = true
			If VarType(XArray(rCnt))<>0 And VarType(XArray(rCnt))<>1 Then
				For xCnt=0 To UBound(RArray)
					If VarType(RArray(xCnt))<>0 And VarType(RArray(xCnt))<>1 Then
						If RArray(xCnt)=Split(XArray(rCnt),CODESPLITTER)(0) Then
							dFlag = False
							xCnt = UBound(RArray)+1
						End If
					End If
				Next

				If dFlag = True Then
					tValue = tValue & XArray(rCnt) & LABELSPLITTER
				End IF
			End IF
		Next
		
		If Right(tValue,1)=LABELSPLITTER Then
			tValue = Left(tValue,Len(tValue)-1)
		End IF
		getREVLabel = tValue
	End Function 

	'###########################################################################################
	'해당 Code의 라벨값을 가져옴
	'###########################################################################################
	Function getCODValue(VARName,CValue)
		Dim cdpath,obj,thisObj,rValue
		cdpath = CodeLabel

		Dim uData
		Set uData = New aspJSON

		Dim vData
		If FileChecker(cdpath & VARName & "_COD.json") Then
			uData.loadJSON(ReadUTF_File(cdpath & VARName & "_COD.json"))
		Else
			getCODValue = ""
			Set uData = Nothing
			Exit Function
		End If

		rValue = ""
		For Each obj In uData.data
			Set thisObj = udata.data(obj)
			If CStr(thisObj.item("code"))=CStr(CValue) Then
				rValue = thisObj.item("text")
				Exit For
			End IF
		Next

		If rValue="" Then
			getCODValue= "[" & VARNAME & " 응답]"
		Else
			getCODValue=rValue
		End IF
		Set uData = Nothing

	End Function

	'###########################################################################################
	'해당 속성의 라벨 값을 가져옴
	'###########################################################################################
	Function getATTValue(VARName,CValue)
		Dim cdpath,obj,thisObj,rValue
		cdpath = CodeLabel

		Dim uData
		Set uData = New aspJSON

		Dim vData
		If FileChecker(cdpath & VARName & "_ATT.json") Then
			uData.loadJSON(ReadUTF_File(cdpath & VARName & "_ATT.json"))
		Else
			getATTValue = ""
			Set uData = Nothing
			Exit Function
		End If

		rValue = ""
		For Each obj In uData.data
			Set thisObj = udata.data(obj)
			If CStr(thisObj.item("code"))=CStr(CValue) Then
				rValue = thisObj.item("text")
				Exit For
			End IF
		Next

		If rValue="" Then
			getATTValue = "[" & VARNAME & " 응답]"
		Else
			getATTValue =rValue
		End IF

		Set uData = Nothing

	End Function

	'###########################################################################################
	'응답 값의 Label을 가져옴
	'기본은 COD 만 있음
	'###########################################################################################
	Function getRESValue(VARName)
		Dim ResV

		ResV = getJValue(VARName)

		getRESValue = getCODValue(VARName,ResV)

	End Function

	'###########################################################################################
	'makeItem
	'###########################################################################################
	'사용방법
	'Call QuestionMultiCNT(VARS,CODES,QUESTION,3,2,HTMLSCRIPT,JSCRIPT)
	'HTMLSCRIPT = Replace(HTMLSCRIPT,"[$_STITEM_$]",makeItem("Front_1_A.jpg,Front_1_B.jpg,Front_1_C.jpg,Front_1_D.jpg",getXValue("MQ1"),"LIKE"))

	Function makeItem(IMAGES,SELNUM,TEXT)
	
		Dim TableBody,ImageArray,tCount,Twidth
		TableBody = ""
		ImageArray = Split(IMAGES,",")
		TWidth = FormatNumber(CDbl(100/(UBound(ImageArray)+1)),2)

		TableBody = TableBody & "<table id='V_table' class='attab01' cellpadding='0' cellspacing='0' border='0'>" & vbCrLF
		TableBody = TableBody & "<colgroup>" & vbCrLF
		For tCount=0 To UBound(ImageArray)
			TableBody = TableBody & "	<col width="""&TWidth&"%""/>" & vbCrLF
		Next
		TableBody = TableBody & "</colgroup>" & vbCrLF
		TableBody = TableBody & "<tr>" & vbCrLF
		For tCount=0 To UBound(ImageArray)
			TableBody = TableBody & "<th style='text-align:center;background:#fff;'>"&vbCrLF
			TableBody = TableBody & "	<img src=""./media/"&ImageArray(tCount)&""" alt=''/>"&vbCrLF
			TableBody = TableBody & "</th>"&vbCrLF
		Next
		TableBody = TableBody & "</tr>" & vbCrLF
		TableBody = TableBody & "<tr>" & vbCrLF
		For tCount=0 To UBound(ImageArray)
			TableBody = TableBody & "<td style='text-align:center;background:#fff;'>"&vbCrLF
			If (tCount+1)=CInt(SELNUM) Then
				TableBody = TableBody & "	<b><font color='red'>" & TEXT & "</font></b>"&vbCrLF
			Else
				TableBody = TableBody & "&nbsp;" & vbCrLF
			End IF
			TableBody = TableBody & "</td>"&vbCrLF
		Next
		TableBody = TableBody & "</tr>" & vbCrLF
		TableBody = TableBody & "</table>"&vbCrLF
		makeItem = TableBody

	End Function

	Function makeItem2(IMAGES,SELNUM,TEXT,COL)
	
		Dim TableBody,ImageArray,tCount,Twidth
		Dim EStr,DStr,XStr,mxCOL,colCnt

		mxCOL = CLng(COL)
		colCnt=1

		TableBody = ""
		ImageArray = Split(IMAGES,",")
		TWidth = FormatNumber(CDbl(100/CLng(COL)),2)

		TableBody = TableBody & "<table id='V_table' class='attab01' cellpadding='0' cellspacing='0' border='0'>" & vbCrLF
		TableBody = TableBody & "<colgroup>" & vbCrLF
		For tCount=1 To CLng(COL)
			TableBody = TableBody & "	<col width="""&TWidth&"%""/>" & vbCrLF
		Next
		TableBody = TableBody & "</colgroup>" & vbCrLF
'		TableBody = TableBody & "<tr>" & vbCrLF

		DStr = ""
		EStr = ""

		For tCount=0 To UBound(ImageArray)

			EStr = EStr & "<th style='text-align:center;background:#fff;'>"&vbCrLF
			EStr = EStr & "	<img src=""./media/"&ImageArray(tCount)&""" alt=''/>"&vbCrLF
			EStr = EStr & "</th>"&vbCrLF

			DStr = DStr & "<td style='text-align:center;background:#fff;'>"&vbCrLF
			If (tCount+1)=CInt(SELNUM) Then
				DStr = DStr & "	<b><font color='red'>" & TEXT & "</font></b>"&vbCrLF
			Else
				DStr = DStr & "&nbsp;" & vbCrLF
			End IF
			DStr = DStr & "</td>"&vbCrLF

			If colCnt=mxCOL Then
				XSTR = XSTR & "					<tr>" & vbCRLF
				XSTR = XSTR & EStr
				XSTR = XSTR & "					</tr>" & vbCRLF
				XSTR = XSTR & "					<tr>" & vbCRLF
				XSTR = XSTR & DStr
				XSTR = XSTR & "					</tr>" & vbCRLF
				ESTR = ""
				DSTR = ""
				colCnt=1
			Else
				colCnt=colCnt+1
			End If

		Next

		If ESTR<>"" AND DSTR<>"" Then
			XSTR = XSTR & "					<tr>" & vbCRLF
			XSTR = XSTR & EStr & DSTR
			XSTR = XSTR & "					</tr>" & vbCRLF
		End If
		
		TableBody = TableBody & XStr
		TableBody = TableBody & "<tr>" & vbCrLF

		For tCount=0 To UBound(ImageArray)
		Next

'		TableBody = TableBody & "</tr>" & vbCrLF
		TableBody = TableBody & "</table>"&vbCrLF
		makeItem2 = TableBody

	End Function

	'###########################################################################################
	'FKey 만들기
	'###########################################################################################			
	Function MakeFKey()
		Dim Q_SQL
		Dim QRs
		
		Q_SQL = "SELECT IDX FROM " & TB_NAME & " WHERE [KEY]='" & Request("IDKey") & "'"
			
		Set QRs=Server.CreateObject("ADODB.RecordSet")
		
		DBConnect()
		QRS.Open Q_SQL,DBConn,3,1,1
		
		If Qrs.Eof or Qrs.Bof then
			MakeFKey=""
		Else
			If Request("ResType")="PANEL" Then
				MakeFKey =  (10000)+QRS(0)
			Else
				MakeFKey =  (20000)+QRS(0)
			End If
		End If
		
		QRs.Close
		DBClose()
	
	End Function

	'###########################################################################################
	'IDKey 검색
	'###########################################################################################

	Function SearchIDKey(KeyVal)
		Dim Q_SQL
		Dim QRs

		DBConnect()
		Q_SQL = "SELECT [KEY] FROM " & TB_NAME & " WHERE [FKey]='" & KeyVal & "'"
			
		Set QRs=Server.CreateObject("ADODB.RecordSet")
		
		QRS.Open Q_SQL,DBConn,3,1,1
		
		If Qrs.Eof or Qrs.Bof then
			SearchIDKey = ""
		Else
			SearchIDKey = QRs(0)
		End If
		
		QRs.Close

		DBClose()

	End Function


	'###########################################################################################
	'
	'경고창 언어 가져오기.
	'###########################################################################################

	Function LangQuestion(Code)
		'한국어
		If LanCodeValue = "1" Then
			Select Case Code
				Case "1" : LangQuestion = "질문에 응답해 주십시오."
				Case "2" : LangQuestion = "내용을 좀 더 자세히 응답해 주십시오."
				Case "3" : LangQuestion = "특수문자는 입력하실 수 없습니다."
				Case "4" : LangQuestion = "응답이 편중되어 있습니다. 다시 한번 확인 부탁드립니다."
				Case "5" : LangQuestion = "에 응답해 주십시오."'기타
				Case "6" : LangQuestion = "#num# 이상으로 입력 해 주십시오."
				Case "7" : LangQuestion = "#num# 이하로 입력 해 주십시오."
				Case "8" : LangQuestion = "합계가 맞지 않습니다."
				Case "9" : LangQuestion = "다시선택(RESET)"
				Case "10" : LangQuestion = "응답값이 중복입니다\n다시 응답해 주십시오."
				Case "11" : LangQuestion = "RESET"
				Case "12" : LangQuestion = "의 값은 보기와 중복됩니다."
				Case "13" : LangQuestion = "숫자로 입력해 주시기 바랍니다."
				'자기자신의 나이가 있어야 한다는 문구
				Case "15" : LangQuestion = "자신의 나이에 응답해 주시기 바랍니다."
				Case "16" : LangQuestion = "정확하게 응답해 주시기 바랍니다."
				'가족의 명수가 ~~ 였습니다.
				Case "17" : LangQuestion = "가족의 수는 1명 이라고 응답해 주셨습니다."
				Case "18" : LangQuestion = "앞의 칸부터 차례대로 입력해 주시기 바랍니다."
				Case "81" : LangQuestion = "파일명"
				Case "82" : LangQuestion = "업로드 파일"
				Case "83" : LangQuestion = "설 명"
				Case "91" : LangQuestion = "시 작"
				Case "92" : LangQuestion = "이 전"
				Case "93" : LangQuestion = "다 음"
				Case "94" : LangQuestion = "확 인"
				Case "95" : LangQuestion = "완 료"
				Case "96" : LangQuestion = "전 송"
			End Select
		'이탈리어
		ElseIf LanCodeValue = "2" Then
			Select Case Code
				Case "1" : LangQuestion = "Si prega di completare la tua risposta."
				Case "2" : LangQuestion = "NON inserire solo 1 carattere per questa domanda. Rispondere con più dettagli."
				Case "3" : LangQuestion = "[~!@\#$%^&*\()\-=+_'] NO."
				Case "4" : LangQuestion = "Risponda in modo preciso."
				Case "5" : LangQuestion = "Si prega di compilare in 'Altri'."'기타
				Case "6" : LangQuestion = "Rispondere più di #num#"
				Case "7" : LangQuestion = "Rispondere meno di #num#"
				Case "8" : LangQuestion = "Il totale non corrisponde."
				Case "9" : LangQuestion = "Resettare la risposta."
				Case "10" : LangQuestion = "Sono risposte duplicate."
				Case "11" : LangQuestion = "Resettare la risposta."
				Case "12" : LangQuestion = "Sono risposte duplicate."
				Case "13" : LangQuestion = "Rispondere con un numero."
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		'일본어
		ElseIf LanCodeValue = "3" Then
			Select Case Code
				Case "1" : LangQuestion = "回答してください。"
				Case "2" : LangQuestion = "내용을 좀 더 자세히 응답해 주십시오."
				Case "3" : LangQuestion = "[~!@\#$%^&*\()\-=+_'] NO."
				Case "4" : LangQuestion = "回答を再度ご確認下さい。"
				Case "5" : LangQuestion = "その他”の詳細も回答してください。"'기타
				Case "6" : LangQuestion = "少なくとも1つイメージを選択してください。"
				Case "7" : LangQuestion = "最大3つまでイメージを選択してください。"
				Case "8" : LangQuestion = "합계가 맞지 않습니다."
				Case "9" : LangQuestion = "Reset"
				Case "10" : LangQuestion = "응답값이 중복입니다\n다시 응답해 주십시오."
				Case "11" : LangQuestion = "RESET"
				Case "12" : LangQuestion = "의 값은 보기와 중복됩니다."
				Case "13" : LangQuestion = "숫자로 입력해 주시기 바랍니다."
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		'영어
		ElseIf LanCodeValue = "4" Then
			Select Case Code
				Case "1" : LangQuestion = "Please complete the answer"
				Case "2" : LangQuestion = "Please DO NOT use only 1 character for this question."
				Case "3" : LangQuestion = "Symbols are not allowed.\nPlease check your answer again"
				Case "4" : LangQuestion = "You've chosed all the same answers. Please answer carefully"
				Case "5" : LangQuestion = "Please response ‘Others’"'기타
				Case "6" : LangQuestion = "Please enter at least #num#"
				Case "7" : LangQuestion = "Please enter less than #num#"
				Case "8" : LangQuestion = "Does not match the sum."
				Case "9" : LangQuestion = "Reset"
				Case "10" : LangQuestion = "Please answer carefully"
				Case "11" : LangQuestion = "RESET"
				Case "12" : LangQuestion = "Your answers are duplicated. "
				Case "13" : LangQuestion = "Please enter Number." 
				Case "14" : LangQuestion = "Please check your answer again."
				Case "15" : LangQuestion = "Please, including yourself."
				Case "16" : LangQuestion = "Please answer carefully"
				'가족의 명수가 ~~ 였습니다.
				Case "17" : LangQuestion = "The number of your family member including yourself is [1]"
				Case "19" : LangQuestion = "Please check your file format and try to upload again\nImage file formats are only allowed to be uploaded such as *.jpg/*.gif/*.bmp/*.png"
				Case "31" : LangQuestion = "Did you upload the photo of the products well? If yes, please press OK button"
				Case "41" : LangQuestion = "File is incorrect. Check your file name. FileName is only alphabet and number."
				Case "42" : LangQuestion = "File Upload failed. Please check your network."
				Case "43" : LangQuestion = "Successful upload."
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		'독일
		ElseIf LanCodeValue = "5" Then
			Select Case Code
				Case "1" : LangQuestion = "Bitte vervollstandigen Sie zuerst Ihre Antwort."
				Case "2" : LangQuestion = "Ihre Eingabe ist zu kurz. Bitte schreiben Sie mehr als 4 Zeichen."
				Case "3" : LangQuestion = "Bitte uberprufen Sie Ihre Antwort"
				Case "4" : LangQuestion = "Bitte antworten Sie sorgfältig"
				Case "5" : LangQuestion = "Bitte geben Sie 'Sonstige' genauer an"'기타
				Case "6" : LangQuestion = "#num# 이상으로 입력 해 주십시오."
				Case "7" : LangQuestion = "#num# 이하로 입력 해 주십시오."
				Case "8" : LangQuestion = "합계가 맞지 않습니다."
				Case "9" : LangQuestion = "Reset"
				Case "10" : LangQuestion = " Bitte antworten Sie sorgfältig"
				Case "11" : LangQuestion = "RESET"
				Case "12" : LangQuestion = " Bitte antworten Sie sorgfältig"
				Case "13" : LangQuestion = "숫자로 입력해 주시기 바랍니다."
				Case "14" : LangQuestion = " Bitte antworten Sie sorgfältig"
				'자기자신의 나이가 있어야 한다는 문구
				Case "15" : LangQuestion = " Bitte beziehen Sie sich mit ein"
				Case "16" : LangQuestion = " Bitte antworten Sie sorgfältig"
				'가족의 명수가 ~~ 였습니다.
				Case "17" : LangQuestion = "Die Anzahl der Familienmitglieder, Sie inbegriffen, ist (1)"
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		'프랑스어
		ElseIf LanCodeValue = "6" Then
			Select Case Code
				Case "1" : LangQuestion = "Veuillez compléter votre réponse."
				Case "2" : LangQuestion = "Veuillez NE PAS entrer un seul caractère pour cette question."
				Case "3" : LangQuestion = "Les symboles ne sont pas admis. Veuillez vérifier votre réponse à nouveau."
				Case "4" : LangQuestion = "Vous avez choisi toutes les mêmes réponses. Veuillez répondre attentivement."
				Case "5" : LangQuestion = "Veuillez indiquer « Autre »"'기타
				Case "6" : LangQuestion = "Veuillez entrer supérieur à #num#"
				Case "7" : LangQuestion = "Veuillez entrer moins de #num#"
				Case "8" : LangQuestion = "La somme ne correspond pas à votre réponse."
				Case "9" : LangQuestion = "Reset"
				Case "10" : LangQuestion = "Veuillez répondre attentivement."
				Case "11" : LangQuestion = "RÉINITIALISATION "
				Case "12" : LangQuestion = "Vos réponses apparaissent en double."
				Case "13" : LangQuestion = "Veuillez entrer une donnée numérique." 
				Case "14" : LangQuestion = "Please check your answer again."
				Case "15" : LangQuestion = "Veuillez vous inclure."
				Case "16" : LangQuestion = "Please answer carefully"
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		'홍콩
		ElseIf LanCodeValue = "7" Then
			Select Case Code
				Case "1" : LangQuestion = "請你填寫所有的答案"
				Case "2" : LangQuestion = "내용을 좀 더 자세히 응답해 주십시오."
				Case "3" : LangQuestion = "請檢查您的答案"
				Case "4" : LangQuestion = "請您仔細回答"
				Case "5" : LangQuestion = "請填寫[其他]。"'기타
				Case "6" : LangQuestion = "#num# 이상으로 입력 해 주십시오."
				Case "7" : LangQuestion = "#num# 이하로 입력 해 주십시오."
				Case "8" : LangQuestion = "합계가 맞지 않습니다."
				Case "9" : LangQuestion = "重新輸入"
				Case "10" : LangQuestion = "응답값이 중복입니다\n다시 응답해 주십시오."
				Case "11" : LangQuestion = "RESET"
				Case "12" : LangQuestion = "의 값은 보기와 중복됩니다."
				Case "13" : LangQuestion = "숫자로 입력해 주시기 바랍니다."
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		'중국
		ElseIf LanCodeValue = "8" Then
			Select Case Code
				Case "1" : LangQuestion = "请完整您的答案"
				Case "2" : LangQuestion = "请检查您的答案"
				Case "3" : LangQuestion = "请检查您的答案"
				Case "4" : LangQuestion = "请检查您的答案"
				Case "5" : LangQuestion = "请在“其他”项中注明"'기타
				Case "6" : LangQuestion = "請輸入至少#num#个形象"
				Case "7" : LangQuestion = "請仔細考慮#num#个形象"
				Case "8" : LangQuestion = "합계가 맞지 않습니다."
				Case "9" : LangQuestion = "重新输入"
				Case "10" : LangQuestion = "请检查您的答案"
				Case "11" : LangQuestion = "RESET"
				Case "12" : LangQuestion = "의 값은 보기와 중복됩니다."
				Case "13" : LangQuestion = "숫자로 입력해 주시기 바랍니다."

				'자기자신의 나이가 있어야 한다는 문구
				Case "15" : LangQuestion = "请将您自己也包含在内"
				Case "14" : LangQuestion = "请检查您的答案"
				Case "16" : LangQuestion = "请检查您的答案"
				'가족의 명수가 ~~ 였습니다.
				Case "17" : LangQuestion = "家庭成员人数（包括您自己）为（1人）。"
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		'네덜란드
		ElseIf LanCodeValue = "9" Then
			Select Case Code
				Case "1" : LangQuestion = "Beantwoord de vraag alstublieft volledig."
				Case "2" : LangQuestion = "내용을 좀 더 자세히 응답해 주십시오."
				Case "3" : LangQuestion = "Beantwoord de vraag alstublieft volledig."
				Case "4" : LangQuestion = "Denk alstublieft goed na over uw antwoord"
				Case "5" : LangQuestion = "Vul alstublieft 'Anders' in."'기타
				Case "6" : LangQuestion = "#num# 이상으로 입력 해 주십시오."
				Case "7" : LangQuestion = "#num# 이하로 입력 해 주십시오."
				Case "8" : LangQuestion = "합계가 맞지 않습니다."
				Case "9" : LangQuestion = "Reset"
				Case "10" : LangQuestion = "응답값이 중복입니다\n다시 응답해 주십시오."
				Case "11" : LangQuestion = "RESET"
				Case "12" : LangQuestion = "의 값은 보기와 중복됩니다."
				Case "13" : LangQuestion = "숫자로 입력해 주시기 바랍니다."
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		'스페인
		ElseIf LanCodeValue = "10" Then
			Select Case Code
				Case "1" : LangQuestion = "Por favor complete a sua pesquisa."
				Case "2" : LangQuestion = "내용을 좀 더 자세히 응답해 주십시오."
				Case "3" : LangQuestion = "Symbols are not allowed.\nPlease check your answer again"
				Case "4" : LangQuestion = "Por favor, responda detenidamente. vLe rogamos se tome su tiempo y lea las preguntas detenidamente."
				Case "5" : LangQuestion = "Por favor, rellene el apartado 'Otros'."'기타
				Case "6" : LangQuestion = "#num# 이상으로 입력 해 주십시오."
				Case "7" : LangQuestion = "#num# 이하로 입력 해 주십시오."
				Case "8" : LangQuestion = "합계가 맞지 않습니다."
				Case "9" : LangQuestion = "Reset"
				Case "10" : LangQuestion = "응답값이 중복입니다\n다시 응답해 주십시오."
				Case "11" : LangQuestion = "RESET"
				Case "12" : LangQuestion = "의 값은 보기와 중복됩니다."
				Case "13" : LangQuestion = "숫자로 입력해 주시기 바랍니다."
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		'터키
		ElseIf LanCodeValue = "11" Then
			Select Case Code
				Case "1" : LangQuestion = "Lütfen cevabınızı tamamlayınız"
				Case "2" : LangQuestion = "내용을 좀 더 자세히 응답해 주십시오."
				Case "3" : LangQuestion = "Symbols are not allowed.\nPlease check your answer again"
				Case "4" : LangQuestion = "Lütfen dikkatle cevaplayınız"
				Case "5" : LangQuestion = "Lütfen “Diğer” kısmını doldurunuz"'기타
				Case "6" : LangQuestion = "#num# 이상으로 입력 해 주십시오."
				Case "7" : LangQuestion = "#num# 이하로 입력 해 주십시오."
				Case "8" : LangQuestion = "합계가 맞지 않습니다."
				Case "9" : LangQuestion = "Anketi Sıfırla / Resetle"
				Case "10" : LangQuestion = "응답값이 중복입니다\n다시 응답해 주십시오."
				Case "11" : LangQuestion = "RESET"
				Case "12" : LangQuestion = "의 값은 보기와 중복됩니다."
				Case "13" : LangQuestion = "숫자로 입력해 주시기 바랍니다."
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		'브라질
		ElseIf LanCodeValue = "12" Then
			Select Case Code
				Case "1" : LangQuestion = "Por favor complete a sua pesquisa." '질문에 응답해 주십시오
				Case "2" : LangQuestion = "Por favor complete a sua pesquisa." '질문에 응답해 주십시오
				Case "3" : LangQuestion = "Por favor, verifique sua resposta." '응답을 다시 한번 확인해 주십시오.
				Case "4" : LangQuestion = "Por favor, verifique sua resposta." '응답을 다시 한번 확인해 주십시오.
				Case "5" : LangQuestion = "Por favor complete a sua pesquisa." '응답을 완료해주십시오 (기타)
				Case "6" : LangQuestion = "Por favor, digite uma resposta maior que #num#" '-이상으로 입력해 주십시오. [숫자위치]
				Case "7" : LangQuestion = "Por favor, digite menos que #num#" '-이하로 입력해 주십시오. [숫자위치]
				Case "8" : LangQuestion = "Não corresponde à soma."  '합계가 맞지 않습니다
				Case "9" : LangQuestion = "Redefinir"    '다시선택
				Case "10" : LangQuestion = "Por favor, responda mais cuidadosamente" '응답값이 중복일 때 : 더 신중하게 응답해 주십시오.
				Case "11" : LangQuestion = "Redefinir"    '다시 선택
				Case "12" : LangQuestion = "Por favor, não digite as mesmas marcas" '응답이 중복됩니다. [응답값]
				Case "13" : LangQuestion = "Por favor escreva somente números."  '숫자로 입력해 주십시오
				Case "14" : LangQuestion = "Por favor, verifique sua resposta novamente." '응답을 다시한번 확인해 주십시오.
				Case "18" : LangQuestion = "Por favor, preencha sua resposta a partir da caixa de texto de cima." '위의 텍스트 상자에 값을 입력해 주십시오
				Case "19" : LangQuestion = "Por favor, revise suas respostas nesta página. Uma ou mais perguntas necessitam de mais informações." '[텍스트박스] 하나 이상 입력받을때
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
		   End Select
		'이란
		ElseIf LanCodeValue = "13" Then
			Select Case Code
				Case "1" : LangQuestion = "لطفا پاسخ را کامل کنید"
				Case "2" : LangQuestion = "Please DO NOT use only 1 character for this question."
				Case "3" : LangQuestion = "Symbols are not allowed.\nPlease check your answer again"
				Case "4" : LangQuestion = "شما همان پاسخ را انتخاب کرده اید. لطفا با دقت پاسخ دهید."
				Case "5" : LangQuestion = "لطفا قسمت سایر را پر کنید"'기타
				Case "6" : LangQuestion = "لطفا بیشتر از ~ را وارد کنید"
				Case "7" : LangQuestion = "لطفا کمتر از ~ را وارد کنید"
				Case "8" : LangQuestion = "با مجموع مطابقت ندارد"
				Case "9" : LangQuestion = "شروع مجدد"
				Case "10" : LangQuestion = "Please answer carefully"
				Case "11" : LangQuestion = "شروع مجدد"
				Case "12" : LangQuestion = "Your answers are duplicated. "
				Case "13" : LangQuestion = "لطفا عدد وارد کنید" 
				Case "14" : LangQuestion = "Please check your answer again."
				Case "15" : LangQuestion = "Please, including yourself."
				Case "16" : LangQuestion = "Please answer carefully"
				Case "17" : LangQuestion = "The number of your family member including yourself is [1]"
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Description"
				Case "91" : LangQuestion = "START"
				Case "92" : LangQuestion = "PREVIOUS"
				Case "93" : LangQuestion = "NEXT"
				Case "94" : LangQuestion = "CONFIRM"
				Case "95" : LangQuestion = "END"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		'러시아
		ElseIf LANCodeValue="14" Then
			Select Case Code
				Case "1" : LangQuestion = "Пожалуйста, дайте ответ на вопрос"
				Case "2" : LangQuestion = "Пожалуйста, НЕ используйте только 1 символ для этого вопроса."
				Case "3" : LangQuestion = "Эти символы не допускаются. Пожалуйста, проверьте свой ответ"
				Case "4" : LangQuestion = "Вы выбрали все те же ответы. Пожалуйста, быдьте внимательны при ответе на вопросы"
				Case "5" : LangQuestion = "Пожалуйста, заполните графу 'Другое'"
				Case "6" : LangQuestion = "Пожалуйста, введите не менее #num#"
				Case "7" : LangQuestion = "Пожалуйста, введите не более #num#"
				Case "8" : LangQuestion = "Не соответствует сумме."
				Case "9" : LangQuestion = "Сброс"
				Case "10" : LangQuestion = "Пожалуйста, отвечайте внимательно"
				Case "11" : LangQuestion = "Сброс"
				Case "12" : LangQuestion = "Ваши ответы дублируются."
				Case "13" : LangQuestion = "Пожалуйста, введите число" 
				Case "14" : LangQuestion = "Пожалуйста, проверьте свой ответ еще раз"
				Case "15" : LangQuestion = "Пожалуйста, включая себя"
				Case "16" : LangQuestion = "Пожалуйста, отвечайте внимательно"
				'가족의 명수가 ~~ 였습니다.
				Case "17" : LangQuestion = "Количество членов вашей семьи, включая себя [1]"
				Case "19" : LangQuestion = "Please check your file format and try to upload again\nImage file formats are only allowed to be uploaded such as *.jpg/*.gif/*.bmp/*.png"
				Case "31" : LangQuestion = "Did you upload the photo of the products well? If yes, please press OK button"
				Case "41" : LangQuestion = "File is incorrect. Check your file name. FileName is only alphabet and number."
				Case "42" : LangQuestion = "File Upload failed. Please check your network."
				Case "43" : LangQuestion = "Successful upload."
				Case "51" : LangQuestion = "Пожалуйста, проверьте свой ответ еще раз"
				Case "81" : LangQuestion = "File Name"
				Case "82" : LangQuestion = "Upload File"
				Case "83" : LangQuestion = "Описание"
				Case "91" : LangQuestion = "СТАРТ"
				Case "92" : LangQuestion = "ПРЕДЫДУЩИЙ"
				Case "93" : LangQuestion = "СЛЕДУЮЩИЙ"
				Case "94" : LangQuestion = "ПОДТВЕРДИТЕ"
				Case "95" : LangQuestion = "КОНЕЦ"
				Case "96" : LangQuestion = "UPLOAD"
			End Select
		End If	
	End Function

	'포인트 기준으로 처리 속성 만들기
	'@Var1 해당 문항 변수명 앞자리
	'@ATTV 속성 코드 전체
	'@Limits 기준 점수 같이나 큰거 기준

	Function MakePointByATT(Var1,ATTV,Limits)
		Dim tmpATArray,tmpCdArray
		Dim tmpICnt,tmpValues
		Dim RATT

		tmpATArray = Split(ATTV,LABELSPLITTER)
		RATT = ""

		For tmpICnt= LBound(tmpATArray) To UBound(tmpATArray)
			tmpCdArray = Split(tmpATArray(tmpICnt),CODESPLITTER)
			tmpValues = getValue(Var1 & "_" & tmpCdArray(0))

			If Trim(tmpValues)<>"" Then
				If CInt(Trim(tmpValues))>=CInt(Limits) Then

					If RATT<>"" Then
						RATT = RATT & LABELSPLITTER
					End If

					RATT = RATT & tmpATArray(tmpICnt)
				End If
			End If
		Next

		MakePointByATT = RATT

	End Function
	'###########################################################################################
    ' 숫자0채우기 : format(123, "00000") ==> 000123
	'###########################################################################################
     Function format(ByVal szString, ByVal Expression)
     	If Len(szString) < Len(Expression) Then
     		format = Left(expression,Len(Expression)-Len(szString)) & szString
     	Else
     		format = szString
     	End If
     End Function

	'###########################################################################################
	'ADODB Recordset to CSV
	'###########################################################################################
	Sub Write_CSV_From_Recordset(RS)

		'
		' Export Recordset to CSV
		' http://salman-w.blogspot.com/2009/07/export-recordset-data-to-csv-using.html
		'
		' This sub-routine Response.Writes the content of an ADODB.RECORDSET in CSV format
		' The function closely follows the recommendations described in RFC 4180:
		' Common Format and MIME Type for Comma-Separated Values (CSV) Files
		' http://tools.ietf.org/html/rfc4180
		'
		' @RS: A reference to an open ADODB.RECORDSET object
		'

		if RS.EOF then
		
			'
			' There is no data to be written
			'
			exit sub
		
		end if

		dim RX
		set RX = new RegExp
			RX.Pattern = "\r|\n|,|"""

		dim i
		dim Field
		dim Separator

		'
		' Writing the header row (header row contains field names)
		'

		Separator = ""
		for i = 0 to RS.Fields.Count - 1
			Field = RS.Fields(i).Name
			if RX.Test(Field) then
				'
				' According to recommendations:
				' - Fields that contain CR/LF, Comma or Double-quote should be enclosed in double-quotes
				' - Double-quote itself must be escaped by preceeding with another double-quote
				'
				Field = """" & Replace(Field, """", """""") & """"
				Field = Replace(Field,vbCRLF," ")
			end if
			Response.Write Separator & Field
			Separator = ","
		next
		Response.Write vbNewLine

		'
		' Writing the data rows
		'

		do until RS.EOF
			Separator = ""
			for i = 0 to RS.Fields.Count - 1
				'
				' Note the concatenation with empty string below
				' This assures that NULL values are converted to empty string
				'
				Field = RS.Fields(i).Value & ""
				if RX.Test(Field) then
					Field = """" & Replace(Field, """", """""") & """"
				end If
				If isNumeric(Field) And Left(Field,1)="0" Then
					'Response.Write Separator & Chr(34) & "'" & Field & Chr(34)
					Response.Write Separator & "'" & Field & ""
				ElseIf InStr(Field,",")>0 Then
					Response.Write Separator & Replace(Field,",","/")
				Else
					Response.Write Separator & Chr(34) & Field & Chr(34)
				End IF
				Separator = ","
			next
			Response.Write vbNewLine
			RS.MoveNext
		loop

	End Sub

	'###########################################################################################
	'Recordset 결과로 HTML 테이블 만들기
	'###########################################################################################   

	Function makeTable(rsx)

	Dim rss
	Dim TableSource
	Dim i
	Dim item

	  set rss = rsx

	  If rss.eof Or rss.bof Then
		TableSource=""
	  Else

		  TableSource = "<Table class=""table table-bordered table-condensed"" id=""rsTable"" style='border-collapse: collapse; font-family:Tahoma; font-size:9pt'>" & vbCrlf
		  TableSource = TableSource & vbtab & "<tr style='font-weight: bold'>" & vbcrlf

		  for i=0 to rss.fields.count-1
		   TableSource = TableSource & vbtab & vbtab & "<th class=""info text-center"">" & rss.fields(i).name & "</th>" & vbcrlf
		  next

		  TableSource = TableSource & vbtab & "</tr>" & vbcrlf

		  do while not rss.eof

		   TableSource = TableSource & vbtab & "<tr>" & vbcrlf
		   
		   for i=0 to rss.fields.count-1
			
			item = rss(i)   

			If item="" Or isNull(item) Then item="&nbsp;"
'			If isNumeric(item) Then item="'" & item
		   
			 TableSource = TableSource & vbtab & vbtab & "<td class=""text-center"">" & item & "</td>" & vbcrlf
		   next
		 
		   TableSource = TableSource & vbtab & "</tr>" & vbcrlf

		   rss.movenext

		  loop

		  TableSource = TableSource & "</Table>" & vbcrlf
	  End If

	  makeTable = TableSource 
	End Function

	Function getBrand()
		Select Case getValue("SQ9")
			Case "1"
				getBrand = "LG"
			Case "2"
				getBrand = "Samsung"
			Case "3"
				getBrand = "Bosch"
			Case "4"
				getBrand = "Haier"
			Case Else
				getBrand = "Другой "
		End Select
	End Function
%>