Error al paginar HOLA AMIGOS
Alguno me podría illustrar sobre este error:
ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
verpape.asp, línea 69
Estoy intentando paginar donde existe un query UPDATE
DE ANTEMANO GRAAACIAS.
Mi codigo es el siguiente:
<%@ LANGUAGE="VBScript" %>
<% Response.Expires = 0 %>
<%
Dim Alerta
Alerta = ""
Dim rs
Dim suc
suc= Request.Form ("sucursal")
Dim sta
sta= Request.Form ("status")
Dim myConn 'CONEXION DE SQL SERVER
set myConn = server.CreateObject("ADODB.Connection")
myConn.Open "Driver={SQL Server};Server=(local);Database=tbhmat;Uid=vaivan; Pwd=zas123;"
Dim Actualiza
Actualiza = Request.QueryString("Actualiza")
Dim sqlText
If Actualiza > "1" Then
sqlText = "UPDATE papeimpresa SET "
sqlText = sqlText & "Comentario ='" & Request.Form("comentario") & "'"
sqlText = sqlText & ",Status ='" & Request.Form("status") & "'"
sqlText = sqlText & ",Revisado ='" & Request.Form("revisado") & "'"
sqlText = sqlText & ",Recibido ='" & Request.Form("recibido")& "'"
sqlText = sqlText & " WHERE Id ='" & Request.QueryString("Actualiza")&"'"
myConn.Execute sqlText
Alerta = "onload=""alert('Registro modificado satisfactoriamente')"""
End If
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT LANGUAGE=javascript>
function Mensaje(strPwd)
{
alert(strPwd)
}
function Confirma(mensaje,strURL)
{
if (confirm(mensaje))
{
window.navigate(strURL);
}
}
//-->
</SCRIPT>
</HEAD>
<BODY <%=Alerta%> >
<H2><Font face=tahoma,verdana color=firebrick>Actualizar Papeleria Impresa</font></H2>
<BR>
<a href="intranet.asp" Target="contenido" style="TEXT-DECORATION:NONE">
<%
Const adOpenkeyset = 1
set rs=createobject("ADODB.Recordset")
sqlText="select * from papeimpresa Where Status like 'pendiente' Or Status like 'en_curso' ORDER BY Id"
set rs= Server.CreateObject("ADODB.Recordset")
rs.PageSize = 2 'cantidad de datos por hoja
rs.open sqltxt,myConn
rs.openadOpenKeyset %>
<%If rs.EOF AND rs.BOF then %>
<h3 align="center">
<B><font color="Darkblue">No hay datos que coincidan con su petición o<br>ingresaste mal la busqueda</font></h3>
<BR><B><font color="Darkblue" face=verdana,arial,tahoma>REGRESAR<<</FONT></B></a>
<%
else
If Request.QueryString("pagina") = "" Then
rs.AbsolutePage = 1
Else
rs.AbsolutePage = Request.QueryString("pagina")
End If
%>
<CENTER>
Página
<%
If Request.QueryString("pagina") = "" Then
Response.Write(rs.AbsolutePage)
Else
Response.Write(Request.QueryString("pagina"))
End If
%>
de
<% = rs.PageCount %>
</font></B>
</CENTER>
<CENTER>
<TABLE BORDER=0>
<TR>
<% For p = 1 To rs.PageCount %>
<TD ALIGN=CENTER>
<B><FONT SIZE=3 face=tahoma,arial,verdana COLOR="darkblue">
<A HREF="verpape.asp?pagina=<% = p %>"><% = p %></A>
</B></FONT>
</TD>
<% Next %>
</TR>
</TABLE>
</CENTER>
<%
For i = 1 To rs.PageSize
If rs.EOF Then
Exit For
End If
%>
<FORM action="verpape.asp?Actualiza=<%=rs ("Id")%>" method=post id=form1 name=form1>
<table border="1" width="600Px" bordercolor=SlateGray>
<tr>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Sucursal:</font></th>
<td width="300px" align="left" bgcolor="#ffffff">
<B><font color="#000000" face=Tahoma size=2><%=rs ("Sucursal")%></B></font></td>
<th width="80px" valign="center" align="middle" bgcolor=LightSteelBlue><font color="#000000" face=Tahoma size=2>NS</font></th>
<td width="20px"><%=rs ("Id")%></td>
</TR>
<TR>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Tipo:</font></th>
<td width="600px" align="left" bgcolor="#ffffff">
<font color="#000000"><%=rs ("Tipo")%><FONT face=Tahoma size=2></FONT></font></td>
</TR>
<TR>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Cantidad:</font></th>
<td width="300px" align="left" bgcolor="#ffffff">
<font color="#000000"><%=rs ("Cantidad")%><FONT face=Tahoma size=2></FONT></font></td>
</TR>
<TR>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Unidad:</font></th>
<td width="300px" align="left" bgcolor="#ffffff">
<font color="#000000"><%=rs ("Unidad")%><FONT face=Tahoma size=2></FONT></font></td>
</TR>
<TR>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Folio:</font></th>
<td width="300px" align="left" bgcolor="#ffffff">
<font color="#000000"><%=rs ("Folio")%><FONT face=Tahoma size=2></FONT></font></td>
</TR>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Clave:</font></th>
<td width="300px" align="left" bgcolor="#ffffff">
<font color="#000000"><EM>No visible por seguridad</EM><FONT face=Tahoma size=2></FONT></font></td>
</TR>
<TR>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Comentarios:</font></th>
<td width="300px" align="left" bgcolor="#ffffff">
<TEXTAREA rows=2 cols=60 id=comentario name=comentario value="<%=rs ("Comentario")%>" >
</TEXTAREA></td>
</TR>
<TR>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Solicitado el:</font></th>
<td width="300px" align="left" bgcolor="#ffffff">
<font color="#000000"><%=rs ("Fecha")%><FONT face=Tahoma size=2></FONT></font></td>
</TR>
<TR>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Hora:</font></th>
<td width="300px" align="left" bgcolor="#ffffff">
<font color="#000000"><%=rs ("Hora")%><FONT face=Tahoma size=2></FONT></font></td>
</TR>
<TR>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Estatus:</font></th>
<td width="300px" align="left" bgcolor="#ffffff">
<SELECT style="font-family=Verdana" Style="background-color=#fffff0" Style="font-weight=bold" size=1 id=status name=status>
<OPTION selected><%=rs("Status")%></OPTION>
<OPTION>en_curso</OPTION>
<OPTION>entregado</OPTION>
</SELECT>
</td>
</TR>
<TR>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Revisado:</font></th>
<td width="300px" align="left" bgcolor="#ffffff">
<INPUT type="text" id=revisado name=revisado value="<%=rs ("Revisado")%>">
<FONT face=Tahoma size=2> Por Sistemas </FONT></td>
</TR>
<TR>
<th width="200px" valign="center" align="middle" bgcolor=LightSteelBlue>
<font color="#000000" face=Tahoma size=2>Recibido el:</font></th>
<td width="600px" align="left" bgcolor="#ffffff">
<font color="#000000"><INPUT type="text" id=recibido name=recibido value="<%=rs ("Recibido")%>">
<FONT face=Tahoma size=2> Por la sucursal: <%=suc%></FONT></font></td>
</tr>
</Table>
<INPUT type="submit" value="Guardar" id=guardar name=guardar>
</form>
<P>
<%
rs.movenext
Next
%>
</table>
<p> </p>
<%
rs.close
End if
Set rs = Nothing
Set myConn = Nothing
%><P> </P>
</BODY>
</HTML>
Ups 
creo que tuve mis 5 minutos de tontez.
