The code is supposed to read through a server text file and set the check boxes on the client display accordingly. It doesn't like the following:
Programx.asp
------------
<HTML>
<HEAD>
<script language="VBScript" runat=server>
<!--
sub ReadData()
Const ForReading = 1
Dim fso, FileData
Set fso = Server.CreateObject("Scripting.FileSystemObject"
Set FileData = fspenTextFile("Data.txt", ForReading, False)
'do file stuff
if condition then
Document.TheForm.rr(0).Value = Checked
end if
end sub
//-->
</script>
</HEAD>
<BODY onLoad="ReadData()">
<FORM name="TheForm">
<TABLE border=1>
<tr>
<td><input name=rr type=checkbox></td>
<td><input name=rr type=checkbox></td>
</tr>
</TABLE>
</FORM>
</BODY>
</HTML>
Who wants a star?
Programx.asp
------------
<HTML>
<HEAD>
<script language="VBScript" runat=server>
<!--
sub ReadData()
Const ForReading = 1
Dim fso, FileData
Set fso = Server.CreateObject("Scripting.FileSystemObject"
Set FileData = fspenTextFile("Data.txt", ForReading, False)
'do file stuff
if condition then
Document.TheForm.rr(0).Value = Checked
end if
end sub
//-->
</script>
</HEAD>
<BODY onLoad="ReadData()">
<FORM name="TheForm">
<TABLE border=1>
<tr>
<td><input name=rr type=checkbox></td>
<td><input name=rr type=checkbox></td>
</tr>
</TABLE>
</FORM>
</BODY>
</HTML>
Who wants a star?