I am getting the following error message on the attached code:
-----------------------------------------------------------------------------------
Microsoft VBScript compilation error '800a03ea'
Syntax error
/Training_Dept/RPTPOTACLSTotRD.asp, line 44
rs.MoveNext Wend rs.Close Set rs = Nothing
------------^
-----------------------------------------------------------------------------------
The problem area referred to in the error message is between the frowning faces. My code keeps getting reformatted by FrontPage98. Does anyone see the problem? And is there a setting on FrontPage that allows you to turn off the reformatting?
-----------------------------------------------------------------------------------
<%@Language=VBScript%>
<%Response.Buffer = True%>
<!--#include file="include/RPTConnect.asp"-->
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>Performance Overview Account Services/Teleservices By Class (Totals) Report</title>
</head>
<body background="WB00760_.gif">
<hr>
<hr>
<p><font size="5">Performance Overview Account Services/Teleservices by Class (Totals)
Report</font></p>
<hr>
<hr>
<!--#include file="include/menu.asp"-->
<%
LocCity = Request.Form("LocCity")
If LocCity = "" Then
SQL = " SELECT LocCity From ZZLocCity "
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, MyDSN
%>
<form method="Post">
<p><select name="LocCity" size="1" id="LocCity">
<option selected>--Select City-- <% While Not rs.EOF %></option>
<option value="<%=rs("LocCity")%>"> <%=rs("LocCity")%> <% rs.MoveNext Wend rs.Close Set rs = Nothing %> </option>
</select> <input type="submit" name="btnSearch" value="Search"> </p>
</form>
<%else%>
<form action="RPTPOTACLSTotRD2.asp?Yr=<%=varYrA%>" method="Post">
<input type="hidden" name="LocCity" value="<%=LocCity%>"><p><select name="TName" size="1"
id="TName">
<option selected>--Select Name--<% While Not rsT.EOF %> </option>
<option value="<%=rsT("TName")%>"> <%=rsT.Fields("TName")%> <% rsT.MoveNext Wend rsT.Close Set rsT = Nothing %> </option
</select> <input type="submit" name="btnSearch" value="Search"> </p>
</form>
<% End If %>
</body>
</html>
-----------------------------------------------------------------------------------
Microsoft VBScript compilation error '800a03ea'
Syntax error
/Training_Dept/RPTPOTACLSTotRD.asp, line 44
rs.MoveNext Wend rs.Close Set rs = Nothing
------------^
-----------------------------------------------------------------------------------
The problem area referred to in the error message is between the frowning faces. My code keeps getting reformatted by FrontPage98. Does anyone see the problem? And is there a setting on FrontPage that allows you to turn off the reformatting?
-----------------------------------------------------------------------------------
<%@Language=VBScript%>
<%Response.Buffer = True%>
<!--#include file="include/RPTConnect.asp"-->
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>Performance Overview Account Services/Teleservices By Class (Totals) Report</title>
</head>
<body background="WB00760_.gif">
<hr>
<hr>
<p><font size="5">Performance Overview Account Services/Teleservices by Class (Totals)
Report</font></p>
<hr>
<hr>
<!--#include file="include/menu.asp"-->
<%
LocCity = Request.Form("LocCity")
If LocCity = "" Then
SQL = " SELECT LocCity From ZZLocCity "
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, MyDSN
%>
<form method="Post">
<p><select name="LocCity" size="1" id="LocCity">
<option selected>--Select City-- <% While Not rs.EOF %></option>
<option value="<%=rs("LocCity")%>"> <%=rs("LocCity")%> <% rs.MoveNext Wend rs.Close Set rs = Nothing %> </option>
</select> <input type="submit" name="btnSearch" value="Search"> </p>
</form>
<%else%>
<form action="RPTPOTACLSTotRD2.asp?Yr=<%=varYrA%>" method="Post">
<input type="hidden" name="LocCity" value="<%=LocCity%>"><p><select name="TName" size="1"
id="TName">
<option selected>--Select Name--<% While Not rsT.EOF %> </option><option value="<%=rsT("TName")%>"> <%=rsT.Fields("TName")%> <% rsT.MoveNext Wend rsT.Close Set rsT = Nothing %> </option
</select> <input type="submit" name="btnSearch" value="Search"> </p>
</form>
<% End If %>
</body>
</html>
