Ho visto con immenso dispiacere che il vecchio topic sulla paginazione non è più up, vi posto la mia; mi potete dire dove sbaglio, oppure se conoscete uno script migliore per ottenere quello che vorrei.(mi causa diversi tipi di errore...e soprattutto se non mettevo ,3,3 dopo la conn non funzionava...ma perchè????)

set conn = Server.CreateObject("Adodb.connection")
   conn.Provider="Microsoft.Jet.OLEDB.4.0"
	conn.Open "" & Server.MapPath("immobiliare.mdb") & ""

RecordsPerPagina = 5
page = Request("page")
if page="" then page=1   

sql= "SELECT ID_Annuncio, Tipo, Locali, Metratura, Regione, Provincia, Prezzo FROM Annuncio WHERE Tipo "& StrTipo &" and Locali "& StrLocali &" and Metratura "& StrMetratura &" and Regione "& StrRegione &" and Provincia "& StrProvincia &" and Prezzo "& StrPrezzo &" and Data_scad >=#"&  date() &"# ORDER BY " & StrOrdine & "" 
strRicerca = Request("ricerca")
Set rs = Server.Createobject("Adodb.recordset")
rs.open sql, conn, 3, 3
   <%

 	rs.PageSize = RecordsPerPagina
	rs.AbsolutePage = page
		If rs.Eof=True or rs.Bof=True then
  			Response.Write "<P>Nessun risultato trovato</P>"
		Else
  	For i=1 to RecordsPerPagina
    	if Not rs.EOF then 
%>
        <tr>
          <td align="center" ><%= rs.Fields("Tipo")%></td>
          <td align="center" ><%= rs.Fields("Locali")%></td>
          <td align="center"><%= rs.Fields("Metratura")%> mq</td>
          <td align="center"><%= rs.Fields("Regione")%></td>
          <td align="center"><%= rs.Fields("Provincia")%></td>
          <td align="center"><%= rs.Fields("Prezzo")%> &euro;</td>
          <td align="center"><a href="controllo_acquisto_annuncio.asp?ID_Annuncio=<%= rs.Fields("ID_Annuncio")%>" class="menubar">compra</a></td>
        </tr>
        <%
		rs.MoveNext
     	end if
  		Next
		End if 
	%>
<% Response.Write "<P><B>Pagine:</B> "
For pag=1 to rs.PageCount
Response.Write "<A href='annunci_trovati.asp?page=" & pag
'Response.Write "&" & Server.UrlEncode(strRicerca)
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>" %>