Error Wend ?? Alguien me puede decir por que me envia el siguiente error :
Microsoft VBScript compilation error '800a0400'
Expected statement
/skytel/bases/prueba.asp, line 124
Wend
^
Estoy intentando paginar y mi codigo es el siguiente, la linea 124 es donde se encuentra el WEND (En Negritas)
<HEAD>
</HEAD>
<BODY>
<div align="left">
<table border="0" width="62%">
<tr>
<td width="12%"><font size="5">
<b><img border="0" src="../../WEB/zhajid.jpg" width="88" height="65"></b>
</font>
</td>
<td width="88%">
<p align="center"><font size="5"><b>Datos De la tabla Skytel</b>
</font>
</td>
</tr>
</table>
</div>
<p>
<%
'Instanciamos y abrimos nuestro objeto conexion
Dim Conn,strSQL, objRS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Ctro Mensajes.mdb"))
Dim Temp
set objRS=createobject("ADODB.Recordset")
strSQL = "SELECT * FROM Skytels ORDER BY id DESC"
'INTENTAMOS PAGINAR
objRS.pagesize = 10
objRS.CursorLocation=3
objRS.CursorType=3
'TERMINA PRIMERA PARTE
Set objRS = Conn.Execute(strSQL)
while (not objRS.Eof)
'Tomamos el valor de la pagina en la que nos encontramos
Pagina = Request.QueryString("pagina")
if pagina < "1" or pagina = "" then
pagina = "1"
end if
if not objRS.eof then
'Indicamos que pagina debe de mostrar
objRS.AbsolutePage = prueba.asp
end if
%>
<p align="center"><b><font size="4"><br>
</font></b></p>
<div align="left">
<%
'Hacemos un loop con la cantidad de registros especificados en rs.pagesize, para que solo muestre esa cantidad
For i = 1 to 10
'Verificamos cada ves que no sea fin de archivo
if not objRS.eof then%>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=1 width="548" height="126">
<tr>
<TD width="532" align="left" height="19" colspan="2">
<hr>
</TD>
</tr>
<TR>
<TD width="204" align="left" height="19"><b><font color="#FF0000" size="5">ID :</font></b></TD>
<td height="19" width="328"><font color="#FF0000" size="5"><%=objRS("ID")%>
<table>
<tr>
<TD width="204" align="left" height="19"><b><font size="4">Nombre
:</font></b></TD>
<td height="19" width="328"><font size="4"><%=objRS("Nombre")%></font></td>
</tr>
<tr>
<TD width="204" align="left" height="20"><b><font size="4">Apellido
:</font></b></TD>
<td height="20" width="328"><font size="4"><%=objRS("Apellido")%></font></td>
</tr>
<tr>
<TD width="204" align="left" height="19"><b><font size="4">Nombre
Completo :</font></b></TD>
<td height="19" width="328"><font size="4"><%=objRS("pal")%></font></td>
</tr>
<tr>
<TD width="204" align="left" height="19"><b><font size="4">Pin
:</font></b></TD>
<td height="19" width="328"><font size="4"><%=objRS("pin")%></font></td>
</TR>
<tr>
<TD width="532" align="left" height="19" colspan="2">
<hr>
</TD>
</TR>
<Table Width="600" border="0" align="center">
<TR>
<!-- navegacion hacia paginas anteriores -->
<%if pagina = "1" then%>
<TD width="25%" align="center"> << </TD>
<TD width="25%" align="center"> < </TD>
<%else%>
<TD width="25%" align= "center"><ahref="prueba.asp?pagina=0"> << </a></TD>
<TD width="25%" align= "center">ahref="prueba.asp?pagina=<%=pagina-1%>"> < </a></TD>
<%end if%>
<!--navegacion hacia paginas posteriores-->
<%if int(pagina) => objRS.PageCount then%>
<TD width="25%" align="center"> > </TD>
<TD width="25%" align="center"> >> </TD>
<%else%>
<TD width="25%" align= "center"><ahref="prueba.asp?pagina=<%=pagina+1 %>"> > </a></TD>
<TD width="25%" align= "center">ahref="prueba.asp?pagina=<%=objRS.PageCou nt%>"> < </a></TD>
<%end if%>
</TR>
</Table>
<%
objRS.MoveNext
Wend
end if
objRS.Close
Conn.Close
%>
<p> </p>
</BODY>
De Ante Mano Muchas GRACIAS
