error 0x800A0BB9

[ariesagv]

hola a todos
alguien que me pueda ayudar, lo que pasa que me sale este error y no se que onda, todo parece que esta bien

tipo de error:
ADODB.Recordset(0x800A0BB9)
Arguementos incorrectos,fuera del intervalo permitido o en conflicto con otros
me dice que es en la linea: 61

<%
'Para paginar
Dim num_reg 'cantidad de egistros por pagina
Dim cant_page 'cantidad de registros que recibio
Dim page_actual 'la pagina a mostrar
Dim reg_mostrado 'contador para mostrar paginas
num_reg=10
'Para saber que pagina se va a mostrar
if (request.QueryString("page")<> "") then
page_actual=Cint(request.QueryString("page"))
else
page_acual=1
end if
'Declaracion de variables
Dim vig
Dim vig_numRows
'conexion a la base de datos
Set vig = Server.CreateObject("ADODB.Recordset")
vig.ActiveConnection = X
vig.Source = "SELECT * FROM dbo.Prop_Ind"
vig.CursorType = 0
vig.LockType = 1
vig.Open()

vig_numRows = 0
vig.pagesize=num_reg 'establecemos el numero de registros por pagina
cant_page=vig.pagecount 'contamos las paginas que se formaron con la variable a mostrar
%>

<p>&nbsp;</p>
<table width="869" height="111" border="2" align="center" bordercolor="#336699">
<tr bgcolor="#999999" class="Estilo1">
<td width="52" height="44"><div align="center" class="Estilo1 Estilo2">Idp</div></td>
<td width="154"><div align="center" class="Estilo3">Titulo</div></td>
<td width="122"><div align="center" class="Estilo3">No.Solicitud</div></td>
<td width="150"><div align="center" class="Estilo3">fecha de Consecion </div></td>
<td width="83"><div align="center" class="Estilo3">No.IMPI</div></td>
</tr>
<% vig.absolutepage=page_actual
reg_mostrado=0
while not vig.EOF and reg_mostrado<num_reg
reg_mostrado=reg_mostrado+1
%>
<tr>
<td height="57"><%=(vig.Fields.Item("idp").Value)%></td>
<td><%=(vig.Fields.Item("titulo").Value)%></td>
<td><%=(vig.Fields.Item("num_solicitud").Value)% ></td>
<td><%=(vig.Fields.Item("fecha_cons").Value)%></td>
<td><%=(vig.Fields.Item("num_IMPI").Value)%></td>
</tr>
<%vig.Movenext
wend
%>
</table>
<table width="50%" border="0" aling="center">
<tr>
<% if page_actual>1 then%>
<td><font size="2" face="Arial,Helvetica,sans-serif"></font><a href="estadisticas.asp?page=<%=page_actual-1%>">Anterior</a></td>
<%end if%>
<td><font size="2"face="Arial,Helvetica,sans-serif">
<%I=1
for I=1 to cant_page
if I=page_actual then %>
<%=I%>
<%else%>
<a href="estadisticas.asp?page=<%=I%>"> <%=I%> </a>/
<%
end if
next%>
</font></td>
<%
if page_actual<cant_page then %>
<td><font size="2" face="Arial, Helvetica, sans-serif"><a href=estadisticas.asp?page=<%page_actual+1%>">Sigu iente</a><font></font></font></td>
<%end if%>
</tr>
</table>
<%
vig.Close()
Set vig = Nothing
%>

les mando el codigo, en la parte que esta en negritas es donde me pone el error
si alguien me puede ayudar

[Myakire]

mmmm, veo que no asignas la propiedad CursorLocation igual a adUseClient.

Además veo que defines el cursor como adOpenForwardOnly y no te permite moverte a paginas anteriores, normalmente no deberias tener problemas pero si asignas a AbsolutePage un valor menor al que tenia, pues te tronará (aunque no creo que con ese mensaje de error).

Prueba con eso primero, pero ..... ¿qué BD estas usando?, hay algunos proveedores que no soportan paginación.

[ariesagv]

Iniciado por Myakire

mmmm, veo que no asignas la propiedad CursorLocation igual a adUseClient.

Además veo que defines el cursor como adOpenForwardOnly y no te permite moverte a paginas anteriores, normalmente no deberias tener problemas pero si asignas a AbsolutePage un valor menor al que tenia, pues te tronará (aunque no creo que con ese mensaje de error).

Prueba con eso primero, pero ..... ¿qué BD estas usando?, hay algunos proveedores que no soportan paginación.

Hola Myakire mira utilice juego de registros no se si haya algun problema, bueno mi base de datos esta en sql server 2000, entonces no se que onda?

[Myakire]

A ver, se que no es una respuesta exacta a tu problema, pero puede que esto te saque del problema

[ariesagv]

Iniciado por Myakire

A ver, se que no es una respuesta exacta a tu problema, pero puede que esto te saque del problema

hola Myakire nadamas para avisarte que ya solucione mi problema, muchas gracias

[Myakire]

Excelente , ¿qué resultó ser?