Ho realizzato un pagina per la paginazione di record
Sul server locale tutto funziona, su remoto mi dà questo errore:

Tipo di errore: ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

l'errore è su questa riga:

Rec.AbsolutePage = Pag

Perchè in remoto no va?
----------------------------------

<%@LANGUAGE="VBSCRIPT"%>
<!--#include virtual="/Connections/conn_urban.asp" -->
<!--#INCLUDE virtual="/2709/titrovi/CLS/CLS_Titrovi.asp"-->
<%
Dim Rec__varfdata1
Rec__varfdata1 = "#01/01/2000#"
If (Request.Form("f_data1") <> "") Then
Rec__varfdata1 = "#" & Request.Form("f_data1") &"#"
End If
%>
<%
Dim Rec__varfdata2
Rec__varfdata2 = "#31/12/2010#"
If (Request.Form("f_data2") <> "") Then
Rec__varfdata2 = "#" & Request.Form("f_data2") & "#"
End If
%>
<%
Dim Rec__varftesto
'Rec__varftesto = "'%a%'"
'If (Request.Form("f_testo") <> "") Then
' Rec__varftesto = "'%" & Request.Form("f_testo") & "%'"
'End If
Rec__varftestolink = Request("f_testo")
Rec__varftesto = "'%" & Rec__varftestolink & "%'"
%>
<%
'Numero di record visualizzati per pagina
Record_Pagina = 5
'Numero di Pagine visualizzate nei link
Numerazione_Max = 6
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open (MM_conn_urban_STRING)

sql = "SELECT * FROM news WHERE testo like " + Rec__varftesto + " or titolo like " + Rec__varftesto + " or segue like "+ Rec__varftesto + " ORDER BY data DESC"
Set Rec = Server.CreateObject ("ADODB.Recordset")
Rec.PageSize = Record_Pagina
Rec.Open sql, Conn, 3, 3
'Recupero il numero della pagina corrente
Pag = CInt(Request.Querystring("pag"))
'Controllo che il numero di pagina sia corretto
If (Not Rec.Eof) Then
If Pag>Rec.PageCount Then
Pag = Rec.PageCount
End If
If Pag = 0 Then
Pag = 1
End If
'Setto la pagina corrente
Rec.AbsolutePage = Pag
Rec_total = Rec.Recordcount
'Ora prepariamo i link alle pagine
indice_inizio = pag-(Numerazione_Max/2)
If (indice_inizio>(Rec.PageCount-Numerazione_Max)) Then
indice_inizio = Rec.PageCount-Numerazione_Max+1
End If
If (indice_inizio<=0) Then
indice_inizio = 1
End if
indice_fine=indice_inizio+Numerazione_Max-1
If (indice_fine>Rec.PageCount) Then
indice_fine = Rec.PageCount
End If
'Link alla prima pagina
Link = "<a href=""?pag=1&amp;f_testo="&Rec__varftestolink&""""" title=""vai alla prima pagina"" tabindex=""40"">&laquo;</a> |"
'Link alle pagine precedenti
If (indice_inizio<>1) Then
Link=Link&" <a href=""?pag="&(indice_inizio-1)&"&amp;f_testo="&Rec__varftestolink&""" title=""vai alla pagina precedente"" tabindex=""40""> precedente</a> |"
End If
For i=indice_inizio to indice_fine
'Pagina attuale
If (i=pag) then
Link = Link&" <strong>[ "&i&" ]</strong> "
'Link alle altre pagine
Else
Link = Link&"<a href=""?pag="&i&"&amp;f_testo="&Rec__varftestolink&""" title=""vai alla pagina "&I&""" tabindex=""40"">[ "&i&" ]</a> | "
End If
Next
'Link alle pagine successive
If (indice_fine<Rec.PageCount-1) Then
Link = Link&"<a href=""?pag="&(indice_fine+1)&"&amp;f_testo="&Rec__varftestolink&""" title=""vai alla pagina succesiva"" tabindex=""40""> succesiva</a> | "
End If
'Link all'ultima pagina
Link=Link&" <a href=""?pag="&Rec.PageCount&"&amp;f_testo="&Rec__varftestolink&""" title=""vai all'ultima pagina"" tabindex=""40""> &raquo;</a> "
End If
%>