Microsoft VBScript compilation (0x800A03F6)

Hi,

I'm getting the following error on an ASP page that previously worked fine:

Microsoft VBScript compilation (0x800A03F6)
Expected 'End'

I know that this can mean that there's a problem with If..Then...Else structures, but I've checked them over & over and they appear fine. Same goes for loops.

I'm more than happy to send the code if necessary, it's just that it's rather long....

~Nicole

Hmm..

Well I have solved that problem...and I have a new one!

Here are the relevant parts of the code:

if strAction = "" then 'this is the first time the user has seen this page
intState = 0 'state variable set to indicate new
else
intState =1
Response.Write "this is the else statement"
Dim counter
Dim strRadioName
Dim intRadioNumber
for counter=(Lbound(arrRadioAnswers)) to (Ubound(arrRadioAnswers))
intRadioNumber = counter + 1
strRadioName = strRadioGroupName &intRadioNumber
arrRadioAnswers(counter)= Request.Form (strRadioName)
Response.Write arrRadioAnswers(counter)
next


AND

<%for iLoop = 1 to Rs_Survey("NumberTo") %>
<td width="10%" align=center>
<input type="radio" name="<%=strRadioGroupName & intRadioGroupNumber%>" value="<%=iLoop%>"
<%if (arrRadioAnswers(intRadioGroupNumber - 1)) = iLoop then Response.Write "CHECKED" end if%>>

</td>
<%next %>

What I am trying to do is preserve the data users have entered into a form using radio buttons so that if they have forgotten to fill one out, they don't have to refill the *whole* form. So..i have created an array in which to store their answers and when the radio buttons are generated using ASP, it checks to see if the current value is the value entered by the user and selects this option accordingly.

Except...it's not working I know the array is getting populated thru using debugging Response.Write statements, but when the radio buttons are being generated following form submission they are still all coming out unchecked.

Any ideas?

~Nicole

If anyone's interested, I solved the radio button problem with four simple letters thus:

<%if CInt (arrRadioAnswers(intRadioGroupNumber - 1))=iLoop then Response.Write "CHECKED" end if%>>


</td>

<%next 'iLoop%>

~Nicole