Error message unexplained

new2programming · Mar 6, 2003

Microsoft VBScript compilation error '800a03ea'

Syntax error

/Training_Dept/RPTPOTA.asp, line 40

RS.MoveNext Wend RS.Close Set RS = Nothing
------------^
Here is the error message that I receive I will provide the code below if any one has suggestion for a fix to this problem please sumbit.

Code:

<%@Language=VBScript%>
<%Response.Buffer = True%>

<html>

<head>
<title>Performance Overview by Class (Totals) Report</title>
</head>

<body background="WB00760_.gif">

<hr>

<hr>

<p><font size="5">Performance Overview by Class (Totals) Report</font></p>

<hr>

<hr>

<%
LocCity = Request.Form("LocCity&quot

If LocCity = "" Then

SQL = " Select Distinct LocCity From Classes "

Set rs=Server.CreateObject("ADODB.RecordSet&quot

rs.Open SQL, MyDSN

%>

<form Method="Post">
<p><select Name="LocCity" size="1">
<option Selected>--Select City-- <%While Not RS.EOF%> </option>
<option value="<%=RS("LocCity&quot

%>"> <%=RS.Fields("LocCity&quot

%> <% RS.MoveNext Wend RS.Close Set RS = Nothing %> </option>
</select> <input type="submit" name="btnSearch" value="Search"> </p>
</form>
<%
Else

SQLT = "Select Distinct TName From Classes Where LocCity = '"&LocCity&"'"

Set rsT=Server.CreateObject("ADODB.RecordSet&quot

rsT.Open SQLT, MyDSN

%>

<form action="RPTPOTACLSTotRD2.asp?Yr=<%=varYrA%>" method="Post">
<input type="hidden" name="LocCity" value="<%=LocCity%>"><p><select name="TName" size="1">
<option selected>--Select Name-- <%While Not rsT.EOF%> </option>
<option value="<%=rsT("TName&quot

%>"> <%=rsT.Fields("TName&quot

%> <% rsT.MoveNext Wend rsT.Close Set rsT = Nothing %> </option>
</select> <input type="submit" name="btnSearch" value="Search"> </p>
</form>
<%End If%>
</body>
</html>

johnwm · Mar 6, 2003

This is the VB5/6 forum. You will do better in forum329 (it's the VBScript forum)
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

bridamol · Mar 7, 2003

write the statement like this

<% rsT.MoveNext: Wend :rsT.Close Set rsT = Nothing %>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Error message unexplained

new2programming

Programmer

johnwm

Programmer

bridamol

Programmer

Similar threads

Part and Inventory Search

Sponsor