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:
seconda pagina:codice:SELECT * FROM schede WHERE regione = 'sicilia' ORDER BY cognome ASC
codice:SELECT * FROM schede WHERE regione = '' ORDER BY cognome ASCgrazie.....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à</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>
Rispondi quotando
