Invalid character
/xxx/xxx/xxxx.asp, line 96
List.MoveNext
My code is as follows and this code worked fine.
However, now it gives the error as described above.
Any idea to fix ?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="949"%>
<!--#include file = "../inc/dbcon.asp"-->
<%
if Session("adminok") = "" then
Response.Redirect "session_end.asp"
else
'
Select Case Request.QueryString("page")
Case ""
Session("CurrentPage") = 1
Case "next"
Session("CurrentPage") = Session("CurrentPage") + 1
Case "previ"
Session("CurrentPage") = Session("CurrentPage") - 1
End Select
sqlstr = "SELECT * FROM tblSevCustInfo "
Set List = Server.CreateObject("ADODB.Recordset")
List.PageSize = 4
List.Open sqlstr, dbCon, 1
List.AbsolutePage = Session("CurrentPage")
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgcolor="#FFFFFF">
<div align="center">
<center>
<p><font color="#004000"><strong>xxxxx</strong></font></p>
</center>
</div>
<% If Not (List.EOF and List.BOF) then %>??
<div align="center">
<center>
<table border="0" cellspacing="0" width="100%">
??<tr align=center bgcolor="009C9C">
????<td width=10%>
??????<b><div align="center"><font color=#FFFFFF>ID</font></div></td>
????<td width=10%>
??????<b><div align="center"><font color=#FFFFFF>Survey</font></div></td>
????<td width=20%>
??????<b><div align="center"><font color=#FFFFFF>Model</font></div></td>
????<td width=20%>
??????<b><div align="center"><font color=#FFFFFF>VIN_NUM</font></div></td>
????<td width=20%>
??????<b><div align="center"><font color=#FFFFFF>Customer Name</font></div></td>
??? <td width=20%>
??????<b><div align="center"><font color=#FFFFFF>Email</font></div></td>
??</tr>
<%
End if
i = 1
Do until List.EOF Or i > List.PageSize
%>
<tr align=center>
????<td width="10%" align=center>
????? <div align="center"><%=Cint(List("ID"))%> </div>
????</td>
????<td width="10%" align=center>
????? <div align="center"><%=Trim(List("TookSurvey"))%> </div>
????</td>
????<td width="20%" align=center>
??????<div align="center"> <%=right(Trim(List("ModelID")), 12)%> </div>
????</td>
????<td width="20%" align=center>
?????<div align="center"> <%=Trim(List("VIN_NUM"))%> </div>
????</td>
????<td width="20%" align=center>
????? <div align="center"><%=Trim(List("OwnerName"))%> </div>
????</td>
<td width="20%" align=center>
????? <div align="center"><a href="mailto:<%=Trim(List("Email"))%>"><%=Trim(List("Email"))%></a></div>
????</td>
??
??</tr>
?? <%
?? List.MoveNext
?? i = i + 1
??
Loop
%>
</table></center></div>
<br>
<BR>
<table align="center" width=100% border="0" cellspacing="1" cellpadding="0" bgcolor=#FFFFFF>
??<tr align=left>
????<td>
<% If Session("CurrentPage") > 1 then %>
<a href="allcustlist.asp?page=prev">Previous Page</a>
<% end if %>
<% If Session("CurrentPage") < List.PageCount then %>
<a href="allcustlist.asp?page=next">Next Page`</a>
<% end if %>
????</td>
??</tr>
</table>
<br />
<br />
<table cellspacing=0 cellpadding=0 align=center width=100%>
<tr>
<td align="left"><a href="admin_list.asp">Back to Admin List</td>
</tr>
<tr>
<td align=right>Page <%=Pageno%> / <%=List.PageCount%></td>
</tr>
</table>
</BODY>
</HTML>
<%
End if
%>
/xxx/xxx/xxxx.asp, line 96
List.MoveNext
My code is as follows and this code worked fine.
However, now it gives the error as described above.
Any idea to fix ?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="949"%>
<!--#include file = "../inc/dbcon.asp"-->
<%
if Session("adminok") = "" then
Response.Redirect "session_end.asp"
else
'
Select Case Request.QueryString("page")
Case ""
Session("CurrentPage") = 1
Case "next"
Session("CurrentPage") = Session("CurrentPage") + 1
Case "previ"
Session("CurrentPage") = Session("CurrentPage") - 1
End Select
sqlstr = "SELECT * FROM tblSevCustInfo "
Set List = Server.CreateObject("ADODB.Recordset")
List.PageSize = 4
List.Open sqlstr, dbCon, 1
List.AbsolutePage = Session("CurrentPage")
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgcolor="#FFFFFF">
<div align="center">
<center>
<p><font color="#004000"><strong>xxxxx</strong></font></p>
</center>
</div>
<% If Not (List.EOF and List.BOF) then %>??
<div align="center">
<center>
<table border="0" cellspacing="0" width="100%">
??<tr align=center bgcolor="009C9C">
????<td width=10%>
??????<b><div align="center"><font color=#FFFFFF>ID</font></div></td>
????<td width=10%>
??????<b><div align="center"><font color=#FFFFFF>Survey</font></div></td>
????<td width=20%>
??????<b><div align="center"><font color=#FFFFFF>Model</font></div></td>
????<td width=20%>
??????<b><div align="center"><font color=#FFFFFF>VIN_NUM</font></div></td>
????<td width=20%>
??????<b><div align="center"><font color=#FFFFFF>Customer Name</font></div></td>
??? <td width=20%>
??????<b><div align="center"><font color=#FFFFFF>Email</font></div></td>
??</tr>
<%
End if
i = 1
Do until List.EOF Or i > List.PageSize
%>
<tr align=center>
????<td width="10%" align=center>
????? <div align="center"><%=Cint(List("ID"))%> </div>
????</td>
????<td width="10%" align=center>
????? <div align="center"><%=Trim(List("TookSurvey"))%> </div>
????</td>
????<td width="20%" align=center>
??????<div align="center"> <%=right(Trim(List("ModelID")), 12)%> </div>
????</td>
????<td width="20%" align=center>
?????<div align="center"> <%=Trim(List("VIN_NUM"))%> </div>
????</td>
????<td width="20%" align=center>
????? <div align="center"><%=Trim(List("OwnerName"))%> </div>
????</td>
<td width="20%" align=center>
????? <div align="center"><a href="mailto:<%=Trim(List("Email"))%>"><%=Trim(List("Email"))%></a></div>
????</td>
??
??</tr>
?? <%
?? List.MoveNext
?? i = i + 1
??
Loop
%>
</table></center></div>
<br>
<BR>
<table align="center" width=100% border="0" cellspacing="1" cellpadding="0" bgcolor=#FFFFFF>
??<tr align=left>
????<td>
<% If Session("CurrentPage") > 1 then %>
<a href="allcustlist.asp?page=prev">Previous Page</a>
<% end if %>
<% If Session("CurrentPage") < List.PageCount then %>
<a href="allcustlist.asp?page=next">Next Page`</a>
<% end if %>
????</td>
??</tr>
</table>
<br />
<br />
<table cellspacing=0 cellpadding=0 align=center width=100%>
<tr>
<td align="left"><a href="admin_list.asp">Back to Admin List</td>
</tr>
<tr>
<td align=right>Page <%=Pageno%> / <%=List.PageCount%></td>
</tr>
</table>
</BODY>
</HTML>
<%
End if
%>