<%
'#######################################################################################
'텍스트 Area가 세로로 여러개 보여지는 Template
'VARIABLE : 변수 명
'ATTRIBUTE: 속성 정보
'TEXT : 질문 TEXT
'ATTMAX : 최소 응답 해야 하는 갯수
'MINLENGTH: 최소 입력 길이
'NFLAG : None 처리
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionTEXTAREAATT(VARIABLE,ATTRIBUTE,TEXT,ATTMAX,MINLENGTH,NFLAG,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,ITStr,V_COD,iCnt,V1,V2
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	Dim AMX,ML,MH
	Dim XVAR
	
	
	If ATTMAX="" Or ATTMAX="0" Then 
		AMX=1
	Else
		AMX = ATTMAX
	End If
	
	If MINLENGTH="" Or MINLENGTH="0" Then 
		MH="4"
	Else
		MH = MINLENGTH
	End IF

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

	Select Case SKIN
		Case "PANEL"
			QName = "Q1"
		Case "PROGRESS"
			QName = "Q1"
		Case "LOTTE"
			QName = "Q3"
		Case "GMI"
			QName = "Q1"
		Case Else
			QName = "Q3"
	End Select

	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	
	SBody = SBody & "	<div class=" & Chr(34) & "outdiv" & Chr(34) & ">" & vbCRLF
	SBody = SBody & "		<p></p><div style='float:left;margin-right:5px;'><img src=" & CHR(34) & "./images/" & QNAME & ".gif" & CHR(34) & " class=" & CHR(34) & "middle" & CHR(34) & " alt=" & CHR(34) & "" & CHR(34) & "/></div>" & TEXT & "<p></p>" & vbCRLF
	SBody = SBody & "		<div class=" & CHR(34) & "indiv" & CHR(34) & ">" & vbCRLF
	SBody = SBody & "		<table id='" & VARIABLE & "_table' class='attab01' cellpadding='0' cellspacing='0' border='0'>" & vbCrLF
	SBody = SBody & "					<colgroup>" & vbCRLF
		SBody = SBody & "						<col width=20%/>" & vbCRLF
		SBody = SBody & "						<col width=80%/>" & vbCRLF
	SBody = SBody & "					</colgroup>" & vbCRLF

	

	For iCnt=0 To UBound(ITStr)
		If VarType(ITStr)<>0 And VarType(ITSTR)<>1 Then
			V_COD = Split(ITStr(iCnt),CODESPLITTER)
			V1 = V_COD(0)
			V2 = V_COD(1)
			SBody = SBody & vbtab&vbtab&"<tr><th><span style='padding-right:3px;vertical-align:top;' id=""L" & VARIABLE & "_" & V1 & """>"&V2&"</span></th>"
			SBody = SBody & "<td><textarea id=""" & VARIABLE & "_" & V1 & """ name=""" & VARIABLE & "_" & V1 & """ style=""width:98%;height=50px;"" class=""text1""></textarea></td>"
			Sbody = SBody & "</tr>" & vbCRLF
			VAR = VAR & VARIABLE & "_" & V1 & ","
			XVAR = XVAR & VARIABLE & "_" & V1 & ","
		End IF
	Next
	
	SBody = SBody & "		</table>" & vbCrLF

	If NFlag Then
		SBody = SBody & "		<div class=""checkbox""><input type=""checkbox"" id="""&VARIABLE&"_NONE"" name="""&VARIABLE&"_NONE"" value=""1""/><a href=""javascript:setCheckBoxValue('"&VARIABLE&"_NONE');itemDisabledSetup('"&XVAR&"'.split(','),$('#"&VARIABLE&"_NONE').attr('checked'))"">"&NONSTR&"</a></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("""&XVAR&""".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

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

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

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

	For iCnt=0 To AMX-1
		If VarType(ITStr)<>0 And VarType(ITSTR)<>1 Then
			V_COD = Split(ITStr(iCnt),CODESPLITTER)
			V1 = V_COD(0)

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

		End IF
	Next
	
	JBody = JBody & "	var xx;" & vbCRLF
	JBody = JBody & "	var xy;" & vbCRLF
	V2 = ""

	For iCnt=0 To UBound(ITStr)
		If VarType(ITStr)<>0 And VarType(ITSTR)<>1 Then
			V_COD = Split(ITStr(iCnt),CODESPLITTER)
			V1 = V_COD(0)
			

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

			If iCnt<>0 Then
				JBody = JBody & "		xx = $(""#" & VARIABLE & "_" & V2 & """).val().trim();" & vbCrLF
				JBody = JBody & "		xy = $(""#" & VARIABLE & "_" & V1 & """).val().trim();" & vbCrLF

				JBody = JBody & "		if (xy.length<" & MH & ")" & vbCrLF
				JBody = JBody & "		{" & vbCrLF
				JBody = JBody & "			alert($(""#L" & VARIABLE & "_" & V1 &""").html()+"" " & LangQuestion(2) & """);" & vbCRLF
				JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE  & "_" & V1 & Chr(34) & ").focus();" & vbCRLF
				JBody = JBody & "			return;" & vbCRLF
				JBody = JBody & "		}" & vbCrLF & vbCrLF

				JBody = JBody & "		if (containsChars(xy," & ERRORSTR & "))" & vbCrLF
				JBody = JBody & "		{" & vbCrLF
				JBody = JBody & "			alert($(""#L" & VARIABLE & "_" & V1 &""").html()+"" "&LangQuestion(3)&""");" & vbCrLF
				JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE  & "_" & V1 & Chr(34) & ").focus();" & vbCRLF
				JBody = JBody & "			return;" & vbCRLF
				JBody = JBody & "		}" & vbCrLF

				JBody = JBody & "		if (xx==xy)" & vbCrLF
				JBody = JBody & "		{" & vbCrLF
				JBody = JBody & "			alert($(""#L" & VARIABLE & "_" & V1 &""").html()+"" "&LangQuestion(10)&""");" & vbCrLF
				JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE  & "_" & V1 & Chr(34) & ").focus();" & vbCRLF
				JBody = JBody & "			return;" & vbCRLF
				JBody = JBody & "		}" & vbCrLF
				
			Else
				JBody = JBody & "		xx = $(""#" & VARIABLE & "_" & V1 & """).val().trim();" & vbCrLF
				JBody = JBody & "		if (xx.length<" & MH & ")" & vbCrLF
				JBody = JBody & "		{" & vbCrLF
				JBody = JBody & "			alert($(""#L" & VARIABLE & "_" & V1 &""").html()+"" " & LangQuestion(2) & """);" & vbCRLF
				JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE  & "_" & V1 & 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($(""#L" & VARIABLE & "_" & V1 &""").html()+"" "&LangQuestion(3)&""");" & vbCrLF
				JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE  & "_" & V1 & Chr(34) & ").focus();" & vbCRLF
				JBody = JBody & "			return;" & vbCRLF
				JBody = JBody & "		}" & vbCrLF
			End If			
			JBody = JBody & "	}" & vbCRLF
			V2 = V1
		End IF
	Next

	If NFlag Then
		JBody = JBody & "	}" & vbCRLF
	End if

	BODYSTR = SBody
	JBODYSTR = JBody

End Function


'#######################################################################################
'이유 받는 TextArea형
'VARIABLE : 변수 명
'TEXT : 질문 TEXT
'MINLENGTH: 최소 입력 길이
'NFLAG : None 처리
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionTEXTAREABOX(VARIABLE,TEXT,MINLENGTH,NFLAG,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,ITStr,V_COD,iCnt,V1,V2
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	Dim ML,MH
	
	If MINLENGTH="" Or MINLENGTH="0" Then 
		MH="4"
	Else
		MH = MINLENGTH
	End IF

	HeightV = "30px"

	Select Case SKIN
		Case "PANEL"
			QName = "Q1"
		Case "PROGRESS"
			QName = "Q1"
		Case "LOTTE"
			QName = "Q3"
		Case "GMI"
			QName = "Q1"
		Case Else
			QName = "Q3"
	End Select


	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	
	SBody = SBody & "	<div class=" & Chr(34) & "outdiv" & Chr(34) & ">" & vbCRLF
	SBody = SBody & "		<p></p><div style='float:left;margin-right:5px;height:100%;'><img src=" & CHR(34) & "./images/" & QNAME & ".gif" & CHR(34) & " class=" & CHR(34) & "middle" & CHR(34) & " alt=" & CHR(34) & "" & CHR(34) & "/></div><div class='q_area'>" & TEXT & "</div><p></p>" & vbCRLF
	
	SBody = SBody & "		<div class=" & CHR(34) & "indiv" & CHR(34) & ">" & vbCRLF
	SBody = SBody & "		<ul><li><textarea name=""" & VARIABLE & """ id=""" & VARIABLE & """ style=""width:96%;height:50px;"" class=""text1""/></textarea></li></ul>" & vbCRLF

	VAR = VAR & VARIABLE & ","

	If NFlag Then
		SBody = SBody & "		<div class=""checkbox""><input type=""checkbox"" id="""&VARIABLE&"_NONE"" name="""&VARIABLE&"_NONE"" value=""1""/><a href=""javascript:setCheckBoxValue('"&VARIABLE&"_NONE');itemDisabledSetup('"&VARIABLE&"'.split(','),$('#"&VARIABLE&"_NONE').attr('checked'))"">"&NONSTR&"</a></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

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

	JBody = JBody & "	var xx;" & vbCRLF
	JBody = JBody & "	xx = $(""#" & VARIABLE & """).val().trim();" & 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().trim()=="""")" & 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 (xx.length<" & MH & ")" & vbCrLF
	JBody = JBody & "	{" & vbCrLF
	JBody = JBody & "		alert("""&LangQuestion(2)&""");" & vbCRLF
	JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE & 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) & "#" & VARIABLE & Chr(34) & ").focus();" & vbCRLF
	JBody = JBody & "			return;" & vbCRLF
	JBody = JBody & "		}" & vbCrLF

	If NFlag Then
		JBody = JBody & "		}" & vbCrLF
	End if

	BODYSTR = SBody
	JBODYSTR = JBody

End Function


'#######################################################################################
'텍스트 박스가 세로로 여러개 보여지는 Template
'VARIABLE : 변수 명
'ATTRIBUTE: 속성 정보
'TEXT : 질문 TEXT
'ATTMAX : 최소 응답 해야 하는 갯수
'MINLENGTH: 최소 입력 길이
'NFLAG : None 처리
'BODYSTR : HTML 사용
'JBODYSTR : 자바스크립트
'#######################################################################################
Function QuestionTEXTAREABOXATTGROUP(VARIABLE,ATTRIBUTE,TEXT,ATTMAX,MINLENGTH,NFLAG,ByRef BODYSTR,ByRef JBODYSTR)

	Dim SBody,ATStr,V_COD,iCnt,V1,V2
	Dim JBody
	Dim QName,DSTR,ESTR
	Dim WidthV,HeightV,CTV
	Dim AMX,ML,MH
	Dim GTStr,TTStr,cCnt
	Dim XCnt
	Dim XVAR
	
	If ATTMAX="" Or ATTMAX="0" Then 
		AMX=1
	Else
		AMX = ATTMAX
	End If
	
	If MINLENGTH="" Or MINLENGTH="0" Then 
		MH="4"
	Else
		MH = MINLENGTH
	End IF

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

	Select Case SKIN
		Case "PANEL"
			QName = "Q1"
		Case "PROGRESS"
			QName = "Q1"
		Case "LOTTE"
			QName = "Q3"
		Case "GMI"
			QName = "Q1"
		Case Else
			QName = "Q3"
	End Select

	SBody = ""
	JBody = ""
	DSTR = ""
	ESTR = ""
	
	SBody = SBody & "	<div class=" & Chr(34) & "outdiv" & Chr(34) & ">" & vbCRLF
	SBody = SBody & "		<p></p><div style='float:left;margin-right:5px;height:100%;'><img src=" & CHR(34) & "./images/" & QNAME & ".gif" & CHR(34) & " class=" & CHR(34) & "middle" & CHR(34) & " alt=" & CHR(34) & "" & CHR(34) & "/></div><div class='q_area'>" & TEXT & "</div><p></p>" & vbCRLF
	
	SBody = SBody & "		<div class=" & CHR(34) & "indiv" & CHR(34) & ">" & vbCRLF
	SBody = SBody & "			<table id='" & VARIABLE & "_table' class='attab02' 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

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

	JBody = JBody & "		var xx;" & vbCRLF
	JBody = JBody & "		var xy;" & vbCRLF
	
	xCnt=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
				V_COD = Split(ATStr(iCnt),CODESPLITTER)
				V1 = V_COD(0)
				V2 = V_COD(1)

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

				SBody = SBody & "				<td style=""padding:5px 5px 5px 5px;""><span style='padding-right:3px;vertical-align:top;' id=""L" & VARIABLE & "_" & V1 & """>"&V2&"</span>"
				SBody = SBody & "<textarea id=""" & VARIABLE & "_" & V1 & """ name=""" & VARIABLE & "_" & V1 & """ style=""width:96%;height:50px;"" class=""text1""/></textarea></td>" & vbCRLF
				SBody = SBody & "				</tr>" & vbCRLF

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

				JBody = JBody & "	if ($("& Chr(34) & "#" & VARIABLE & "_" & V1 & Chr(34) &").val()=="""")" & vbCrLF
				JBody = JBody & "	{" & vbCrLF
				If iCnt=0 Then
					JBody = JBody & "		alert("""&LangQuestion(1)&""");" & vbCRLF
				Else
					JBody = JBody & "		alert(""(" & xCnt & ") "&LangQuestion(1)&""");" & vbCRLF
				End IF
				JBody = JBody & "		$(" & Chr(34) & "#" & VARIABLE  & "_" & V1 & Chr(34) & ").focus();" & vbCRLF
				JBody = JBody & "		return;" & vbCRLF
				JBody = JBody & "	}" & vbCRLF

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

				If iCnt<>0 Then
					JBody = JBody & "		xx = $(""#" & VARIABLE & "_" & V2 & """).val().trim();" & vbCrLF
					JBody = JBody & "		xy = $(""#" & VARIABLE & "_" & V1 & """).val().trim();" & vbCrLF

					JBody = JBody & "		if (xx.length<" & MH & ")" & vbCrLF
					JBody = JBody & "		{" & vbCrLF
					JBody = JBody & "			alert($(""#L" & VARIABLE & "_" & V1 &""").html()+"" " & LangQuestion(2) & """);" & vbCRLF
					JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE  & "_" & V1 & 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($(""#L" & VARIABLE & "_" & V1 &""").html()+"" "&LangQuestion(3)&""");" & vbCrLF
					JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE  & "_" & V1 & Chr(34) & ").focus();" & vbCRLF
					JBody = JBody & "			return;" & vbCRLF
					JBody = JBody & "		}" & vbCrLF

					JBody = JBody & "		if (xx==xy)" & vbCrLF
					JBody = JBody & "		{" & vbCrLF
					JBody = JBody & "			alert($(""#L" & VARIABLE & "_" & V1 &""").html()+"" "&LangQuestion(10)&""");" & vbCrLF
					JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE  & "_" & V1 & Chr(34) & ").focus();" & vbCRLF
					JBody = JBody & "			return;" & vbCRLF
					JBody = JBody & "		}" & vbCrLF
					
				Else
					JBody = JBody & "		xx = $(""#" & VARIABLE & "_" & V1 & """).val().trim();" & vbCrLF
					JBody = JBody & "		if (xx.length<" & MH & ")" & vbCrLF
					JBody = JBody & "		{" & vbCrLF
					JBody = JBody & "			alert($(""#L" & VARIABLE & "_" & V1 &""").html()+"" " & LangQuestion(2) & """);" & vbCRLF
					JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE  & "_" & V1 & 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($(""#L" & VARIABLE & "_" & V1 &""").html()+"" "&LangQuestion(3)&""");" & vbCrLF
					JBody = JBody & "			$(" & Chr(34) & "#" & VARIABLE  & "_" & V1 & Chr(34) & ").focus();" & vbCRLF
					JBody = JBody & "			return;" & vbCRLF
					JBody = JBody & "		}" & vbCrLF
				End If			

				JBody = JBody & "	}" & vbCRLF

				VAR = VAR & VARIABLE & "_" & V1 & ","
				XVAR = XVAR & VARIABLE & "_" & V1 & ","
				xCnt=xCnt+1
			End IF
		Next
		End If
	Next


	If NFlag Then
		JBody = JBody & "}" & vbCrLF
	End if

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

	If NFlag Then
		SBody = SBody & "		<div class=""checkbox""><input type=""checkbox"" id="""&VARIABLE&"_NONE"" name="""&VARIABLE&"_NONE"" value=""1""/><a href=""javascript:setCheckBoxValue('"&VARIABLE&"_NONE');itemDisabledSetup('"&XVAR&"'.split(','),$('#"&VARIABLE&"_NONE').attr('checked'))"">"&NONSTR&"</a></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("""&XVAR&""".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
	
	BODYSTR = SBody
	JBODYSTR = JBody

End Function
%>