<%
'#######################################################################################
'연령 받는 TextBox형
'VARIABLE : 변수 명
'TEXT : 질문 TEXT
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionAGE(VARIABLE,TEXT,Label,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,iCnt,V1,V2
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	HeightV = "30px"

	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	
	SBody = SBody & "	<div class='panel panel-default'>" & vbCRLF
	SBody = SBody & "		<div class='panel-heading'><h4 style='line-height:150%;'>" & TEXT & "</h4></div>" & vbCRLF

	SBody = SBody & "		<div class='panel-body'>" & vbCRLF
	SBody = SBody & "		<div class=""row"">" & vbCRLF
	SBody = SBody & "			<div class=""col-md-3 col-xs-4"">" & vbCRLF
	SBody = SBody & "				<div class=""input-group"">" & vbCRLF
	SBody = SBody & "				<input type=""number"" class=""form-control"" name=""" & VARIABLE & """ id=""" & VARIABLE & """ min=""0"" max=""999"" value="""" size=""10"" maxlength=""2""/>" & vbCRLF
	If Label<>"" Then
	SBody = SBody & "				<div class=""input-group-addon"">"&Label &"</div>" & vbCRLF
	End If
	SBody = SBody & "				</div>" & vbCRLF
	SBody = SBody & "			</div>" & vbCRLF
	SBody = SBody & "		</div>" & vbCRLF
	SBody = SBody & "	</div>" & vbCRLF


	JBody = JBody & "	if ($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val()=="""")" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(1) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF

	JBody = JBody & "	if (!isNaN($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())==false)" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(13) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF

	JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())<" & 1 & ")" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(6) &""");" & vbCRLF
	JBody = Replace(JBody,"#num#",1)
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF	
	

	JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())>" & 100 & ")" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(7) &""");" & vbCRLF
	JBody = Replace(JBody,"#num#",100)
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF	

	VAR = VARIABLE & ","
	
	Response.Write vbCrLF
	Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
	Response.Write "<!--" & vbCRLF
	Response.Write "	$(document).ready(function(){" & vbCrLF
	Response.Write "		$(""#" & VARIABLE & """).numeric();" & vbCrLF
	Response.Write "		$(""#" & VARIABLE & """).css(""ime-mode"",""disabled"");" & vbCrLF
	Response.Write "	});" & vbCrLF
	Response.Write "//-->" & vbCrLF
	Response.Write "</script>" & vbCrLF

	BODYSTR = SBody
	JBODYSTR = JBody

End Function

