Script Paginazione Asp [Roby72]

[fraude]

Ciao.

Utilizzo lo script di paginazione scaricato dal sito di Roby72; ho personalizzato i parametri e funziona correttamente.

Adesso, però, vorrei aggiungere nella paginazione una select dove sono riportati i numeri delle pagine e dalla quale selezionando il numero di pagina, si passi in automatico al numero di pagina prescelto.

Ho scritto così, ma non funziona, perchè?:

<select name="iPageCurrent">
                        <option value="<%=iPageCurrent%>">1</option></select>

Grazie.

[Roby_72]

E il paraemtro come lo passi??? Con un button? In querystring?

Roby

[fraude]

Grazie Roby, vorrei passarlo in querystring.

[Roby_72]

Ed il form dov'è?

Roby

[fraude]

Lo devo costruire.
Quando dico che non funziona mi riferisco al fatto che nella select mi aspettavo che impostando come valore

<%=iPageCurrent%>

mi restituisse il numero della pagina corrente.
Invece restituisce sempre 1, anche quando sono nelle pagine successive ad 1.
Mi spiego?

[Roby_72]

Vediamo tutto lo script.

Roby

[fraude]

<%
			iPageSize = 3 'NUMERO RECORD PER PAGINA

			If Request.QueryString("page") = "" Then
				iPageCurrent = 1
			Else
				iPageCurrent = CInt(Request.QueryString("page"))
			End If

			strSQL = "SELECT * FROM software ORDER BY vid ASC"
			Set objRS = Server.CreateObject("ADODB.Recordset")
			objRS.PageSize = iPageSize
			objRS.CacheSize = iPageSize
			objRS.Open strSQL, objConn, 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='2' color='#000000'>Non sono stati trovati giocatori.</td></table></p>"
			Else
				objRS.AbsolutePage = iPageCurrent
				iRecordsShown = 0
				%>

<%
								'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='1'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
									Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("Stato") & "</font></td>"
									Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("Costruttore") & "</font></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
								
End if  %>
agina <%=iPageCurrent%>
								di <%=iPageCount%></font></td>
						<td width="503" align="center" valign="middle">
                        <p style="margin-top: 5">
							<font face="verdana" size="1" color="#000000">
							<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
								[img]img/bot_back_doppio.gif[/img]
							<%end if%>
							<%if iPageCurrent > 1 then%>
								[img]img/bot_back.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]img/bot_next.gif[/img]
							<%end if%>	
							<%if iPageCurrent+1 < iPageCount then%>
								[img]img/bot_next_doppio.gif[/img]
							<%end if%></font></td>
						<td width="213" align="center" valign="middle">
                        <p align="right"><font face="verdana" size="1" color="#000000">
							 Vai a pagina<select name="iPageCurrent">
                        <option value="<%=iPageCurrent%>">1</option></select>

[Roby_72]

<select name="page">

In ogni caso nella select tu hai solo un numero...


Roby

[fraude]

<select name="page">
<option value="<%=iPageCurrent%>"><%=iPageCurrent%></option></select>

Infatti adesso va bene, ma vorrei anche che si elencassero tutti i numeri di tutte le pagine... poi scegliendo un numero si spostasse su quel numero di pagina :master:

[Roby_72]

Vai a pagina <select name="page">
<%for xx = 1 to iPageCount%>
<option value="<%=xx%>" <%if xx = iPageCurrent then%>selected="selected"<%end if%>><%=xx%></option>
<%next%>
</select>

Roby