Microsoft VBScript compilation error '800a0408'

tarzannn · January 12th, 2006, 02:09 AM

Microsoft VBScript compilation error '800a0408'

Invalid character

/xxx/xxx/xxxx.asp, line 96

                 List.MoveNext

My code is as follows

<%@LANGUAGE="VBSCRIPT" CODEPAGE="949"%>

<%

       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><strong>xxxxx</strong></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">ID</div></td>
Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡<td width=10%>
Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡<b><div align="center">Survey</div></td>
Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡<td width=20%>
Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡<b><div align="center">Model</div></td>
Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡<td width=20%>
Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡<b><div align="center">VIN_NUM</div></td>
Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡<td width=20%>
Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡<b><div align="center">Customer Name</div></td>
Â¡Â¡Â¡Â¡Â¡Â¡ <td width=20%>
Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡Â¡<b><div align="center">Email</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(Lis t("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
%>

tarzannn · January 12th, 2006, 02:24 AM

http://www.aspfaq.com/show.asp?id=2376

Steweb · February 3rd, 2006, 08:55 AM

Hi !

<%
Â¡Â¡Â¡Â¡ List.MoveNext
Â¡Â¡Â¡Â¡ i = i + 1
Â¡Â¡Â¡Â¡
Loop

%>

maby !

Code:

 <% 
           List.MoveNext 
           i = i + 1  
            Loop    
    %>

Steweb

I donât Speak English very well, excuse me !

www.steweb.net