Hola os adjunto un código de mi paginación,
tengo un error, no se como abrir la conexion de sql server con los cursores...
a ver si me lo podeis solucionar
<%
Dim Conex
Set Conex = Server.CreateObject ("ADODB.Connection")
Conex.Open "driver={SQL Server};server=OFI0924; database=neteja;
uid=neteja;pwd=neteja"
SQL = "exec sp_tipus_treballador_s"
Set rs = Conex.execute(sql) 'aquí ejecuto la query y la conex ya esta
abierta
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
rs.Open SQL, Conex, 1, 2 'esto esta mal, ya tengo la conex abierta, pero
no se como solucionarlo ??
PaginasTotales=rs.PageCount
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
if PaginasTotales=0 then
Response.Write("No hi han registres a la base de dades.")
else
rs.AbsolutePage=PaginaActual
end if
%>
Leer las respuestas