paginazione con modifiche..

[foranangel]

Buonasera..
tempo fa mi sono servita dello script di Roby72 per la paginazione di eventi..e funziona alla grande!
adesso però devo apportare qualche modifica quando apro la pagina con lo scrupt mi visualizza tutti gli eventi.. nella stessa pagina vorrei inserire due tre pulsanti

il primo pulsante mi visualizza gli eventi solo nel mio comune di residenza

il secondo pulsante mi visualizza tutti gli eventi al di fuori del mio comune di residenza

il terzo li visualizza tutti.

come potrei fare?

questo è lo script che utilizzo attualmente (grazie a Mr Roby72)

grazie
alessia

<%
iPageSize = 10 'NUMERO RECORD PER PAGINA

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

datet = year(date()) & "/" & month (date()) & "/" & day(date())
strSQL = "select * from eventi where (((eventi.data_fine)>=#"&datet&"#)) order by data_inizio asc, ora_inizio asc, id 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 eventi.</td></table></p>"
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table cellpadding="0" cellspacing="0" border="0" width="560">
<tr>
<td bgcolor="#cccccc">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr height="22">
<td bgcolor="#E4E6E7" WIDTH="30" class="fortext"></td>
<td bgcolor="#E4E6E7" WIDTH="195" class="fortext">Evento</td>
<td bgcolor="#E4E6E7" WIDTH="175" class="fortext">Localit&agrave;</td>
<td bgcolor="#E4E6E7" WIDTH="80" class="fortext">data
inizio</td>
<td bgcolor="#E4E6E7" WIDTH="80" class="fortext">data
fine</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 = "#F3F4F5"
Else
bg = "#FFFFFF"
End if
Response.Write "<tr bgcolor = " & bg & "><td class=""fortext""><div align=""center"">[img][/img]</td>"
Response.Write "<td class=""fortext"">"& Left((objRS("titolo")),30) &"..</td>"
Response.Write "<td class=""fortext"">"& Left((objRS("luogo")),25) & "..</td>"
Response.Write "<td class=""fortext"">" & objRS("data_inizio") & "</td>"
%>
<td class="fortext">
<%
if objRS("data_inizio") = objRS("data_fine") then
response.write " "
else
response.write objRS("data_fine")
end if
%>
</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 align="center">
<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]../image/small/first.gif[/img]
<%end if%>
<%if iPageCurrent > 1 then%>
[img]../image/small/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]../image/small/next.gif[/img]
<%end if%>
<%if iPageCurrent+1 < iPageCount then%>
[img]../image/small/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>
<%end if%>
<%
objConn.Close
Set objConn = Nothing
%>
</td>
</tr>
<tr>
<td height="20" colspan="3"><div align="center"></div></td>
</tr>
</table>

[Roby_72]

Sono commosso per il Mr...
Ora ci penso...

Roby

[foranangel]

grazie

[Roby_72]

Come stabilisci se un evento è o meno nel comune di residenza?

Roby

[foranangel]

come prima cosa, grazie per l'aiuto.

ho un campo che si chiama luogo, dove viene inserite la località dove si tiene l'evento.
Pertanto se il mio comune di residenza è Pordenone, dovrei fare una query dove mi vengano ricercati tutti i records che hanno come luogo Pordenone.
Invece per gli eventi fuori dal mio comune di residenza, la query dovrà far euna ricerca sui records che hanno il campo luogo diverso da Pordenone..

spero di essermi spiegata in maniera chiara..

grazie e buona giornata
alessia

[Roby_72]

Ciao,
allora la residenza è relativa all'utente quindi non la leggi in questa tabella ma verifichi solo se l'evento appartiene al suo comune o no.
Giusto?

Roby

[foranangel]

ciao,
io inserisco degli eventi (descrizione,data,titolo) e il luogo dove verranno fatti. Adesso vengono visualizzati tutti indistintamente. Io volevo mettere 3 tasti per la ricerca.
Il primo serve per visualizzare solo gli eventi nel mio comune di residenza (pordenone) il secondo per visualizzare gli eventi al di fuori del mio comune (diversi da pordenone) e il terzo per visualizzare tutti gli eventi..

nel db c'e' un campo specifico che si chiama luogo, per indicare dove si terrà l'evento.

grazie per la tua disponibilità

alessia

[Roby_72]

Questo in coda alla pagina per il comune di Pordenone (dovresti però tenere presente la paginazione.... ma non so se ti serve anche in questo caso):

<form method="get" action="default.asp">
<input type="hidden" name="page" value="<%=i%>" />
<input type="hidden" name="luogo" value="Pordenone" />
<input type="Submit" name="submit" value="Eventi di Pordenone" />
</form>

Per gli altri comuni basta che metti questo:

<input type="hidden" name="luogo" value="" />

In cima alla pagina:

<% 
iPageSize = 10 'NUMERO RECORD PER PAGINA 

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

luogo = trim(request("luogo"))
datet = year(date()) & "/" & month (date()) & "/" & day(date()) 

strSQL = "select * from eventi where eventi.data_fine >= #"& datet &"#"
if len(luogo) > 0 then
strSQL = strSQL &" AND luogo = '"& luogo &"'"
end if
strSQL = strSQL &" order by data_inizio asc, ora_inizio asc, id asc" 
....
....

Roby