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"> <%=kRSSHOWFULLNEW("nombre")%> <%=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