'#######################################################################################
'숫자 받는 TextBox형
'VARIABLE : 변수 명
'TEXT : 질문 TEXT
'MINV : 최소 입력값
'MAXV : 최대 입력값
'LENGTH : 입력 자리수
'PLABEL : 텍스트 박스 앞자리 TEXT
'BLABEL : 텍스트 박스 뒷자리 TEXT
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionNumber(VARIABLE,TEXT,MINV,MAXV,LENGTH,PLABEL,BLABEL,NFLAG,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,iCnt,V1,V2	
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	Dim MIV,MAV,LTH

	If Minv=""  Then	Minv=""
	If MAXV="" Or MAXV="0" Then MAXV=""
	If LENGTH="" Or LENGTH="0" Then 
		LTH="1"
	Else
		LTH=LENGTH
	End IF

	HeightV = "30px"

	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	

	VAR = VARIABLE & ","
	SBody = SBody & "	<div class='panel panel-default'>" & vbCRLF
	SBody = SBody & "		<div class='panel-heading'><h4 style='line-height:150%;'>" & TEXT & "</h4></div>" & vbCRLF

	SBody = SBody & "		<div class='panel-body'>" & vbCRLF

	SBody = SBody & "			<div class=""col-md-4 col-xs-8"">" & vbCRLF
	SBody = SBody & "				<div class=""input-group"">" & vbCRLF
	If PLabel<>"" Then
	SBody = SBody & "					<div class=""input-group-addon hidden-xs"">"&PLabel &"</div>" & vbCRLF
	End IF
	SBody = SBody & "					<input type=""number"" class=""form-control"" name=""" & VARIABLE & """ id=""" & VARIABLE & """ value="""" min="""&MINV&""" max="""&MAXV&""" size=""10"" maxlength=""" & LTH & """/>" & vbCRLF
	If BLabel<>"" Then
	End If
	SBody = SBody & "					<div class=""input-group-addon"">"&BLabel &"</div>" & vbCRLF
	SBody = SBody & "				</div>" & vbCRLF
	SBody = SBody & "			</div>" & vbCRLF

	If NFlag Then
		SBody = SBody & "		<div class=""col-md-12 col-xs-12""><div class=""checkbox""><label style=""cursor:pointer;""><input type=""checkbox"" id="""&VARIABLE&"_NONE"" name="""&VARIABLE&"_NONE"" value=""1""/> "&NONSTR&"</label></div></div>" & vbCRLF
		Response.Write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
		Response.Write "<!--" & vbCrLF
		Response.Write "	$(document).ready(function(){" & vbCrLF
		Response.Write "		$(""#"&VARIABLE&"_NONE"").click(function(){" & vbCrLF
		Response.Write "			itemDisabledSetup("""&VARIABLE&""".split("",""),$(""#"&VARIABLE&"_NONE"").attr(""checked""));" & vbCrLF
		Response.Write "		})" & vbCrLf
		Response.Write "	});" & vbCrLf
		Response.Write "//-->" & vbCrLF
		Response.Write "</script>"

		VAR = VAR & VARIABLE & "_NONE,"
	End IF

	SBody = SBody & "		</div>" & vbCRLF
	SBody = SBody & "	</div>" & vbCRLF

	If NFlag Then
	JBody = JBody & "	if ($("& Chr(34) & "#" & VARIABLE & "_NONE" & Chr(34) &").is("":checked"")==false){" & vbCrLF
	End if

	JBody = JBody & "	if ($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val()=="""")" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(1) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF

	'숫자인지 체크
	JBody = JBody & "	if (!isNaN($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())==false)" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(13) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF
	
	If Minv<>"" Then
		JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())<" & Minv & ")" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert("""& LangQuestion(6) &""");" & vbCRLF
		JBody = Replace(JBody,"#num#",MINV)
		JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF	
	End If
	
	If MAXV<>"" Then
		JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())>" & MAXV & ")" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert("""& LangQuestion(7) &""");" & vbCRLF
		JBody = Replace(JBody,"#num#",MAXV)
		JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF	
	End IF

	If NFlag Then
		JBody = JBody & "		}" & vbCrLF
	End if
	
	Response.Write vbCrLF
	Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
	Response.Write "<!--" & vbCRLF
	Response.Write "	$(document).ready(function(){" & vbCrLF
	Response.Write "		$(""#" & VARIABLE & """).numeric();" & vbCrLF
	Response.Write "		$(""#" & VARIABLE & """).css(""ime-mode"",""disabled"");" & vbCrLF
	Response.Write "	});" & vbCrLF
	Response.Write "//-->" & vbCrLF
	Response.Write "</script>" & vbCrLF

	BODYSTR = SBody
	JBODYSTR = JBody

End Function


'#######################################################################################
'숫자 받는 TextBox형 소수점 입력 처리
'VARIABLE : 변수 명
'TEXT : 질문 TEXT
'MINV : 최소 입력값
'MAXV : 최대 입력값
'LENGTH : 입력 자리수
'PLABEL : 텍스트 박스 앞자리 TEXT
'BLABEL : 텍스트 박스 뒷자리 TEXT
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionNumber2(VARIABLE,TEXT,MINV,MAXV,LENGTH,PLABEL,BLABEL,NFLAG,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,iCnt,V1,V2	
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	Dim MIV,MAV,LTH

	If Minv="" Or Minv="0" Then	Minv=""
	If MAXV="" Or MAXV="0" Then MAXV=""
	If LENGTH="" Or LENGTH="0" Then 
		LTH="1"
	Else
		LTH=LENGTH
	End IF

	HeightV = "30px"

	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	

	VAR = VARIABLE & ","
	SBody = SBody & "	<div class='panel panel-default'>" & vbCRLF
	SBody = SBody & "		<div class='panel-heading'><h4 style='line-height:150%;'>" & TEXT & "</h4></div>" & vbCRLF

	SBody = SBody & "		<div class='panel-body'>" & vbCRLF

	SBody = SBody & "			<div class=""col-md-4 col-xs-8"">" & vbCRLF
	SBody = SBody & "				<div class=""input-group"">" & vbCRLF
	If PLabel<>"" Then
	SBody = SBody & "					<div class=""input-group-addon hidden-xs"">"&PLabel &"</div>" & vbCRLF
	End IF
	SBody = SBody & "					<input type=""number"" class=""form-control"" name=""" & VARIABLE & """ id=""" & VARIABLE & """ value="""" min="""&MINV&""" max="""&MAXV&""" size=""10"" maxlength=""" & LTH & """/>" & vbCRLF
	If BLabel<>"" Then
	End If
	SBody = SBody & "					<div class=""input-group-addon"">"&BLabel &"</div>" & vbCRLF
	SBody = SBody & "				</div>" & vbCRLF
	SBody = SBody & "			</div>" & vbCRLF

	If NFlag Then
		SBody = SBody & "		<div class=""col-md-12 col-xs-12""><div class=""checkbox""><label style=""cursor:pointer;""><input type=""checkbox"" id="""&VARIABLE&"_NONE"" name="""&VARIABLE&"_NONE"" value=""1""/> "&NONSTR&"</label></div></div>" & vbCRLF
		Response.Write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
		Response.Write "<!--" & vbCrLF
		Response.Write "	$(document).ready(function(){" & vbCrLF
		Response.Write "		$(""#"&VARIABLE&"_NONE"").click(function(){" & vbCrLF
		Response.Write "			itemDisabledSetup("""&VARIABLE&""".split("",""),$(""#"&VARIABLE&"_NONE"").attr(""checked""));" & vbCrLF
		Response.Write "		})" & vbCrLf
		Response.Write "	});" & vbCrLf
		Response.Write "//-->" & vbCrLF
		Response.Write "</script>"

		VAR = VAR & VARIABLE & "_NONE,"
	End IF

	SBody = SBody & "		</div>" & vbCRLF
	SBody = SBody & "	</div>" & vbCRLF

	If NFlag Then
	JBody = JBody & "	if ($("& Chr(34) & "#" & VARIABLE & "_NONE" & Chr(34) &").is("":checked"")==false){" & vbCrLF
	End if

	JBody = JBody & "	if ($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val()=="""")" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(1) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF

	'숫자인지 체크
	JBody = JBody & "	if (!isNaN($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())==false)" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(13) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF
	
	If Minv<>"" Then
		JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())<" & Minv & ")" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert("""& LangQuestion(6) &""");" & vbCRLF
		JBody = Replace(JBody,"#num#",MINV)
		JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF	
	End If
	
	If MAXV<>"" Then
		JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())>" & MAXV & ")" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert("""& LangQuestion(7) &""");" & vbCRLF
		JBody = Replace(JBody,"#num#",MAXV)
		JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF	
	End If
	JBody = JBody & " var convertV;" & vbCRLF	
	JBody = JBody & "	convertV = $("& Chr(34) & "#" &VARIABLE & Chr(34) &").val();" & vbCRLF	
	JBody = JBody & " if (convertV.indexOf('.')!=-1) { "& vbCRLF	
	JBody = JBody & "		convertV = parseFloat($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val()).toFixed(1);" & vbCRLF	
	JBody = JBody & "		$("& Chr(34) & "#" &VARIABLE & Chr(34) &").val(convertV);"
	JBody = JBody & "	}" & vbCRLF	


	If NFlag Then
		JBody = JBody & "		}" & vbCrLF
	End if
	
	BODYSTR = SBody
	JBODYSTR = JBody

End Function

'#######################################################################################
'숫자 받는 TextBox형 속성형
'VARIABLE : 변수 명
'ATTRIBUTE: 속성
'TEXT : 질문 TEXT
'MINV : 최소 입력값
'MAXV : 최대 입력값
'LENGTH : 입력 자리수
'PLABEL : 텍스트 박스 앞자리 TEXT
'BLABEL : 텍스트 박스 뒷자리 TEXT
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionNumberMATRIX(VARIABLE,ATTRIBUTE,TEXT,MINV,MAXV,LENGTH,PLABEL,BLABEL,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,iCnt,V1,V2
	Dim ATStr,A_COD,A1,A2
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	Dim MIV,MAV,LTH
	Dim COL

	If Minv="" Or Minv="0" Then	Minv="0"
	If MAXV="" Or MAXV="0" Then MAXV=""
	If LENGTH="" Or LENGTH="0" Then 
		LTH="1"
	Else
		LTH=LENGTH
	End IF

	HeightV = "30px"
	ATStr = Split(ATTRIBUTE,LABELSPLITTER)
	COL = UBound(ATStr)

	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	

	SBody = SBody & "	<div class='panel panel-default'>" & vbCRLF
	SBody = SBody & "		<div class='panel-heading'><h4 style='line-height:150%;'>" & TEXT & "</h4></div>" & vbCRLF

	SBody = SBody & "		<div class='panel-body'>" & vbCRLF
	
	SBody = SBody & "			<table id='" & VARIABLE & "_table' class='table table-hover' cellpadding='0' cellspacing='0' border='0'>" & vbCRLF
	SBody = SBody & "				<colgroup>" & vbCRLF
	SBody = SBody & "					<col width=""*""/>" & vbCRLF
	SBody = SBody & "					<col width=""40%""/>" & vbCRLF

	SBody = SBody & "				</colgroup>" & vbCRLF

	Response.Write vbCrLF
	Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
	Response.Write "<!--" & vbCRLF
	Response.Write "	$(document).ready(function(){" & vbCrLF

	For iCnt=0 To UBound(ATStr)
		If VarType(ATStr)<>0 And VarType(ATSTR)<>1 Then
			A_COD = Split(ATStr(iCnt),CODESPLITTER)
			A1 = A_COD(0)
			A2 = A_COD(1)
			SBody = SBody & "				<tr>" & vbCRLF
			SBody = SBody & "				<th><label id=""L" & VARIABLE & "_" & A1 & """>" & A2 & "</label></th>" & vbCRLF
			SBody = SBody & "				<td class='text-left' style=""width:40%;"">" & vbCRLF
			SBody = SBody & "				<div class=""input-group"">" & vbCRLF
			If PLabel<>"" Then
			SBody = SBody & "					<div class=""input-group-addon hidden-xs"">"&PLabel &"</div>" & vbCRLF
			End If
			SBody = SBody &"					<input type=""number"" class=""form-control"" name=""" & VARIABLE & "_"& A1 & """ id=""" & VARIABLE & "_"& A1 & """ value="""" maxlength="""& LTH & """ min="""&MINV&""" max="""&MAXV&"""/>"& vbCRLF
			If BLabel<>"" Then
			SBody = SBody & "					<div class=""input-group-addon"">"&BLabel &"</div>" & vbCRLF
			End If
			SBody = SBody & "				</div>" & vbCRLF
			SBody = SBody &	"			</td>" & vbCRLF
			SBody = SBody & "				</tr>" & vbCRLF

			JBody = JBody & "	if ($("& Chr(34) & "#" &VARIABLE & "_" & A1 & Chr(34) &").val()=="""")" & vbCrLF
			JBody = JBody & "	{" & vbCrLF
			JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(1) &""");" & vbCRLF
			JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_" & A1 & Chr(34) & ").focus();" & vbCRLF
			JBody = JBody & "		return;" & vbCRLF
			JBody = JBody & "	}" & vbCRLF

			'숫자인지 체크
			JBody = JBody & "	if (!isNaN($("& Chr(34) & "#" &VARIABLE & "_" & A1 & Chr(34) &").val())==false)" & vbCrLF
			JBody = JBody & "	{" & vbCrLF
			JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(13) &""");" & vbCRLF
			JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_" & A1 & Chr(34) & ").focus();" & vbCRLF
			JBody = JBody & "		return;" & vbCRLF
			JBody = JBody & "	}" & vbCRLF

			If Minv<>"" Then
				JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & "_" & A1 & Chr(34) &").val())<" & Minv & ")" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(6) &""");" & vbCRLF
				JBody = Replace(JBody,"#num#",MINV)
				JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_" & A1 & Chr(34) & ").focus();" & vbCRLF
				JBody = JBody & "		return;" & vbCRLF
				JBody = JBody & "	}" & vbCRLF	
			End If
			
			If MAXV<>"" Then
				JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & "_" & A1 & Chr(34) &").val())>" & MAXV & ")" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(7) &""");" & vbCRLF
				JBody = Replace(JBody,"#num#",MAXV)
				JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_" & A1 & Chr(34) & ").focus();" & vbCRLF
				JBody = JBody & "		return;" & vbCRLF
				JBody = JBody & "	}" & vbCRLF	
			End IF

			VAR = VAR & VARIABLE & "_" & A1 & ","
			
			Response.Write "		$(""#" & VARIABLE & "_" & A1 & """).numeric();" & vbCrLF
			Response.Write "		$(""#" & VARIABLE & "_" & A1 & """).css(""ime-mode"",""disabled"");" & vbCrLF
		End If		
	Next

	Response.Write "	});" & vbCrLF
	Response.Write "//-->" & vbCrLF
	Response.Write "</script>" & vbCrLF

	SBody = SBody & "			</table>" & vbCRLF
	SBody = SBody & "		</div>" & vbCRLF
	SBody = SBody & "	</div>" & vbCRLF

	BODYSTR = SBody
	JBODYSTR = JBody

