Questo codice mi dà lo stesso errore che ha incontrato Marcocarra.

Non riesco a risoverlo.

Mi potete dare una mano?

Grazie.


<% Option Explicit
Const DbLocation = "C:\Inetpub\wwwroot\CallCenter2003\Database\Callcenter.mdb"
Const RecordsPerPage = 1

%>

<!--#include file="adovbs.inc"-->

<%
Function OpenDataBase()

Dim dcnDb ' As ADODB.Connection

Set dcnDb = Server.CreateObject ("ADODB.Connection")
dcnDb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Persist Security Info=false;Data Source=" _
& DbLocation

dcnDb.Open

Set OpenDataBase = dcnDB

End Function

'------------------------------------------------------------------

Function RetrieveData(dcnDb)

Dim rsData ' As Adodb.Recordset
Dim sqlResult ' As String

Dim Param1 ' As string
Dim Param2 ' As String
Dim Param3 ' As String

Param1=Request.Form("Modello")
Param2=Request.Form("Quadro")
Param3=Request.Form("Rigo")

sqlResult = "SELECT * From All_Validate WHERE Modello='" &Param1& "' and Quadro='" &Param2& "' and Riga='"&Param3& "' ORDER BY All_Validate.Progressivo"

set rsData = Server.CreateObject ("ADODB.Recordset")
rsData.CursorLocation = adUseClient
rsData.Open sqlResult, dcnDb, 1, 3


Set RetrieveData = rsData

Response.Write sqlResult


End Function

'------------------------------------------------------------------

Sub DisplayData(rsData, intPageNum)

Dim intCount ' As integer

rsData.AbsolutePage = intPageNum

For intCount = 1 to rsData.PageSize

if rsData.EOF or rsData.BOF then Exit For

rsData.AbsolutePage = intPageNum

%>


<%
rsData.MoveNext

Next 'intCount


%>

<%

DisplayPageLinks rsData, intPageNum
DisplayNavigation rsData, intPageNum

%>
<%

End Sub

'-------------------------------------------------------------------

Sub DisplayPageLinks(rsData, intPageNum)

Dim i ' as integer


%>

<Font Face ="Verdana" Size="2">
<%
Response.Write "<P>Passa alla domanda:"



for i = 1 to rsData.PageCount

If i = intPageNum then
Response.Write i & "&nbsp;"
Else
Response.Write "<a href=""" _
& Request.ServerVariables("SCRIPT_NAME") _
& "?pn=" & i _
& """>" & i & "</a> "
End if


Next ' i


Response.Write "</P>"
%>

</Font>
<%

End sub


' ---------------------------------------------------------------------------

Sub DisplayNavigation(rsData, intPageNum)

%>
<Font Face ="Verdana" Size="2">
<%
Response.Write "<P>"

If intPageNum > 1 then
Response.Write "<a href=""" _
& Request.ServerVariables ("SCRIPT_NAME") _
& "?pn=" & intPageNum - 1 _
& """>Domanda Precedente</a>&nbsp;&nbsp;&nbsp;"
End if


If intPageNum < rsData.PageCount then
Response.Write "<a href=""" _
& Request.ServerVariables("SCRIPT_NAME") _
& "?pn=" & intPageNum + 1 _
& """>Domanda Successiva</a>&nbsp;"
End if

Response.Write "</P>"
%>
</Font>
<%
End sub
'----------------------------------------------------------------

Sub Main()

dim dcnDB ' As ADODB.CONNECTION
dim rsData ' As ADODB.RECORDSET
dim intPageNum ' As Integer


set dcnDb = openDataBase()
set rsData = RetrieveData(dcnDb)

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

rsData.PageSize = RecordsPerPage

DisplayData rsData, intPageNum

rsData.Close
dcnDb.Close

set rsData=nothing
Set dcnDb=nothing

End Sub

Call Main


%>