ADODB.Recordset (0x800A0BB9)

[ess_sebastian]

Alguien me puede ayudar??, este error me sale cuando ejecuto el codigo abajo!
alguien sabe por que puede ser!!


ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/goltop10/includes/feed/comfoot.asp, línea 14

Código PHP:

  DIM qCONNECT,qDBCONN,qSQL
 
qCONNECT="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("xxx.MDB")
Set qDBCONN=Server.CreateObject("ADODB.Connection")
qDBCONN.OPEN qCONNECT
 
NEWSPERPAG3    =    3
SET kRSSHOWFULLNEW = SERVER.CREATEOBJECT("ADODB.RECORDSET")
kRSSHOWFULLNEW.OPEN "SELECT * FROM xxx order by id desc", qDBCONN, 3, 3
%>
<%
kRSSHOWFULLNEW.PageSize = NEWSPERPAG3
If NOT kRSSHOWFULLNEW.EOF Then kRSSHOWFULLNEW.AbsolutePage = qcurrentpage
 
If kRSSHOWFULLNEW.EOF Then
Else
FOR U = 1 TO NEWSPERPAG3
    IF kRSSHOWFULLNEW.EOF THEN EXIT FOR
%>
 
<tr>
<td><%=kRSSHOWFULLNEW("comentshort")%><br>>> Por <img src="images/iconos/user.png" border="0">&nbsp;<%=kRSSHOWFULLNEW("nombre")%>&nbsp;<%=kRSSHOWFULLNEW("apellido")%></b>     </td>
<td><%=kRSSHOWFULLNEW("fecha")%><br /></td>
</tr>
 
 <% kRSSHOWFULLNEW.MOVENEXT
    NEXT%>
 
<%
pages = int(total/NEWSPERPAG3)
IF (total MOD NEWSPERPAG3) <> "0" Then
   pages = pages + 1
END IF
rs2 = int(qcurrentpage*NEWSPERPAG3)
rs1 = int(rs2-NEWSPERPAG3+1)
%>
    
<%END IF%> 
   

la linea 14 es If NOT kRSSHOWFULLNEW.EOF Then kRSSHOWFULLNEW.AbsolutePage = qcurrentpage

[Shiryu_Libra]

y este cuando toma valor???

qcurrentpage

digo, por que necesitas proporcionarle un numero, no puedes ponerlo en vacio.... no crees????