Ho modificato questo script scaricato.
Il problema è che la prima pagina va bene e mi carica tutti i dati perfettamente, le successive sono tutte bianche.
Ho messo un response.write per leggere la select e nella prima pagina è perfetta ma quando clicco sulle successive
non mi carica nessun dato e mi dice che non ci sono schede presente ( ci sono ho rivisto anche il DB)
e nella select non legge piu il parametro regione:


prima pagina:
codice:
SELECT * FROM schede WHERE regione = 'sicilia' ORDER BY cognome ASC
seconda pagina:
codice:
SELECT * FROM schede WHERE regione = '' ORDER BY cognome ASC
codice:
<html>
<head>
	<title>Paginazione risultati ricerca semplice</title>

</head>
<BODY MARGINWIDTH="0" MARGINHEIGHT="0" TOPMARGIN="0" LEFTMARGIN="0" >
<TABLE CELLPADDING="0" CELLSPACING="0" BORDER="0" align="center" width="760">
  <TR height="60" valign="middle">
		
    <TD align="center" width="806"> <font face="Verdana" size="4">schede presenti nel database</font></TD>
	<TR>
		<TD width="806">	
			<%
					
		Dim strSQL , recup_regione
		recup_regione = Request.QueryString("regione")
		
		iPageSize = 5 'NUMERO RECORD PER PAGINA

					If Request.QueryString("page") = "" Then
						iPageCurrent = 1
					Else
						iPageCurrent = CInt(Request.QueryString("page"))
					End If
	
	
		strSQL = "SELECT * FROM schede WHERE regione = '" & recup_regione &"' ORDER BY cognome ASC"
			response.Write(strSQL)
			
			Set objRS = Server.CreateObject("ADODB.Recordset")
			objRS.PageSize = iPageSize
			objRS.CacheSize = iPageSize
			objRS.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
			
			reccount = objRS.recordcount
			iPageCount = objRS.PageCount

			If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
			If iPageCurrent < 1 Then iPageCurrent = 1

			If iPageCount = 0 Then
				Response.Write "

<table><td><font  face='verdana' size='3' color='#000000'><align center>Non sono state trovate schede</td></table></center></p>"
			Else
				objRS.AbsolutePage = iPageCurrent
				iRecordsShown = 0
				%>
				<table cellpadding="0" cellspacing="0" border="0" align="center" width="100%">
					<tr>
						<td bgcolor="#cccccc">
							<table cellpadding="2" cellspacing="1" border="0" width="100%">
								<tr height="22">
				<td bgcolor="#dddddd" WIDTH="4%"align="center"><font face="verdana" size="1" color="#000000">[b]N°</font></td>									
                <td bgcolor="#dddddd" WIDTH="15%" align="center"><font face="verdana" size="1" color="#000000">Cognome e Nome </font></td>									
                <td bgcolor="#dddddd" WIDTH="15%" align="center"><font face="verdana" size="1">Email</font></td>									
                <td bgcolor="#dddddd" WIDTH="7%" align="center"><font size="1" face="verdana">Sesso</font></td>									
                <td bgcolor="#dddddd" WIDTH="7%" align="center"><font size="1" face="verdana">Et&agrave;</font></td>
				<td bgcolor="#dddddd" WIDTH="5%" align="center"><font face="verdana" size="1">Prov.</font></td>									
                <td bgcolor="#dddddd" WIDTH="34%" align="center"><font face="verdana" size="1">Descrizione</font></td>									
				<td bgcolor="#dddddd" WIDTH="10%"  align="center"><font face="verdana" size="1">Foto</font></td>

								</tr>
								<%
								'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
								'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
								cont=1
								Do While iRecordsShown < iPageSize And Not objRS.EOF
									Dim Rig, bg
									Rig = Rig + 1
									If Rig Mod 2 = 0 then
										bg = "#E4E4E4"
									Else
										bg = "#ccccff"	
									End if	
									Response.Write "<tr bgcolor = " & bg & "><td><font color='#000000' face='Verdana' size='2'><center>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
									Response.write "<td><font color='#000000' face='Verdana' size='1'><A HREF='../visualizza/scheda_utente.asp?email=" 
									Response.Write( objRS("email") )
									Response.write "'>"
									Response.Write( objRS("cognome") & " " & objRS("nome") )
									Response.write "</A>
</font></td>"
									Response.Write "<td><font color='#000000' face='Verdana' size='1'><center>" & objRS("email") & "</font></center></td>"
									Response.Write "<td><font color='#000000' face='Verdana' size='1'><center>" & objRS("sesso") & "</font></center></td>"
									Response.Write "<td><font color='#000000' face='Verdana' size='1'><center>" & objRS("eta") & "</font></center></td>"
									Response.Write "<td><font color='#000000' face='Verdana' size='1'><center>" & objRS("provincia") & "</font></center></td>"
									Response.Write "<td><font color='#000000' face='Verdana' size='1'>" & objRS("descrizione") & "</font></td>" 
									Response.Write "<td> <center> [img] & objRS([/img]</center></td>"
									
									Cont = Cont + 1
									'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
									iRecordsShown = iRecordsShown + 1
									objRS.MoveNext
								Loop
								'PULIZIA DEGLI OGGETTI ADO
								objRS.Close
								Set objRS = Nothing
								%>
							</table>
						</td>
					</tr>
				</table>
			<%End if%>
			


			<%If ipagecount <> 1 Then%>
				<center>
				<table>
					<tr valign="middle">
						<td width="50%" align="center" valign="middle"><font face="verdana" size="1" color="#000000">
							[
							<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
								[img]images/first.gif[/img]
							<%end if%>
							<%if iPageCurrent > 1 then%>
								[img]images/pre.gif[/img]
							<%end if%>
							<%if iPageCount > 2 then
								if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
								if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
							else
								da_pag = 1
								fino_a_pag = iPageCount
							end if%>
							<%for i = da_pag to fino_a_pag%>
								<%if i = iPageCurrent then%>
									<font color="red"><%=i%></font>
								<%else%>	
									<%=i%>
								<%end if%>	
							<%next%>
							<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
								[img]images/next.gif[/img]
							<%end if%>	
							<%if iPageCurrent+1 < iPageCount then%>
								[img]images/last.gif[/img]
							<%end if%>	
							]
						</font></td>
					</tr>
					<tr>
						<td colspan="2" align="center"><font face="verdana" size="1" color="#000000">
							<center>
							Pagina
								<font color="#FF0000"><%=iPageCurrent%></font>
								di
								<font color="#FF0000"><%=iPageCount%></font>
							</center>
						</font></td>
					</tr>
				</table>
				</center>
			<%end if%>
			<%
			Conn.Close
			Set objConn = Nothing
			%>
		</TD>
	</TR>
</TABLE>		
</body>
</html>
grazie.....