Need help with Error Message

new2programming · Mar 6, 2003

Microsoft VBScript compilation error '800a03ea'

Syntax error

/Training_Dept/RTPL.asp, line 43

rs.MoveNext Wend rs.Close Set rs = Nothing
------------^
If any one knows a fix for this please inform. Here is the code for that page.

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

<html>

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

<body background="WB00760_.gif">

<hr>

<hr>

<p><font size="4">Performance Overview Account Services/Teleservices by Class (Totals)
Report</font></p>

<hr>

<hr>

<%

LocCity = Request.Form("LocCity&quot

If LocCity = "" Then

SQL = " SELECT LocCity From ZZLocCity "

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

rs.Open SQL, MyDSN

%>

<form Method="Post">
<p><select Name="LocCity" id="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 Classes.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"
id="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>

onpnt · Mar 6, 2003

this would be more appropriatly asked in the ASP Forum333 but I can tell you you need to format your code to the requirments of the langauge.
eg
<% rsT.MoveNext Wend rsT.Close Set rsT = Nothing %> </option>

is absolutely wrong and needs to be
<% rsT.MoveNext
Wend
rsT.Close
Set rsT = Nothing
%> </option>
_________________________________________________________
for the best results to your questions: FAQ333-2924
_{01001111 01101110 01110000 01101110 01110100}

^{http://www.onpntwebdesigns.com
[/sub]}

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!

Need help with Error Message

new2programming

Programmer

onpnt

Programmer

Similar threads

Part and Inventory Search

Sponsor