<%
'#######################################################################################
'속성형태 라디오 + 이유 - 가로보기
'VARIABLE1 : 속성 변수 명
'VARIABLE2 : 이유 변수 명
'CODES : 코드 라벨
'ATTRIBUTE: 속성
'TEXT1 : 질문 TEXT 1
'TEXT2 : 질문 TEXT 2
'STEPFLAG : 순차 적용
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트 
'#######################################################################################
Function SingleTextMATRIX(VARIABLE1,VARIABLE2,CODES,ATTRIBUTE,TEXT1,TEXT2,STEPFLAG,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,ITStr,V_COD,iCnt,cCnt,V1,V2
	Dim ATStr,A_COD,A1,A2
	Dim JBody
	Dim QName
	Dim DSTR,ESTR,OSTR,COL,AVAR
	Dim WidthV,HeightV,CTV,LTV
	Dim XVX
	Dim HDStr
	Dim MH

	HeightV = "45px"
	OSTR = ""
	MH = 4 '최소 응답 글자수

	

	ITStr = Split(CODES,LABELSPLITTER)
	ATStr = Split(ATTRIBUTE,LABELSPLITTER)
	COL = UBound(ITStr)
	CTV = Col
	AVAR = ""

	Select Case COL
		Case 0
			XVX = 30
		Case 1
			XVX = 30
		Case 2
			XVX = 40
		Case 3
			XVX = 40
		Case 4
			XVX = 40
		Case 5
			XVX = 40
		Case 6
			XVX = 50
		Case Else
			XVX = 60
	End Select
	

	WidthV = FormatNumber(CDbl(XVX/COL),2)

	SBody = ""
	JBody = ""

	SBody = SBody & "	<div class=" & Chr(34) & "outdiv" & Chr(34) & ">" & vbCRLF
	SBody = SBody & "		<p><img src=" & CHR(34) & "./images/" & QNAME & ".gif" & CHR(34) & " class=" & CHR(34) & "middle" & CHR(34) & " alt=" & CHR(34) & "" & CHR(34) & "/>&nbsp;" & TEXT1 & "</p>" & vbCRLF
	SBody = SBody & "		<p><img src=" & CHR(34) & "./images/" & QNAME & ".gif" & CHR(34) & " class=" & CHR(34) & "middle" & CHR(34) & " alt=" & CHR(34) & "" & CHR(34) & "/>&nbsp;" & TEXT2 & "</p>" & vbCRLF
	SBody = SBody & "		<div class=" & CHR(34) & "indiv" & CHR(34) & ">" & vbCRLF
	DSTR = ""	
	HDSTR = ""

	JBody = JBody & "	var xx;" & vbCRLF & vbCRLF

	For cCnt=0 To UBound(ATStr)

		If VarType(ATStr(cCnt))<>0 And VarType(ATStr(cCnt))<>1 And ATStr(cCnt)<>"" Then
			A_COD = Split(ATStr(cCnt),CODESPLITTER)
			A1 = A_COD(0)
			A2 = A_COD(1)

			'Header TR 라인 생성
			If cCnt=0 Then
				HDSTR = "					<TR id=""HCOL" & VARIABLE1 & "_" & A1 & """>" & vbCRLF
				HDSTR = HDSTR & "						<TH rowspan=""2"">&nbsp;</TH>" & vbCRLF
				HDSTR = HDSTR & "						<TH colspan="""&UBound(ITStr)+1&""">" & VARIABLE1 & "</TH>" & vbCRLF
				HDSTR = HDSTR & "						<TH rowspan=""2"">" & VARIABLE2 & "</TH>" & vbCRLF
				HDSTR = HDSTR & "					</TR>" & vbCRLF
				HDSTR = HDSTR & "					<TR>" & vbCRLF
			End If

			DSTR = DSTR & "					<TR id=""COL" & VARIABLE1 & "_" & A1 & """>" & vbCRLF
			DSTR = DSTR & "						<TD class=""ATTHeader"">" & Replace(Replace(A2,"*OTHER",""),"*NONE","") & "</TD>" & vbCrLF

			For iCnt=0 To UBound(ITStr)
				If VarType(ITStr(iCnt))<>0 And VarType(ITStr(iCnt))<>1 Then
					V_COD = Split(ITStr(iCnt),CODESPLITTER)
					V1 = V_COD(0)
					V2 = V_COD(1)
					DSTR = DSTR & "						<TD style=""text-align:center;"">"
					DSTR = DSTR & "<input type=" & CHR(34) & "radio" & CHR(34) & " name=" & CHR(34) & VARIABLE1 & "_" & A1 & CHR(34) & " id=""" & VARIABLE1 & "_" & A1 & "_" & V1 & """ class=" & CHR(34) & "radio1" & CHR(34) & " value=" & Chr(34) & V1 & Chr(34) & "/></TD>" & vbCRLF

					If cCnt=0 Then
						HDSTR = HDSTR & "						<TH>" & Replace(Replace(V2,"*OTHER",""),"*NONE","") & "<br>(" & V1 & ")" & "</TH>" & vbCrLF
					End If
				End IF
			Next
			DSTR = DSTR & "						<TD style=""text-align:left;"">"
			DSTR = DSTR & "<input type=""text"" name="""&VARIABLE2&"_"&A1&""" id="""&VARIABLE2&"_"&A1&""" value="""" style=""width:98%"" maxlength=""100"">"
			DSTR = DSTR & "</TD>" & vbCRLF

			If cCnt=0 Then
				HDSTR = HDSTR & "					</TR>" & VBCRLF
			End If

			DSTR = DSTR & "					</TR>"
			DSTR = DSTR & "" & LABELSPLITTER
			VAR = VAR & VARIABLE1 & "_" & A1 & "," & VARIABLE2 & "_" & A1 & ","
			AVAR = AVAR & VARIABLE1 & "_" & A1 & ","

			JBody = JBody & "	if (getRadioValue("& Chr(34) & VARIABLE1 & "_" & A1 & Chr(34) &")==undefined)" & vbCrLF
			JBody = JBody & "	{" & vbCrLF
			JBody = JBody & "		alert(" & Chr(34) & "[" & cCnt+1 & " 번째]" & LangQuestion(1) & Chr(34) & ");" & vbCRLF
			JBody = JBody & "		$(" & Chr(34) & "input[name=" & VARIABLE1 & "_" & A1 &"]:eq(0)" & Chr(34) & ").focus();" & vbCRLF
			JBody = JBody & "		return;" & vbCRLF
			JBody = JBody & "	}" & vbCRLF & vbCRLF

			JBody = JBody & "	if ($("& Chr(34) & "#" & VARIABLE2 & "_" & A1 & Chr(34) &").val()=="""")" & vbCrLF
			JBody = JBody & "	{" & vbCrLF
			JBody = JBody & "		alert(""(" & (cCnt+1) & ") "& LangQuestion(1) &""");" & vbCRLF
			JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE2  & "_" & A1 & Chr(34) & ").focus();" & vbCRLF
			JBody = JBody & "		return;" & vbCRLF
			JBody = JBody & "	}" & vbCRLF

			JBody = JBody & "	if ($("& Chr(34) & "#" & VARIABLE2 & "_" & a1 & Chr(34) &").val()!="""")" & vbCrLF
			JBody = JBody & "	{" & vbCrLF

			JBody = JBody & "		xx = $(""#" & VARIABLE2 & "_" & a1 & """).val().trim();" & vbCrLF			

			JBody = JBody & "		if (xx.length<" & MH & ")" & vbCrLF
			JBody = JBody & "		{" & vbCrLF
			JBody = JBody & "			alert(""" & (cCnt+1) & LangQuestion(2) &""");" & vbCRLF
			JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE2  & "_" & a1 & Chr(34) & ").focus();" & vbCRLF
			JBody = JBody & "			return;" & vbCRLF
			JBody = JBody & "		}" & vbCrLF & vbCrLF

			JBody = JBody & "		if (containsChars(xx," & ERRORSTR & "))" & vbCrLF
			JBody = JBody & "		{" & vbCrLF
			JBody = JBody & "			alert("""& LangQuestion(3) &""");" & vbCrLF
			JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE2  & "_" & a1 & Chr(34) & ").focus();" & vbCRLF
			JBody = JBody & "			return;" & vbCRLF
			JBody = JBody & "		}" & vbCrLF

			JBody = JBody & "	}" & vbCrLF


		End IF
	Next

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

	If UBound(ATStr)>4 Then
		Response.Write vbCrLF
		Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
		Response.Write "<!--" & vbCRLF
		Response.Write "	var " & VARIABLE1 & "Flag;" & vbCrLf
		Response.Write "	" & VARIABLE1 & "Flag=false;" & vbCrLf
		Response.Write "//-->" & vbCRLF
		Response.Write "</script>" & vbCrLF

		JBody = JBody & "	if ((" & VARIABLE1 & "Flag==false) && (RadioArray(""" & AVAR & """)))" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert(" & Chr(34) & LangQuestion(4) & Chr(34) & ");" & vbCRLF
		JBody = JBody & "		$(" & Chr(34) & "input[name=" & VARIABLE1 & "_" & A1 &"]:eq(0)" & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		" & VARIABLE1 & "Flag=true;" & vbCrLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF & vbCRLF
	End IF

	SBody = SBody & "				<table id='" & VARIABLE1 & "_table' class='attab02' cellpadding='0' cellspacing='0' border='0'>" & vbCRLF
	SBody = SBody & "					<colgroup>" & vbCRLF
	SBody = SBody & "						<col width=""*""/>" & vbCRLF
	For iCnt=0 To Col
		SBody = SBody & "						<col width=" & Chr(34) & WidthV & "%" & Chr(34) &"/>" & vbCRLF
	Next
	SBody = SBody & "						<col width=""20%""/>" & vbCRLF
	SBody = SBody & "					</colgroup>" & vbCRLF
	SBody = SBody & HDSTR
	ESTR = Split(DSTR,LABELSPLITTER)

	For iCnt=0 To UBound(ESTR)
		If VarType(ESTR(iCnt))<>0 And VarType(ESTR(iCnt))<>1 Then
			SBody = SBody & ESTR(iCnt) & vbCRLF
		End If
	Next

	If iCnt>6 Then
	SBody = SBody & HDSTR
	End IF
	SBody = SBody & "				</table>" & vbCRLF

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

	'자바스크립트 처리 부분
	
	If STEPFLAG Then
		Response.Write vbCrLF
		Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
		Response.Write "<!--" & vbCRLF
		Response.Write "	$(document).ready(function(){" & vbCrLf

		For iCnt=1 To UBound(ATStr)
			If VarType(ATStr(iCnt))<>0 And VarType(ATStr(iCnt))<>1 Then		
				Response.Write "		$(""#" & VARIABLE1 & "_table tr:nth-child(" & iCnt+3 & ")"").hide(); " & vbCrLF
			End If
		Next
		Response.Write vbCrLF
		For iCnt=0 To UBound(ATStr)
			If VarType(ATStr(iCnt))<>0 And VarType(ATStr(iCnt))<>1 Then		
				A_COD = Split(ATStr(iCnt),CODESPLITTER)
				A1 = A_COD(0)
				A2 = A_COD(1)
				Response.Write "		$(""input[name=" & VARIABLE1 & "_" & A1 & "]"").click(function(){" & vbCrLF
				Response.Write "			$(""#" & VARIABLE1 & "_table tr:nth-child(" & iCnt+4 & ")"").show();" & vbCrLF
				Response.Write "		});" & vbCrLF
			End If
		Next

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

	End If

	BODYSTR = SBody
	JBODYSTR = JBody

End Function

'#######################################################################################
'속성형태 라디오 + 라디오 - 가로보기
'VARIABLE1 : 속성 변수 명
'VARIABLE2 : 이유 변수 명
'CODES1 : 코드 라벨
'CODES2 : 코드 라벨
'ATTRIBUTE: 속성
'TEXT1 : 질문 TEXT 1
'TEXT2 : 질문 TEXT 2
'STEPFLAG : 순차 적용
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트 
'#######################################################################################
Function SingleSingleMATRIX(VARIABLE1,VARIABLE2,CODES1,CODES2,ATTRIBUTE,TEXT1,TEXT2,STEPFLAG,ByRef BODYSTR,ByRef JBODYSTR)

	Dim ITStr1,V_COD1,iCnt,cCnt,V1,V2
	Dim ITStr2,V_COD2,V3,V4
	Dim ATStr,A_COD,A1,A2
	Dim SBody,JBody
	Dim QName
	Dim DSTR,ESTR,OSTR,COL,AVAR,BVAR
	Dim WidthV,HeightV,CTV,LTV
	Dim XVX
	Dim HDStr

	HeightV = "45px"
	OSTR = ""

	

	ITStr1 = Split(CODES1,LABELSPLITTER)
	ITStr2 = Split(CODES1,LABELSPLITTER)

	ATStr = Split(ATTRIBUTE,LABELSPLITTER)
	COL = (UBound(ITStr1)+1)+(UBound(ITStr2)+1)
	CTV = Col
	AVAR = ""

	Select Case COL
		Case 5
			XVX = 50
		Case 6
			XVX = 50
		Case Else
			XVX = 80
	End Select	

	WidthV = FormatNumber(CDbl(XVX/COL),2)

	SBody = ""
	JBody = ""

	SBody = SBody & "	<div class=" & Chr(34) & "outdiv" & Chr(34) & ">" & vbCRLF
	SBody = SBody & "		<p><img src=" & CHR(34) & "./images/" & QNAME & ".gif" & CHR(34) & " class=" & CHR(34) & "middle" & CHR(34) & " alt=" & CHR(34) & "" & CHR(34) & "/>&nbsp;" & TEXT1 & "</p>" & vbCRLF
	SBody = SBody & "		<p><img src=" & CHR(34) & "./images/" & QNAME & ".gif" & CHR(34) & " class=" & CHR(34) & "middle" & CHR(34) & " alt=" & CHR(34) & "" & CHR(34) & "/>&nbsp;" & TEXT2 & "</p>" & vbCRLF
	SBody = SBody & "		<div class=" & CHR(34) & "indiv" & CHR(34) & ">" & vbCRLF
	DSTR = ""	
	HDSTR = ""

	For cCnt=0 To UBound(ATStr)

		If VarType(ATStr(cCnt))<>0 And VarType(ATStr(cCnt))<>1 And ATStr(cCnt)<>"" Then
			A_COD = Split(ATStr(cCnt),CODESPLITTER)
			A1 = A_COD(0)
			A2 = A_COD(1)

			'Header TR 라인 생성
			If cCnt=0 Then
				HDSTR = "					<TR id=""HCOL" & VARIABLE1 & "_" & A1 & """>" & vbCRLF
				HDSTR = HDSTR & "					<TH rowspan=""2"">&nbsp;</TH>" & vbCRLF
				HDSTR = HDSTR & "					<TH colspan="""&UBound(ITStr1)+1&""">" & VARIABLE1 & "</TH>" & vbCRLF
				HDSTR = HDSTR & "					<TH colspan="""&UBound(ITStr2)+1&""">" & VARIABLE2 & "</TH>" & vbCRLF
				HDSTR = HDSTR & "					</TR>" & vbCRLF
				HDSTR = HDSTR & "					<TR>" & vbCRLF
			End If

			DSTR = DSTR & "					<TR id=""COL" & VARIABLE1 & "_" & A1 & """>" & vbCRLF
			DSTR = DSTR & "						<TD class=""ATTHeader"">" & Replace(Replace(A2,"*OTHER",""),"*NONE","") & "</TD>" & vbCrLF

			For iCnt=0 To UBound(ITStr1)
				If VarType(ITStr1(iCnt))<>0 And VarType(ITStr1(iCnt))<>1 Then
					V_COD1 = Split(ITStr1(iCnt),CODESPLITTER)
					V1 = V_COD1(0)
					V2 = V_COD1(1)
					DSTR = DSTR & "						<TD style=""text-align:center;"">"
					DSTR = DSTR & "<input type=" & CHR(34) & "radio" & CHR(34) & " name=" & CHR(34) & VARIABLE1 & "_" & A1 & CHR(34) & " id=""" & VARIABLE1 & "_" & A1 & "_" & V1 & """ class=" & CHR(34) & "radio1" & CHR(34) & " value=" & Chr(34) & V1 & Chr(34) & "/></TD>" & vbCRLF

					If cCnt=0 Then
						HDSTR = HDSTR & "						<TH>" & Replace(Replace(V2,"*OTHER",""),"*NONE","") & "<br>(" & V1 & ")" & "</TH>" & vbCrLF
					End If
				End IF
			Next

			VAR = VAR & VARIABLE1 & "_" & A1 & ","
			AVAR = AVAR & VARIABLE1 & "_" & A1 & ","
			BVAR = BVAR & VARIABLE2 & "_" & A1 & ","

			For iCnt=0 To UBound(ITStr2)
				If VarType(ITStr2(iCnt))<>0 And VarType(ITStr2(iCnt))<>1 Then
					V_COD2 = Split(ITStr2(iCnt),CODESPLITTER)
					V3 = V_COD2(0)
					V4 = V_COD2(1)
					If iCnt=0 Then
						DSTR = DSTR & "						<TD style=""text-align:center;border-left:10px solid #cccccc;"">"
					Else
						DSTR = DSTR & "						<TD style=""text-align:center;"">"
					End If
					DSTR = DSTR & "<input type=" & CHR(34) & "radio" & CHR(34) & " name=" & CHR(34) & VARIABLE2 & "_" & A1 & CHR(34) & " id=""" & VARIABLE2 & "_" & A1 & "_" & V3 & """ class=" & CHR(34) & "radio1" & CHR(34) & " value=" & Chr(34) & V3 & Chr(34) & "/></TD>" & vbCRLF

					If cCnt=0 Then
						HDSTR = HDSTR & "						<TH>" & Replace(Replace(V4,"*OTHER",""),"*NONE","") & "<br>(" & V3 & ")" & "</TH>" & vbCrLF
					End If
				End IF
			Next

			VAR = VAR & VARIABLE2 & "_" & A1 & ","

			If cCnt=0 Then
				HDSTR = HDSTR & "					</TR>" & VBCRLF
			End If

			DSTR = DSTR & "					</TR>"
			DSTR = DSTR & "" & LABELSPLITTER

			JBody = JBody & "	if (getRadioValue("& Chr(34) & VARIABLE1 & "_" & A1 & Chr(34) &")==undefined)" & vbCrLF
			JBody = JBody & "	{" & vbCrLF
			JBody = JBody & "		alert(" & Chr(34) & "[" & cCnt+1 & " 번째]" & LangQuestion(1) & Chr(34) & ");" & vbCRLF
			JBody = JBody & "		$(" & Chr(34) & "input[name=" & VARIABLE1 & "_" & A1 &"]:eq(0)" & Chr(34) & ").focus();" & vbCRLF
			JBody = JBody & "		return;" & vbCRLF
			JBody = JBody & "	}" & vbCRLF & vbCRLF

			JBody = JBody & "	if (getRadioValue("& Chr(34) & VARIABLE2 & "_" & A1 & Chr(34) &")==undefined)" & vbCrLF
			JBody = JBody & "	{" & vbCrLF
			JBody = JBody & "		alert(" & Chr(34) & "[" & cCnt+1 & " 번째]" & LangQuestion(1) & Chr(34) & ");" & vbCRLF
			JBody = JBody & "		$(" & Chr(34) & "input[name=" & VARIABLE2 & "_" & A1 &"]:eq(0)" & Chr(34) & ").focus();" & vbCRLF
			JBody = JBody & "		return;" & vbCRLF
			JBody = JBody & "	}" & vbCRLF & vbCRLF
		End IF
	Next

	AVAR = Left(AVAR,Len(AVAR)-1)
	BVAR = Left(BVAR,Len(BVAR)-1)

	If UBound(ATStr)>4 Then
		Response.Write vbCrLF
		Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
		Response.Write "<!--" & vbCRLF
		Response.Write "	var " & VARIABLE1 & "Flag;" & vbCrLf
		Response.Write "	var " & VARIABLE2 & "Flag;" & vbCrLf
		Response.Write "	" & VARIABLE1 & "Flag=false;" & vbCrLf
		Response.Write "	" & VARIABLE2 & "Flag=false;" & vbCrLf
		Response.Write "//-->" & vbCRLF
		Response.Write "</script>" & vbCrLF

		JBody = JBody & "	if ((" & VARIABLE1 & "Flag==false) && (RadioArray(""" & AVAR & """)))" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert(" & Chr(34) & LangQuestion(4) & Chr(34) & ");" & vbCRLF
		JBody = JBody & "		$(" & Chr(34) & "input[name=" & VARIABLE1 & "_" & A1 &"]:eq(0)" & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		" & VARIABLE1 & "Flag=true;" & vbCrLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF & vbCRLF

		JBody = JBody & "	if ((" & VARIABLE2 & "Flag==false) && (RadioArray(""" & BVAR & """)))" & vbCrLF
		JBody = JBody & "	{" & vbCrLF
		JBody = JBody & "		alert(" & Chr(34) & LangQuestion(4) & Chr(34) & ");" & vbCRLF
		JBody = JBody & "		$(" & Chr(34) & "input[name=" & VARIABLE2 & "_" & A1 &"]:eq(0)" & Chr(34) & ").focus();" & vbCRLF
		JBody = JBody & "		" & VARIABLE2 & "Flag=true;" & vbCrLF
		JBody = JBody & "		return;" & vbCRLF
		JBody = JBody & "	}" & vbCRLF & vbCRLF

	End IF

	SBody = SBody & "				<table id='" & VARIABLE1 & "_table' class='attab02' cellpadding='0' cellspacing='0' border='0'>" & vbCRLF
	SBody = SBody & "					<colgroup>" & vbCRLF
	SBody = SBody & "						<col width=""*""/>" & vbCRLF
	For iCnt=0 To Col
		SBody = SBody & "						<col width=" & Chr(34) & WidthV & "%" & Chr(34) &"/>" & vbCRLF
	Next
	SBody = SBody & "					</colgroup>" & vbCRLF
	SBody = SBody & HDSTR
	ESTR = Split(DSTR,LABELSPLITTER)

	For iCnt=0 To UBound(ESTR)
		If VarType(ESTR(iCnt))<>0 And VarType(ESTR(iCnt))<>1 Then
			SBody = SBody & ESTR(iCnt) & vbCRLF
		End If
	Next

	If iCnt>6 Then
	SBody = SBody & HDSTR
	End IF
	SBody = SBody & "				</table>" & vbCRLF

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

	'자바스크립트 처리 부분
	
	If STEPFLAG Then
		Response.Write vbCrLF
		Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
		Response.Write "<!--" & vbCRLF
		Response.Write "	$(document).ready(function(){" & vbCrLf

		For iCnt=1 To UBound(ATStr)
			If VarType(ATStr(iCnt))<>0 And VarType(ATStr(iCnt))<>1 Then		
				Response.Write "		$(""#" & VARIABLE1 & "_table tr:nth-child(" & iCnt+3 & ")"").hide(); " & vbCrLF
			End If
		Next
		Response.Write vbCrLF
		For iCnt=0 To UBound(ATStr)
			If VarType(ATStr(iCnt))<>0 And VarType(ATStr(iCnt))<>1 Then		
				A_COD = Split(ATStr(iCnt),CODESPLITTER)
				A1 = A_COD(0)
				A2 = A_COD(1)
				Response.Write "		$(""input[name=" & VARIABLE2 & "_" & A1 & "]"").click(function(){" & vbCrLF
				Response.Write "			$(""#" & VARIABLE1 & "_table tr:nth-child(" & iCnt+4 & ")"").show();" & vbCrLF
				Response.Write "		});" & vbCrLF
			End If
		Next

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

	End If

	BODYSTR = SBody
	JBODYSTR = JBody

End Function
%>

