redireccionar si no hay registros

[normab]

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 & ">"&"&lt;&lt;"&"</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 & ">"&"&gt;&gt;"&"</a></td>"

end if%>

</tr>

</table>

<p align="center">&nbsp; </font></p>

</body>

</html>

[El_Metallick]

seria poniendo un if algo asi

if rs.eof then
response.redirect....

prueba con eso... saludos y suerte

[normab]

gracias por responder, el problema es que dondo ponga esas lineas deja de funcionar todo.
ya probe cambiando por do while pero nada..

[GaboMaKano]

rs.Open sqltxt, conexion

<----- aca insertas
if rs.eof then
response.redirect...

else

if tamanopagina <> "all" then
bla bla bla
....
....
....
end if

eso debería funcionarte sin problemas

[bonocl]

Hola... no sé si te entiendo bien, pero creo que lo que puedes usar es lo siguiente:

if rs.recordcount = 0 then
response.redirect("otrapagina.asp")
end if

Y de esa forma, si no hay registros, se va a otra página...

Si es que te entendí...