PAGINADO (ADODB.Recordset error '800a0cb3') ADODB.Recordset error '800a0cb3'
El recordset actual no admite marcadores. Puede deberse a una limitación del proveedor o del tipo de cursor seleccionado.
/puntodeventa/businessLayer/rptventaspendientes.asp, línea 53
ya estuve revisando los foros, pero no se que tengo mal o si tengo que realizar la conexión sobre la misma pagina, si alguien me puede ayudar se los agrade seria, o si conocen otra forma de pagina también de ante mano gracias.
Cita:
strSQL = "RPTVENTASPENDIENTES "& idventa &", "& idcliente &""
'response.Write strSQL
'response.End
call conecta()
'constantes ADO VBScript
Const adCmdText = &H0001
Const adOpenStatic = 3
response.Write strSQL&","&adOpenStatic&","&adCmdText
set rs = conn.execute(strSQL,adOpenStatic,adCmdText)
if not rs.eof then
'actualizamos numero de pagina
If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina") = 1
End If
'resultados por pagina a elegir arbitrariamente
num_registros = 5
'Dimensionamos las paginas y determinamos la pagina actual
rs.PageSize=num_registros
rs.AbsolutePage=Session("pagina") ' esta seria la linea 53
%>
'response.Write strSQL
'response.End
call conecta()
'constantes ADO VBScript
Const adCmdText = &H0001
Const adOpenStatic = 3
response.Write strSQL&","&adOpenStatic&","&adCmdText
set rs = conn.execute(strSQL,adOpenStatic,adCmdText)
if not rs.eof then
'actualizamos numero de pagina
If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina") = 1
End If
'resultados por pagina a elegir arbitrariamente
num_registros = 5
'Dimensionamos las paginas y determinamos la pagina actual
rs.PageSize=num_registros
rs.AbsolutePage=Session("pagina") ' esta seria la linea 53
%>
