Ok.
codice:
Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim strOrderBy
Dim strSQL
Dim iRecordsShown
Dim Conn:Conn = "connessione" ' questa è ODBC
Dim rs:Set rs = Server.CreateObject("ADODB.Recordset")
SQL="SELECT * from tabella WHERE uno like'%"&uno&"%' and due like'%"&due&"%' order by "&ordina&",id asc"
rs.open SQL, Conn,3,3
RS.PageSize = iPageSize
RS.CacheSize = iPageSize
iPageCount = RS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
' non faccio nulla
else
RS.AbsolutePage = iPageCurrent :iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not RS.EOF
campo1=rs("campo1")
%>
Response.write campo1
<%iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing
Set Conn = Nothing
'Conn.Close ' non mi si chiude: non ho capito perchè
If iPageCurrent <> 1 Then
If iPageCurrent < iPageCount Then
End If
End If
%>
Grazie