errore su query

[forte78]

ciao, vi posto la query



<%
Dim strSQL, rec, boolFound, intPageNum, intNumRows, intCount, intLinks, intPagina
Const RECORDSPERPAGE = 6

strSQL = "SELECT * FROM tabella1"

Set rec = Server.CreateObject("ADODB.Recordset")
rec.CursorLocation = adUseClient
rec.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
rec.PageSize = RECORDSPERPAGE

If ( Request("pn") <> "" ) Then
intPageNum = CInt(Request("pn"))
Else
intPageNum = 1
End If

'Conteggio delle righe
intNumRows = rec.RecordCount

If (intNumRows <> 0) Then
rec.AbsolutePage = intPageNum
'Esposizione dati
For intCount = 1 To rec.PageSize %>



mi da questo errore


ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/test/offerte.asp, line 304


la linea è questa
rec.CursorLocation = adUseClient

ciao aspetto notizie

[Domenix]

Fai un response.write adUseClient e un response.flush prima della riga dell'errore e vedi se contiene qualcosa.
Forse dovresti mettere nel sito il file adovbs.inc e includerlo in quella pagina.
Il file lo trovi nel tuo pc. Basta cercarlo.