Hola Chicos
una consulta, tengo una pagina de resultados con paginacion pero no se donde colocarle la opcion de al no encontrar resultados, se redireccione a otro lado
pongo el codigo
Fecha = FormatDateTime(Date,2)
nmes = month(fecha)
Server.ScriptTimeOut=180
abonado=session("nombre")
estado="pendiente"
Set Conexion=Server.CreateObject("adodb.connection")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("db/base.mdb")
tamanopagina=("")
if tamanopagina = "" then
tamanopagina=10
end if
paginaabsoluta=request.querystring("paginaabsoluta ")
if paginaabsoluta="" then
paginaabsoluta=1
end if
orden=request.querystring("")
if orden = "" then
orden="mitre"
estado="pendiente"
end if
set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
sqltxt="SELECT * FROM servicios_"&nmes&" where abonado='" & abonado & "' and estado='" & estado & "' order by fecha "
rs.Open sqltxt, conexion
if tamanopagina <> "all" then
rs.pagesize= cint(tamanopagina)
rs.absolutepage=cint(paginaabsoluta)
contador=1%>
<div align="center">
<center>
<table class="forumline" cellSpacing="0" cellPadding="3" width="659" border="0" height="157" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="649" background="../tecoop/images/pagina3.jpg" height="22">
y todo eso......
<% do while not rs.eof and contador <= cint(tamanopagina) %>
<tr>
<td width="99" bgcolor="#EFEFEF" height="1">
<p align="center">
<font face="Tahoma" size="1" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=rs.Fields("Abonado")%></font></td>
<td width="198" bgcolor="#EFEFEF" height="1">
<p align="center">
<font face="Tahoma" size="1" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=rs.Fields("Servicio")%></font></td>
<td width="79" bgcolor="#EFEFEF" height="1">
<p align="center"><font face="Tahoma" size="1"><%=rs.Fields("puntodeventa")%></font></td>
<td width="88" bgcolor="#EFEFEF" height="1">
<p align="center">
<font face="Tahoma" size="1" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=rs.Fields("estado")%></font></td>
<td width="77" bgcolor="#EFEFEF" height="1" style="font-family: Verdana, Arial, Helvetica, sans-serif">
<p align="center">
<font face="Tahoma" size="1" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=rs.Fields("fecha")%></font></td>
<td width="100" bgcolor="#EFEFEF" height="1">
<p align="center"><font face="Tahoma" size="1"><a href="delete.asp?id=<%=rs("id")%>">
<font color="#FFFFFF" size="2">
<img border="0" src="../tecoop/images/topic_delete.gif" alt="Eliminar Solicitud pendiente" align="center"></font></a></font></td>
</tr>
<%rs.movenext
contador=contador+1
loop%>
</table>
<p align="center">Pulsa en la página a la que deseas ir </p>
<table align="center" bgcolor="#ffffff">
<tr>
<%j=0
if cint(paginaabsoluta) <> 1 then
atras=cint(paginaabsoluta)-1
response.write "<td align=center><a href=personales.asp?abonado="&abonado&"&tamanopagi na="&tamanopagina&"&paginaabsoluta=" & atras & ">"&"<<"&"</a></td>"
j=j+1
end if
for i = 1 to rs.pagecount
j=j+1
if j>20 then
response.write "</tr><tr>"
j=1
end if
if cint(i) = cint(paginaabsoluta) then
response.write "<td bgcolor=#00ff00 align=center>"&i&"</td>"
else
response.write "<td align=center><a href=personales.asp?abonado="&abonado&"&tamanopagi na="&tamanopagina&"&paginaabsoluta=" & i & ">"&i&"</a></td>"
end if
next
end if%>
<%if cint(paginaabsoluta) <> rs.pagecount then
atras=cint(paginaabsoluta)+1
response.write "<td align=center><a href=personales.asp?abonado="&abonado&"&tamanopagi na="&tamanopagina&"&paginaabsoluta=" & atras & ">"&">>"&"</a></td>"
end if%>
</tr>
</table>
<p align="center"> </font></p>
</body>
</html>