Se esperaba END??

[Santiago0]

Este pedazo de codigo es una consulta con paginacion adaptado a mi manera :) para reemplazar a Response.write. Me tira el erro se esperaba end en las ultimas lineas pero igual les dejo el codigo para ver si tiene algun otro error poque yo no se mucho de asp.

<%
Dim Conn, Rs, SQL
Dim PaginaActual
Dim PaginasTotales
Dim TamPagina
Dim CuantosRegistros

If Request.Querystring("pagina")="" Then
PaginaActual=1
Else
PaginaActual=CInt(Request.Querystring("pagina"))
End If

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("../../database/database.mdb")&";"
Set Rs = Server.CreateObject("ADODB.Recordset")

If request.form("req_rest")<>"" Then
busqueda=request.form("req_rest")
Else
busqueda=request.querystring("req_rest")
End If

SQL = "SELECT NombreFantasia, Telefono, Domicilio, Localidad FROM restaurantes WHERE NombreFantasia LIKE '%" & Replace(busqueda, "'", "''") & "%' ORDER BY NombreFantasia"
Rs.Open SQL, Conn, 3, 3

TamPagina=10

Rs.PageSize=TamPagina
Rs.CacheSize=TamPagina

PaginasTotales=Rs.PageCount
If TamPagina > 0 Then
PaginasTotales=Rs.PageCount
End If

If PaginaActual < 1 Then
PaginaActual = 1
End If

If PaginaActual > PaginasTotales Then
PaginaActual = PaginasTotales
End If

If PaginasTotales=0 Then
Response.Write("<p class=texto>No se encontraron resultados.</p>")
Else
Rs.AbsolutePage=PaginaActual
%>

<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" class="texto">
<div align="right"><b>Página <%=PaginaActual%> de <%=PaginasTotales%></b></div>
</td>
</tr>
<tr>
<td colspan=4 class="texto" bgcolor="#990000"><img src=../../images/secciones/pixel_transp.gif width=1 height=1></td>
</tr>
<tr>
<td class="texto" width="50%"><b><%=Rs.Fields("NombreFantasia")%></b></td>
<td class="texto" width="50%"><b><%=Rs.Fields("Telefono")%></b></td>
</tr>
<tr>
<td class="texto" width="50%"><%=Rs.Fields("Domicilio")%></td>
<td class="texto" width="50%"><%=Rs.Fields("Localidad")%></td>
</tr>
<tr>
<td class="texto" colspan="2">&nbsp;</td>
</tr>
<tr>
<td class="texto" width="50%">

<%
If PaginaActual > 1 Then
Response.Write("<a href=req_rest.asp?pagina="& PaginaActual-1& ">10 anteriores</a>&nbsp;&nbsp;&nbsp;")
End If
%>

</td>
<td class="texto" width="50%">

<%
If PaginaActual < PaginasTotales Then
Response.Write("&nbsp;&nbsp;&nbsp;<a href=req_rest.asp?pagina=" & PaginaActual+1 &">10 siguientes</a>")
End If

Rs.Close
Conn.Close
Set Rs=nothing
Set Conn=nothing
%>

[Santiago0]

Me olvide de decirles que eso de corregirme el codigo no se lo tomen como que no quiero hacerlo yo es que lo adapte a mi manera y no se si esta bien.

[JuanJo.d]

Hola.

Te falta el "end if" correspondiente a este "if .... then"

If PaginasTotales=0 Then
Response.Write("<p class=texto>No se encontraron resultados.</p>")
Else
Rs.AbsolutePage=PaginaActual
%>

Saludos.

[Santiago0]

Si falta eso. Gracias