Buenas Tardes:
Estoy desarrollando un paginador en ASP, soy nuevo en ASP, me esta dando:
Tipo de error:
ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/hsi/negocio/aapagi.asp, línea 39
Linea (rs.open ssql,con,3,3 )
El codigo es este:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Option Explicit
dim con,ssql,rs,busqueda,cantidadregistros,mostrarpagi na,contreg,maxpagina,maxregistros
busqueda=Request.Form("busqueda")
'response.write("Principio Busqueda" & Request.Form("busqueda"))
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>
<!--#Include File="../includes/rutinas.asp"-->
<!--#Include File="../includes/conexiones.asp"-->
<%
conectarse(con)
ssql="select * from ejemplares order by nombre"
cantidadregistros=5
%>
<%
if request.querystring("paginaactual")<>"" then
mostrarpagina=request.querystring("paginaactual")
else
mostrarpagina=1
end if
%>
<%
set rs=Server.CreateObject("ADODB.Recordset")
rs.cachesize=60
rs.open ssql,con,3,3
'set rs = con.Execute(sSQL)
%>
<%
rs.pagesize=cantidadregistros
maxpagina=cint(rs.pagecount)
maxregistros=cint(rs.pagesize)
rs.absolutepage=mostrarpagina
contreg=0
%>
<%
if int(mostrarpagina)<>int(maxpagina) then '-- Si no es la última página.
hasta=mostrarpagina*5
desde=hasta-4
else
hasta=rs.recordcount
desde=(maxpagina*5)-4
end if
%>
<%
response.write "Resultados : "
response.write desde & " a " & hasta & " de " & rs.recordcount & " encontrados."
%>
<%
do while not rs.eof and contreg < maxregistros
response.write rs.fields("nombre") & "<br>"
rs.movenext
contreg=contreg+1
loop
%>
<%
cero="0"
nombrescript=request.servervariables("script_name" )
if int(mostrarpagina)<>1 then '--si no es la primer página mostrar botón atrás
ref="<a href='" & nombrescript & "?buscar=" &_
Server.Urlencode(request.querystring("buscar"))
ref=ref & "&paginaactual=" & mostrarpagina-1
ref=ref & "'>[<< Anterior]</a> "
end if
for contador=1 to maxpagina
If contador>9 then
cero=""
end if
ref=ref & " <a href='" & nombrescript
ref=ref & "?buscar=" & Server.Urlencode(request.querystring("buscar"))
ref=ref & "&paginaactual=" & contador
if int(contador)=int(mostrarpagina) then '-- pone en negrita pagina actual
ref=ref & "'><strong>" & cero & contador & "</strong></a>"
else
ref=ref & "'>" & cero & contador & "</a>"
end if
next
if int(mostrarpagina)<>int(maxpagina) then '-- si no es la última página
' mostrar botón siguiente
ref=ref & " <a href='" & nombrescript & "?buscar="
ref=ref & Server.Urlencode(request.querystring("buscar"))
ref=ref & "&paginaactual=" & mostrarpagina+1
ref=ref & "'>[Siguiente >>]</a>"
end if
response.write ref
%>
<body>
</body>
</html>
Le agradecería a alguien si me podria ayudar