A página tá exibindo este erro:
Microsoft VBScript compilation error '800a0400'
Expected statement
/login5/home.asp, line 74
Wend
^
Na linha 74 eu tenho isso:
<b><%=rs("campo")%></b><br>
<% rs.MoveNext
Wend
anterior = pagina - 1
proxima = pagina + 1
Abaixo código completo da página:
<%@ Language=VBScript %> <%Response.Expires = 0%> <%Response.Buffer = true%> <!--#include file="verify_login.asp"--> <!--#include file="header.asp"--> <% registros = 20 pagina = Request.QueryString("pagina") If pagina = "" Then pagina = 1 End If user = Session("member") Set rs = Server.Createobject("ADODB.RECORDSET") set rs.ActiveConnection = Conexao rs.CursorType = 3 rs.PageSize = registros sql = "SELECT * FROM User_logTime WHERE offline=True AND user_id=" & user & " ORDER BY id DESC" rs.Open sql If rs.EOF Then Response.Write "Nenhum registro encontrado" Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>" rs.Close rs.Open "SELECT DISTINCT user_id FROM User_LogTime WHERE offline=False", Application("connString"), 3 online = rs.RecordCount rs.Close set rs = nothing Response.Write "<table cellspacing=2 cellpadding=2 width=50% >" Response.Write "<tr bgcolor=#333366>" Response.Write "<td><font class=colltitle>Sessão N.º:</a></td>" Response.Write "<td><font class=colltitle>Data e Hora do Login:</a></td>" Response.Write "<td><font class=colltitle>Data e Hora do Logout:</a></td>" Response.Write "<td><font class=colltitle>IP:</a></td>" Response.Write "</tr>" & vbcrlf i = 1 while not rs_Log.EOF if i mod 2 then Response.Write "<tr class=defaultsmall>" else Response.Write "<tr class=defaultsmall bgcolor=#dedede>" end if Response.Write "<td>" & rs_Log("SID") & "</td>" Response.Write "<td>" & rs_Log("Login_Time") & "</td>" if rs_Log("Logout_Time") <> "" then Response.Write "<td>" & rs_Log("Logout_Time") & "</td>" else Response.Write "<td>N/A</td>" end if Response.Write "<td>" & rs_Log("user_ip") & "</td>" Response.Write "</tr>" & vbcrlf i = i + 1 rs_Log.MoveNext wend Response.Write "</table>" Response.Write "<p class=defaultsmall>" & online & " usúario(s) online.</p>" else Response.Write "<p class=FieldLabel>Este é seu primeiro acesso ao sistema.<br> Você ainda não tem histórico, faça o logout e logue-se novamente.</p>" end if rs_Log.Close set rs_Log = nothing %> <a href='logout.asp' class=errmsg>Logout!</a> Else rs.AbsolutePage = pagina While Not rs.EOF AND x < rs.PageSize x = x + 1 %> <b><%=rs("campo")%></b><br> <% rs.MoveNext Wend anterior = pagina - 1 proxima = pagina + 1 ultima = rs.PageCount primeira = 1 ultm2 = FormatNumber(rs.PageCount - 1,0) If pagina <> 1 Then Response.Write "<b>« <a href=home.asp?pagina="&primeira&">Primeira Página</a></b> " End If If pagina > 1 AND pagina <> 2 Then Response.Write "<b>[ <a href=home.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> " End If If pagina > 1 Then Response.Write "<b>[ <a href=home.asp?pagina="&anterior&">"&anterior&"</a> ]</b> " End If Response.Write "<b>[ "&pagina&" ]</b> " If Not rs.EOF Then Response.Write "<b>[ <a href=home.asp?pagina="&proxima&">"&proxima&"</a> ]</b> " End If If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then Response.Write "<b>[ <a href=home.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> " End If If Not rs.EOF Then Response.Write "<b><a href=home.asp?pagina="&ultima&">Última Página</a> »</b> " End If rs.Close Set rs = Nothing End If %>