End Function

'#######################################################################################
'숫자 받는 TextBox형 Sum 계산
'VARIABLE : 변수 명
'ATTRIBUTE: 속성
'TEXT : 질문 TEXT
'MINV : 최소 입력값
'LENGTH : 입력 자리수
'SUMV : 합계 자동계산
'TLABEL : 총 합계 관련 TEXT
'BLABEL : 텍스트 박스 뒷자리 TEXT
'NFLAG : NONE 처리
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionNumberSUM(VARIABLE,ATTRIBUTE,TEXT,MINV,LENGTH,SUMV,TLABEL,BLABEL,NFLAG,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,iCnt,V1,V2
	Dim ATStr,A_COD,A1,A2
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	Dim MIV,MAV,LTH,SV

	If Minv="" Or Minv="0" Then	Minv="0"
	If LENGTH="" Or LENGTH="0" Then 
		LTH="1"
	Else
		LTH=LENGTH
	End If
	
	If SUMV="" Or SUMV="0" Then
		Response.Write "Please Need SUM Value"
		Exit Function
	Else
		SV = SUMV
	End IF

	HeightV = "30px"
	ATStr = Split(ATTRIBUTE,LABELSPLITTER)

	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	

	SBody = SBody & "	<div class='panel panel-default'>" & vbCRLF
	SBody = SBody & "		<div class='panel-heading'><h4 style='line-height:150%;'>" & TEXT & "</h4></div>" & vbCRLF

	SBody = SBody & "		<div class='panel-body'>" & vbCRLF

	SBody = SBody & "			<table id='" & VARIABLE & "_table' class='table table-hover' cellpadding='0' cellspacing='0' border='0'>" & vbCRLF
	SBody = SBody & "				<colgroup>" & vbCRLF
	SBody = SBody & "					<col width=""*""/>" & vbCRLF
	SBody = SBody & "					<col width=""35%""/>" & vbCRLF
	SBody = SBody & "				</colgroup>" & vbCRLF
	CTV = ""

	Response.Write vbCrLF
	Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
	Response.Write "<!--" & vbCRLF
	Response.Write "	$(document).ready(function(){" & vbCrLF
	Response.Write vbCRLF

	For iCnt=0 To UBound(ATStr)
		If VarType(ATStr)<>0 And VarType(ATSTR)<>1 Then
			A_COD = Split(ATStr(iCnt),CODESPLITTER)
			A1 = A_COD(0)
			A2 = A_COD(1)

			CTV = CTV & VARIABLE & "_" & A1 & ","
		End IF
	Next

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

	For iCnt=0 To UBound(ATStr)
		If VarType(ATStr)<>0 And VarType(ATSTR)<>1 Then
			A_COD = Split(ATStr(iCnt),CODESPLITTER)
			A1 = A_COD(0)
			A2 = A_COD(1)

			If InStr(A2,"*OTHER")<1 Then
				SBody = SBody & "				<tr>" & vbCRLF
				SBody = SBody & "				<td style=""text-align:left;"">&nbsp;<label id=""L" & VARIABLE & "_" & A1 & """>" & A2 & "</label></td>" & vbCRLF
				SBody = SBody & "				<td style=""text-align:center;"">" & vbCRLF
				SBody = SBody & "				<div class=""input-group"">" & vbCRLF
				SBody = SBody &"					<input type=""number"" class=""form-control"" name=""" & VARIABLE & "_"& A1 & """ id=""" & VARIABLE & "_"& A1 & """ value="""" size=""10"" maxlength="""& LTH & """ data-group="""&VARIABLE&"""/>"& vbCRLF
				If BLabel<>"" Then
				SBody = SBody & "					<div class=""input-group-addon"">"&BLabel &"</div>" & vbCRLF
				End If
				SBody = SBody & "				</div>" & vbCRLF
				SBody = SBody & "				</td>" & vbCRLF
				SBody = SBody & "				</tr>" & vbCRLF
			Else
				SBody = SBody & "				<tr>" & vbCRLF
				SBody = SBody & "				<td style=""text-align:left;"">&nbsp;<label id=""L" & VARIABLE & "_" & A1 & """>" & Replace(A2,"*OTHER","") & "</label>" 
				SBody = SBody & "				<input name=""T" & VARIABLE & "_" & A1 & """ id=""T" & VARIABLE & "_" & A1 & """ value="""" size=""15"" maxlength=""100""/></td>" & vbCRLF
				SBody = SBody & "				<td style=""text-align:center;"">" & vbCRLF
				SBody = SBody & "				<div class=""input-group"">" & vbCRLF
				SBody = SBody &"					<input type=""number"" class=""form-control"" name=""" & VARIABLE & "_"& A1 & """ id=""" & VARIABLE & "_"& A1 & """ value="""" size=""10"" maxlength="""& LTH & """ data-group="""&VARIABLE&"""/>"& vbCRLF
				If BLabel<>"" Then
				SBody = SBody & "					<div class=""input-group-addon"">"&BLabel &"</div>" & vbCRLF
				End If
				SBody = SBody & "				</div>" & vbCRLF
				SBody = SBody & "				</td>" & vbCRLF
				SBody = SBody & "				</tr>" & vbCRLF
			End IF
			VAR = VAR & VARIABLE & "_" & A1 & ","		

			JBody = JBody & "	if ($(""input[name=" &VARIABLE & "_" & A1 & "]"").val().trim()=="""")" & vbCrLF
			JBody = JBody & "	{" & vbCrLF
			JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(1) &""");" & vbCRLF
			JBody = JBody & "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
			JBody = JBody & "		return;" & vbCRLF
			JBody = JBody & "	}" & vbCRLF


			'숫자인지 체크
			JBody = JBody & "	if (!isNaN($(""input[name=" &VARIABLE & "_" & A1 & "]"").val().trim())==false)" & vbCrLF
			JBody = JBody & "	{" & vbCrLF
			JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(13) &""");" & vbCRLF
			JBody = JBody & "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
			JBody = JBody & "		return;" & vbCRLF
			JBody = JBody & "	}" & vbCRLF

			If Minv<>"" Then
				JBody = JBody & "	if (parseFloat($(""input[name=" &VARIABLE & "_" & A1 & "]"").val())<" & Minv & ")" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(6) &""");" & vbCRLF
				JBody = Replace(JBody,"#num#",MINV)
				JBody = JBody & "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
				JBody = JBody & "		return;" & vbCRLF
				JBody = JBody & "	}" & vbCRLF	
			End If
			
			If SV<>"" Then
				JBody = JBody & "	if (parseFloat($(""input[name=" &VARIABLE & "_" & A1 & "]"").val())>" & SV & ")" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(7) &""");" & vbCRLF
				JBody = Replace(JBody,"#num#",SUMV)
				JBody = JBody & "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
				JBody = JBody & "		return;" & vbCRLF
				JBody = JBody & "	}" & vbCRLF	
			End If
			
			If InStr(A2,"*OTHER")>0 Then

				JBody = JBody & "	if (($(""input[name=" &VARIABLE & "_" & A1 & "]"").val().trim()!=""0"") && ($(""#T" & VARIABLE & "_" & A1 &""").val().trim()==""""))" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(5) &""");" & vbCRLF
				JBody = JBody & "		$(""input[name=T" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
				JBody = JBody & "		return;" & vbCRLF
				JBody = JBody & "	}" & vbCRLF

				JBody = JBody & "	if (($(""input[name=" &VARIABLE & "_" & A1 & "]"").val().trim()==""0"") && ($(""#T" & VARIABLE & "_" & A1 &""").val().trim()!=""""))" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(5) &""");" & vbCRLF
				JBody = JBody & "		$(""input[name=T" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
				JBody = JBody & "		return;" & vbCRLF
				JBody = JBody & "	}" & vbCRLF

				'기타 특수문자
				JBody = JBody & "	if ($(""#T" & VARIABLE & "_" & A1 &""").val().trim()!="""")" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				JBody = JBody & "		if (containsChars($(""#T" & VARIABLE & "_" & A1 &""").val().trim()," & ERRORSTR & "))" & vbCrLF
				JBody = JBody & "		{" & vbCrLF
				JBody = JBody & "			alert("""&LangQuestion(3)&""");" & vbCrLF
				JBody = JBody & "			$(""input[name=T" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
				JBody = JBody & "			return;" & vbCRLF
				JBody = JBody & "		}" & vbCrLF
				JBody = JBody & "	}" & vbCrLF


				VAR = VAR & "T" & VARIABLE & "_" & A1 & ","
			End IF			
			
			Response.Write "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").numeric();" & vbCrLF
			Response.Write "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").css(""ime-mode"",""disabled"");" & vbCrLF
			If iCnt<>UBound(ATStr) Then
			Response.Write "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").blur(function(){" & vbCrLF
			Response.Write "			AttributeSum(""" & CTV & """);" & vbCRLF
			Response.Write "		});" & vbCrLF
			End IF
		End IF
	Next

	JBody = JBody & "	if (checkSum(""" &VARIABLE & """)==-1)" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(8) &""");" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCrLF

	JBody = JBody & "	if (checkSum(""" &VARIABLE & """)==1)" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(8) &""");" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCrLF

	Response.Write "	});" & vbCrLF
	Response.Write "//-->" & vbCrLF
	Response.Write "</script>" & vbCrLF
	
	SBody = SBody & "				<tr>" & vbCRLF
	SBody = SBody & "				<td style=""text-align:center;"">" & TLABEL & "<input type=""hidden"" name=""" & VARIABLE &"MAXV"" id=""" & VARIABLE &"MAXV"" value=""" & SV & """/></td>" & vbCRLF
	'SBody = SBody & "				<td style=""text-align:center;"">" & SV & BLABEL & " <span id='usum'>0</span>"&BLABEL&"</td>" & vbCRLF
	SBody = SBody & "				<td style=""text-align:center;"">" & SV & BLABEL & "</td>" & vbCRLF
	SBody = SBody & "				</tr>" & vbCRLF
	SBody = SBody & "			</table>" & vbCRLF
	SBody = SBody & "		</div>" & vbCRLF
	SBody = SBody & "	</div>" & vbCRLF

	BODYSTR = SBody
	JBODYSTR = JBody

End Function

'#######################################################################################
'숫자 받는 TextBox형 속성형
'VARIABLE : 변수 명
'ATTRIBUTE: 속성
'TEXT : 질문 TEXT
'MINV : 최소 입력값
'MAXV : 최대 입력값
'LENGTH : 입력 자리수
'PLABEL : 텍스트 박스 앞자리 TEXT
'BLABEL : 텍스트 박스 뒷자리 TEXT
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionNumberMATRIXGROUP(VARIABLE,ATTRIBUTE,TEXT,MINV,MAXV,LENGTH,PLABEL,BLABEL,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,iCnt,V1,V2
	Dim ATStr,A_COD,A1,A2
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	Dim MIV,MAV,LTH
	Dim COL
	Dim GTStr,TTStr,cCnt

	If Minv="" Or Minv="0" Then	Minv="0"
	If MAXV="" Or MAXV="0" Then MAXV=""
	If LENGTH="" Or LENGTH="0" Then 
		LTH="1"
	Else
		LTH=LENGTH
	End IF

	HeightV = "30px"	
	GTSTr = Split(ATTRIBUTE,GROUPSPLITTER)
'	COL = UBound(ATStr)

	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	

	SBody = SBody & "	<div class='panel panel-default'>" & vbCRLF
	SBody = SBody & "		<div class='panel-heading'><h4 style='line-height:150%;'>" & TEXT & "</h4></div>" & vbCRLF

	SBody = SBody & "		<div class='panel-body'>" & vbCRLF
	SBody = SBody & "			<table id='" & VARIABLE & "_table' class='table table-bordered table-responsive' cellpadding='0' cellspacing='0' border='0'>" & vbCRLF
	SBody = SBody & "				<colgroup>" & vbCRLF
	SBody = SBody & "					<col width=""12%""/>" & vbCRLF
	SBody = SBody & "					<col width=""*""/>" & vbCRLF
	SBody = SBody & "					<col width=""35%""/>" & vbCRLF

	SBody = SBody & "				</colgroup>" & vbCRLF

	Response.Write vbCrLF
	Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
	Response.Write "<!--" & vbCRLF
	Response.Write "	$(document).ready(function(){" & vbCrLF

	For cCnt=0 To UBound(GTStr)

		If VarType(GTStr)<>0 And VarType(GTStr)<>1 Then

		TTStr = Split(GTStr(cCnt),GCODESPLITTER)
		ATStr = Split(TTStr(1),LABELSPLITTER)

		For iCnt=0 To UBound(ATStr)
			If VarType(ATStr)<>0 And VarType(ATSTR)<>1 Then
				A_COD = Split(ATStr(iCnt),CODESPLITTER)
				A1 = A_COD(0)
				A2 = A_COD(1)
				SBody = SBody & "				<tr>" & vbCRLF
				
				If iCnt=0 Then
				SBody = SBody & "				<th style=""vertical-align:middle;"" class=""text-center info middle"" Rowspan="""&UBound(ATStr)+1&""" >" & TTStr(0) & "</th>" & vbCRLF	
				End IF

				SBody = SBody & "				<td class=""text-left""><label id=""L" & VARIABLE & "_" & A1 & """>" & A2 & "</label></td>" & vbCRLF
				SBody = SBody & "				<td class=""text-left"">" & vbCRLF
				SBody = SBody & "				<div class=""input-group"">" & vbCRLF
				If PLabel<>"" Then
				SBody = SBody & "					<div class=""input-group-addon"">"&PLabel &"</div>" & vbCRLF
				End If
				SBody = SBody &"					<input type=""number"" class=""form-control"" name=""" & VARIABLE & "_"& A1 & """ id=""" & VARIABLE & "_"& A1 & """ value="""" size=""10"" maxlength="""& LTH & """ min="""&MINV&""" max="""&MAXV&"""/>"& vbCRLF
				If BLabel<>"" Then
				SBody = SBody & "					<div class=""input-group-addon"">"&BLabel &"</div>" & vbCRLF
				End If
				SBody = SBody & "				</div>" & vbCRLF
				SBody = SBody &	"			</td>" & vbCRLF
				SBody = SBody & "				</tr>" & vbCRLF
				VAR = VAR & VARIABLE & "_" & A1 & ","		

				JBody = JBody & "	if ($("& Chr(34) & "#" &VARIABLE & "_" & A1 & Chr(34) &").val()=="""")" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""] "& LangQuestion(1) &""");" & vbCRLF
				JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_" & A1 & Chr(34) & ").focus();" & vbCRLF
				JBody = JBody & "		return;" & vbCRLF
				JBody = JBody & "	}" & vbCRLF

				'숫자인지 체크
				JBody = JBody & "	if (!isNaN($("& Chr(34) & "#" &VARIABLE & "_" & A1 & Chr(34) &").val().trim())==false)" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(13) &""");" & vbCRLF
				JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_" & A1 & Chr(34) & ").focus();" & vbCRLF
				JBody = JBody & "		return;" & vbCRLF
				JBody = JBody & "	}" & vbCRLF

				If Minv<>"" Then
					JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & "_" & A1 & Chr(34) &").val())<" & Minv & ")" & vbCrLF
					JBody = JBody & "	{" & vbCrLF		
					JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(6) &""");" & vbCRLF
					JBody = Replace(JBody,"#num#",MINV)
					JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_" & A1 & Chr(34) & ").focus();" & vbCRLF
					JBody = JBody & "		return;" & vbCRLF
					JBody = JBody & "	}" & vbCRLF	
				End If
				
				If MAXV<>"" Then
					JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & "_" & A1 & Chr(34) &").val())>" & MAXV & ")" & vbCrLF
					JBody = JBody & "	{" & vbCrLF
					JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(7) &""");" & vbCRLF
					JBody = Replace(JBody,"#num#",MAXV)
					JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_" & A1 & Chr(34) & ").focus();" & vbCRLF
					JBody = JBody & "		return;" & vbCRLF
					JBody = JBody & "	}" & vbCRLF	
				End IF

'				VAR = VARIABLE & ","
				
				Response.Write "		$(""#" & VARIABLE & "_" & A1 & """).numeric();" & vbCrLF
				Response.Write "		$(""#" & VARIABLE & "_" & A1 & """).css(""ime-mode"",""disabled"");" & vbCrLF
			End IF
		Next
		End If
	Next

	Response.Write "	});" & vbCrLF
	Response.Write "//-->" & vbCrLF
	Response.Write "</script>" & vbCrLF

	SBody = SBody & "			</table>" & vbCRLF
	SBody = SBody & "		</div>" & vbCRLF
	SBody = SBody & "	</div>" & vbCRLF

	BODYSTR = SBody
	JBODYSTR = JBody

End Function

'#######################################################################################
'숫자 받는 TextBox형 Sum 계산 (그룹)
'VARIABLE : 변수 명
'ATTRIBUTE: 속성
'TEXT : 질문 TEXT
'MINV : 최소 입력값
'LENGTH : 입력 자리수
'SUMV : 합계 자동계산
'TLABEL : 총 합계 관련 TEXT
'BLABEL : 텍스트 박스 뒷자리 TEXT
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionNumberSUMGROUP(VARIABLE,ATTRIBUTE,TEXT,MINV,LENGTH,SUMV,TLABEL,BLABEL,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,iCnt,V1,V2
	Dim ATStr,A_COD,A1,A2
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	Dim MIV,MAV,LTH,SV
	Dim GTStr,TTStr,cCnt

	If Minv="" Or Minv="0" Then	Minv="0"
	If LENGTH="" Or LENGTH="0" Then 
		LTH="1"
	Else
		LTH=LENGTH
	End If
	
	If SUMV="" Or SUMV="0" Then
		Response.Write "Please Need SUM Value"
		Exit Function
	Else
		SV = SUMV
	End IF

	HeightV = "30px"
	GTSTr = Split(ATTRIBUTE,GROUPSPLITTER)

	

	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	

	SBody = SBody & "	<div class='panel panel-default'>" & vbCRLF
	SBody = SBody & "		<div class='panel-heading'><h4 style='line-height:150%;'>" & TEXT & "</h4></div>" & vbCRLF

	SBody = SBody & "		<div class='panel-body'>" & vbCRLF
	SBody = SBody & "			<table id='" & VARIABLE & "_table' class='table table-bordered table-responsive' cellpadding='0' cellspacing='0' border='0'>" & vbCRLF
	SBody = SBody & "				<colgroup>" & vbCRLF
	SBody = SBody & "					<col width=""*""/>" & vbCRLF
	SBody = SBody & "					<col width=""35%""/>" & vbCRLF
	SBody = SBody & "				</colgroup>" & vbCRLF
	CTV = ""

	Response.Write vbCrLF
	Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
	Response.Write "<!--" & vbCRLF
	Response.Write "	$(document).ready(function(){" & vbCrLF
	Response.Write vbCRLF

	For cCnt=0 To UBound(GTStr)

		If VarType(GTStr)<>0 And VarType(GTStr)<>1 Then

		TTStr = Split(GTStr(cCnt),GCODESPLITTER)
		ATStr = Split(TTStr(1),LABELSPLITTER)

		For iCnt=0 To UBound(ATStr)
			If VarType(ATStr)<>0 And VarType(ATSTR)<>1 Then
				A_COD = Split(ATStr(iCnt),CODESPLITTER)
				A1 = A_COD(0)
				A2 = A_COD(1)

				CTV = CTV & VARIABLE & "_" & A1 & ","
			End IF
		Next
		End If
	Next

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

	For cCnt=0 To UBound(GTStr)

		If VarType(GTStr)<>0 And VarType(GTStr)<>1 Then

		TTStr = Split(GTStr(cCnt),GCODESPLITTER)
		ATStr = Split(TTStr(1),LABELSPLITTER)

		For iCnt=0 To UBound(ATStr)
			If VarType(ATStr)<>0 And VarType(ATSTR)<>1 Then
				A_COD = Split(ATStr(iCnt),CODESPLITTER)
				A1 = A_COD(0)
				A2 = A_COD(1)

				If InStr(A2,"*OTHER")<1 Then
					SBody = SBody & "				<tr>" & vbCRLF

					If iCnt=0 Then
					SBody = SBody & "				<th class=""text-center info"" style=""vertical-align:middle;"" Rowspan="""&UBound(ATStr)+1&""">" & TTStr(0) & "</th>" & vbCRLF	
					End IF

					SBody = SBody & "				<td style=""text-align:left;"">&nbsp;<label id=""L" & VARIABLE & "_" & A1 & """>" & A2 & "</label></td>" & vbCRLF
					SBody = SBody & "				<td style=""text-align:center;"">" & vbCRLF
					SBody = SBody & "				<div class=""input-group"">" & vbCRLF
					SBody = SBody &"					<input type=""number"" class=""form-control"" name=""" & VARIABLE & "_"& A1 & """ id=""" & VARIABLE & "_"& A1 & """ value="""" size=""10"" maxlength="""& LTH & """/>"& vbCRLF
					If BLabel<>"" Then
					SBody = SBody & "					<div class=""input-group-addon"">"&BLabel &"</div>" & vbCRLF
					End If
					SBody = SBody & "				</div>" & vbCRLF
					SBody = SBody & "				</td>" & vbCRLF
					SBody = SBody & "				</tr>" & vbCRLF
				Else
					SBody = SBody & "				<tr>" & vbCRLF

					If iCnt=0 Then
					SBody = SBody & "				<td style=""text-align:left;"" Rowspan="""&UBound(ATStr)+1&""">" & TTStr(0) & "</td>" & vbCRLF	
					End IF

					SBody = SBody & "				<td style=""text-align:left;"">&nbsp;<label id=""L" & VARIABLE & "_" & A1 & """>" & Replace(A2,"*OTHER","") & "</label>" 
					SBody = SBody & "				<input name=""T" & VARIABLE & "_" & A1 & """ id=""T" & VARIABLE & "_" & A1 & """ value="""" size=""15"" maxlength=""100""/></td>" & vbCRLF
'					SBody = SBody & "				<td style=""text-align:center;""><input type=""TEXT"" name=""" & VARIABLE & "_"& A1 & """ id=""" & VARIABLE & """ value="""" size=""10"" maxlength="""& LTH & """/>" & BLABEL &"</td>" & vbCRLF
					SBody = SBody & "				<td style=""text-align:center;"">" & vbCRLF
					SBody = SBody & "				<div class=""input-group"">" & vbCRLF
					SBody = SBody &"					<input type=""number"" class=""form-control"" name=""" & VARIABLE & "_"& A1 & """ id=""" & VARIABLE & "_"& A1 & """ value="""" size=""10"" maxlength="""& LTH & """/>"& vbCRLF
					If BLabel<>"" Then
					SBody = SBody & "					<div class=""input-group-addon"">"&BLabel &"</div>" & vbCRLF
					End If
					SBody = SBody & "				</div>" & vbCRLF
					SBody = SBody & "				</td>" & vbCRLF
					SBody = SBody & "				</tr>" & vbCRLF
				End IF
				VAR = VAR & VARIABLE & "_" & A1 & ","		

				JBody = JBody & "	if ($(""input[name=" &VARIABLE & "_" & A1 & "]"").val().trim()=="""")" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(1) &""");" & vbCRLF
				JBody = JBody & "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
				JBody = JBody & "		return;" & vbCRLF
				JBody = JBody & "	}" & vbCRLF

				'숫자인지 체크
				JBody = JBody & "	if (!isNaN($(""input[name=" &VARIABLE & "_" & A1 & "]"").val().trim())==false)" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(13) &""");" & vbCRLF
				JBody = JBody & "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
				JBody = JBody & "		return;" & vbCRLF
				JBody = JBody & "	}" & vbCRLF

				If Minv<>"" Then
					JBody = JBody & "	if (parseFloat($(""input[name=" &VARIABLE & "_" & A1 & "]"").val())<" & Minv & ")" & vbCrLF
					JBody = JBody & "	{" & vbCrLF
					JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(6) &""");" & vbCRLF
					JBody = Replace(JBody,"#num#",MINV)
					JBody = JBody & "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
					JBody = JBody & "		return;" & vbCRLF
					JBody = JBody & "	}" & vbCRLF	
				End If
				
				If SV<>"" Then
					JBody = JBody & "	if (parseFloat($(""input[name=" &VARIABLE & "_" & A1 & "]"").val())>" & SV & ")" & vbCrLF
					JBody = JBody & "	{" & vbCrLF
					JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(7) &""");" & vbCRLF
					JBody = Replace(JBody,"#num#",SUMV)
					JBody = JBody & "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
					JBody = JBody & "		return;" & vbCRLF
					JBody = JBody & "	}" & vbCRLF	
				End If
				
				If InStr(A2,"*OTHER")>0 Then
					JBody = JBody & "	if (($(""input[name=" &VARIABLE & "_" & A1 & "]"").val().trim()!=""0"") && ($(""#T" & VARIABLE & "_" & A1 &""").val().trim()==""""))" & vbCrLF
					JBody = JBody & "	{" & vbCrLF
					JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(5) &""");" & vbCRLF
					JBody = JBody & "		$(""input[name=T" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
					JBody = JBody & "		return;" & vbCRLF
					JBody = JBody & "	}" & vbCRLF

					JBody = JBody & "	if (($(""input[name=" &VARIABLE & "_" & A1 & "]"").val().trim()==""0"") && ($(""#T" & VARIABLE & "_" & A1 &""").val().trim()!=""""))" & vbCrLF
					JBody = JBody & "	{" & vbCrLF
					JBody = JBody & "		alert(""[""+$(""#L" &  VARIABLE & "_" & A1 & """).text()+""]  "& LangQuestion(5) &""");" & vbCRLF
					JBody = JBody & "		$(""input[name=T" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
					JBody = JBody & "		return;" & vbCRLF
					JBody = JBody & "	}" & vbCRLF

					'기타 특수문자
					JBody = JBody & "	if ($(""#T" & VARIABLE & "_" & A1 &""").val().trim()!="""")" & vbCrLF
					JBody = JBody & "	{" & vbCrLF
					JBody = JBody & "		if (containsChars($(""#T" & VARIABLE & "_" & A1 &""").val().trim()," & ERRORSTR & "))" & vbCrLF
					JBody = JBody & "		{" & vbCrLF
					JBody = JBody & "			alert("""&LangQuestion(3)&""");" & vbCrLF
					JBody = JBody & "			$(""input[name=T" & VARIABLE & "_" & A1 & "]"").focus();" & vbCRLF
					JBody = JBody & "			return;" & vbCRLF
					JBody = JBody & "		}" & vbCrLF
					JBody = JBody & "	}" & vbCrLF

					VAR = VAR & "T" & VARIABLE & "_" & A1 & ","
				End IF			
				
				Response.Write "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").numeric();" & vbCrLF
				Response.Write "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").css(""ime-mode"",""disabled"");" & vbCrLF
				If iCnt<>UBound(ATStr) Then
				Response.Write "		$(""input[name=" & VARIABLE & "_" & A1 & "]"").blur(function(){" & vbCrLF
				Response.Write "			AttributeSum(""" & CTV & """);" & vbCRLF
				Response.Write "		});" & vbCrLF
				End IF
			End IF
		Next
		End If
	Next

	JBody = JBody & "	if (checkSum(""" &VARIABLE & """)==-1)" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(8) &""");" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCrLF

	JBody = JBody & "	if (checkSum(""" &VARIABLE & """)==1)" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(8) &""");" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCrLF

	Response.Write "	});" & vbCrLF
	Response.Write "//-->" & vbCrLF
	Response.Write "</script>" & vbCrLF
	
	SBody = SBody & "				<tr>" & vbCRLF
	SBody = SBody & "				<td style=""text-align:center;""></td>" & vbCRLF
	SBody = SBody & "				<td style=""text-align:center;"">" & TLABEL & "<input type=""hidden"" name=""" & VARIABLE &"MAXV"" id=""" & VARIABLE &"MAXV"" value=""" & SV & """/></td>" & vbCRLF
	SBody = SBody & "				<td style=""text-align:center;"">" & SV & BLABEL & "</td>" & vbCRLF
	SBody = SBody & "				</tr>" & vbCRLF
	SBody = SBody & "			</table>" & vbCRLF
	SBody = SBody & "		</div>" & vbCRLF
	SBody = SBody & "	</div>" & vbCRLF

	BODYSTR = SBody
	JBODYSTR = JBody

End Function

'#######################################################################################
'숫자 받는 TextBox형
'VARIABLE : 변수 명
'TEXT : 질문 TEXT
'MINV : 최소 입력값
'MAXV : 최대 입력값
'LENGTH : 입력 자리수
'PLABEL : 텍스트 박스 앞자리 TEXT
'BLABEL : 텍스트 박스 뒷자리 TEXT
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionNumberJum(VARIABLE,TEXT,MINV,MAXV,LENGTH,PLABEL,BLABEL,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,iCnt,V1,V2	
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	Dim MIV,MAV,LTH

	If Minv="" Or Minv="0" Then	Minv=""
	If MAXV="" Or MAXV="0" Then MAXV=""
	If LENGTH="" Or LENGTH="0" Then 
		LTH="1"
	Else
		LTH=LENGTH
	End IF

	HeightV = "30px"

	

	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	

	SBody = SBody & "	<div class='panel panel-default'>" & vbCRLF
	SBody = SBody & "		<div class='panel-heading'><h4 style='line-height:150%;'>" & TEXT & "</h4></div>" & vbCRLF

	SBody = SBody & "		<div class='panel-body'>" & vbCRLF

	SBody = SBody & "			<div class=""col-md-3 col-xs-4"">" & vbCRLF
	SBody = SBody & "				<div class=""input-group"">" & vbCRLF
	If PLabel<>"" Then
	SBody = SBody & "					<div class=""input-group-addon"">"&PLabel &"</div>" & vbCRLF
	End IF
	SBody = SBody & "					<input type=""number"" class=""form-control"" name=""" & VARIABLE & """ id=""" & VARIABLE & """ value="""" min="""&MINV&""" max="""&MAXV&""" size=""10"" maxlength=""" & LTH & """/>" & vbCRLF
	If BLabel<>"" Then
	End If
	SBody = SBody & "					<div class=""input-group-addon"">"&BLabel &"</div>" & vbCRLF
	SBody = SBody & "				</div>" & vbCRLF
	SBody = SBody & "			</div>" & vbCRLF

	JBody = JBody & "	if ($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val()=="""")" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(1) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF

	'숫자인지 체크
	JBody = JBody & "	if (!isNaN($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())==false)" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(13) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF

	'소수점 한자리 체크 
	JBody = JBody & "	if(is_float_1($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())==false)" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(17) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF

	
	If Minv<>"" Then
		JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())<" & Minv & ".0)" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert("""& LangQuestion(6) &""");" & vbCRLF
		JBody = Replace(JBody,"#num#",MINV)		
		JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF	
	End If
	
	If MAXV<>"" Then
		JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & Chr(34) &").val())>" & MAXV & ".9)" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert("""& LangQuestion(7) &""");" & vbCRLF
		JBody = Replace(JBody,"#num#",MAXV & ".9")
		JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF	
	End IF

	VAR = VARIABLE & ","
	
	Response.Write vbCrLF
	Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
	Response.Write "<!--" & vbCRLF
	Response.Write "	$(document).ready(function(){" & vbCrLF
	Response.Write "		$(""#" & VARIABLE & """).numeric({allow:"".""});" & vbCrLF
	Response.Write "		$(""#" & VARIABLE & """).css(""ime-mode"",""disabled"");" & vbCrLF
	Response.Write "	});" & vbCrLF
	Response.Write "//-->" & vbCrLF
	Response.Write "</script>" & vbCrLF

	BODYSTR = SBody
	JBODYSTR = JBody

End Function

'#######################################################################################
'연도와 월을 받는 
'VARIABLE : 변수 명
'TEXT : 질문 TEXT
'MINY : 최소 입력값 - 1
'MAXY : 최대 입력값 - 1
'LENGTH : 입력 자리수 
'MINM : 최소 입력값 - 2
'MAXM : 최대 입력값 - 2
'YLABEL : TEXT
'MLABEL : TEXT
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionBETWEEN(VARIABLE,TEXT,MINY,MAXY,LENGTH,MINM,MAXM,YLABEL,MLABEL,NFlag,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,iCnt,V1,V2	
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	Dim MIV,MAV,LTH

	If LENGTH="" Or LENGTH="0" Then 
		LTH="1"
	Else
		LTH=LENGTH
	End IF

	HeightV = "30px"

	

	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	

	VAR = VARIABLE & ","
	SBody = SBody & "	<div class='panel panel-default'>" & vbCRLF
	SBody = SBody & "		<div class='panel-heading'><h4 style='line-height:150%;'>" & TEXT & "</h4></div>" & vbCRLF

	SBody = SBody & "		<div class='panel-body'>" & vbCRLF

	SBody = SBody & "			<div class=""form-group"">" & vbCRLF
	SBody = SBody & "				<div class=""input-group"">" & vbCRLF
	SBody = SBody & "					<input type=""number"" class=""form-control"" name=""" & VARIABLE & "_1"" id=""" & VARIABLE & "_1"" value="""" min="""&MINY&""" max="""&MAXY&""" size=""20"" maxlength=""" & LTH & """/>" & vbCRLF
	If YLabel<>"" Then
	End If
	SBody = SBody & "					<div class=""input-group-addon"">"&YLabel &"</div>" & vbCRLF
	SBody = SBody & "				</div>" & vbCRLF
	SBody = SBody & "			</div>" & vbCRLF

	SBody = SBody & "			<label>~</label>" & vbCRLF

	SBody = SBody & "			<div class=""form-group"">" & vbCRLF
	SBody = SBody & "				<div class=""input-group"">" & vbCRLF
	SBody = SBody & "					<input type=""number"" class=""form-control"" name=""" & VARIABLE & "_2"" id=""" & VARIABLE & "_2"" value="""" min="""&MINM&""" max="""&MAXM&""" size=""20"" maxlength=""" & LTH & """/>" & vbCRLF
	If MLabel<>"" Then
	End If
	SBody = SBody & "					<div class=""input-group-addon"">"&MLabel &"</div>" & vbCRLF
	SBody = SBody & "				</div>" & vbCRLF
	SBody = SBody & "			</div>" & vbCRLF


	If NFlag Then
		SBody = SBody & "		<p></p><div class=""col-md-12 col-xs-12""><div class=""checkbox""><label style=""cursor:pointer;""><input type=""checkbox"" id="""&VARIABLE&"_NONE"" name="""&VARIABLE&"_NONE"" value=""1""/> "&NONSTR&"</label></div></div>" & vbCRLF
		VAR = VAR & VARIABLE & "_NONE,"
	End IF

	SBody = SBody & "		</div>" & vbCRLF
	SBody = SBody & "	</div>" & vbCRLF

	If NFlag Then
	JBody = JBody & "	if ($("& Chr(34) & "#" & VARIABLE & "_NONE" & Chr(34) &").is("":checked"")==false){" & vbCrLF
	End if

	JBody = JBody & "	if ($("& Chr(34) & "#" &VARIABLE & "_1" & Chr(34) &").val()=="""")" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(1) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_1" & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF

	JBody = JBody & "	if ($("& Chr(34) & "#" &VARIABLE & "_2" & Chr(34) &").val()=="""")" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(1) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_2" & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF

	'숫자인지 체크
	JBody = JBody & "	if (!isNaN($("& Chr(34) & "#" &VARIABLE & "_1" & Chr(34) &").val())==false)" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(13) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_1" & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF

	'숫자인지 체크
	JBody = JBody & "	if (!isNaN($("& Chr(34) & "#" &VARIABLE & "_2" & Chr(34) &").val())==false)" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(13) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_2" & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF
	
	If MinY<>"" Then
		JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & "_1" & Chr(34) &").val())<" & MinY & ")" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert("""& LangQuestion(6) &""");" & vbCRLF
		JBody = Replace(JBody,"#num#",MINY)
		JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_1" & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF	
	End If
	
	If MAXY<>"" Then
		JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & "_1" & Chr(34) &").val())>" & MAXY & ")" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert("""& LangQuestion(7) &""");" & vbCRLF
		JBody = Replace(JBody,"#num#",MAXY)
		JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_1" & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF	
	End If
	
	If MinM<>"" Then
		JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & "_2" & Chr(34) &").val())<" & MinM & ")" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert("""& LangQuestion(6) &""");" & vbCRLF
		JBody = Replace(JBody,"#num#",MINM)
		JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_1" & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF	
	End If
	
	If MAXM<>"" Then
		JBody = JBody & "	if (parseFloat($("& Chr(34) & "#" &VARIABLE & "_2" & Chr(34) &").val())>" & MAXM & ")" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert("""& LangQuestion(7) &""");" & vbCRLF
		JBody = Replace(JBody,"#num#",MAXM)
		JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_2" & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF	
	End If

	JBody = JBody & "	if ((parseFloat($("& Chr(34) & "#" &VARIABLE & "_1" & Chr(34) &").val()))>(parseFloat($("& Chr(34) & "#" &VARIABLE & "_2" & Chr(34) &").val())))" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""& LangQuestion(16) &""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & "_2" & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "		return;" & vbCRLF
	JBody = JBody & "	}" & vbCRLF	

	If NFlag Then
		JBody = JBody & "		}" & vbCrLF
	End if
	
	Response.Write vbCrLF
	Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
	Response.Write "<!--" & vbCRLF
	Response.Write "	$(document).ready(function(){" & vbCrLF
	Response.Write "		$(""#" & VARIABLE & "_1"").numeric();" & vbCrLF
	Response.Write "		$(""#" & VARIABLE & "_1"").css(""ime-mode"",""disabled"");" & vbCrLF
	Response.Write "		$(""#" & VARIABLE & "_2"").numeric();" & vbCrLF
	Response.Write "		$(""#" & VARIABLE & "_2"").css(""ime-mode"",""disabled"");" & vbCrLF
	Response.write "        $(""form[name='Survey']"").addClass(""form-inline"");" & vbCrLF
	If NFlag Then
		Response.Write "		$(""#"&VARIABLE&"_NONE"").click(function(){" & vbCrLF
		Response.Write "			itemDisabledSetup("""&VARIABLE&"_1,"&VARIABLE&"_2"".split("",""),$(""#"&VARIABLE&"_NONE"").prop(""checked""));" & vbCrLF
		Response.Write "		})" & vbCrLf
	End If
	Response.Write "	});" & vbCrLF
	Response.Write "//-->" & vbCrLF
	Response.Write "</script>" & vbCrLF

	BODYSTR = SBody
	JBODYSTR = JBody

End Function
%>