|
<% rem legge dal form
dim rs
user=session("user")
pag = Request.QueryString("pag")
Session("courrentpage") = CLng(Session("Courrentpage"))
Select Case Request.QueryString("Direction")
Case ""
Session("Courrentpage") = 1
Case "assoluto"
session("courrentpage")=pag
End Select
Const adOpenKeyset = 1
dsnConn = Server.MapPath ("db_annunci.mdb")
StrConn = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&dsnconn&";Persist Security Info = False"
Set rsauto = Server.CreateObject("ADODB.recordset")
rsauto.open "select * from annunci where user = '"&user&"'order by data desc",StrConn,adOpenKeyset
recordid=rsauto.recordcount
if recordid=0 then response.redirect "../mercatino.htm" end if
rsauto.pageSize = 4
rsauto.AbsolutePage = Session("Courrentpage")
tot=rsauto.pagecount
' Inizio Calcolo N° pagine e N° record ultima pagina
' Se il numero totale dei record trovati non è multiplo della
' paginazione allora ...
if rsauto.recordcount <> rsauto.pagesize * rsauto.pagecount then
quanti=rsauto.recordcount
pagine=rsauto.pagecount-1
pagtotali=rsauto.pagecount
' Se questa è l'ultima pagina il numero dei record da visualizzare è
' uguale al totale dei record meno tutte le pagine precedenti (se abbiamo
' 21 record e vogliamo visualizzare 10 record per pagina, le prime due
' pagine saranno complete mentre l'ultima avrà un solo record
if CLng(Session("Courrentpage")) = rsauto.pagecount then
rsauto.pagesize=quanti-(rsauto.pagesize*pagine)
pagtotali=CLng(Session("Courrentpage"))
else
end if
end if
' Fine Calcolo N° pagine e N° record ultima pagina
%>
Trovati
<%=recordid%> annunci inseriti da <%=session("user")%>
clicca
sulla data per le modifiche
| Pagina
<%=Session("Courrentpage")%>
di <%=tot%>
<%
if recordid > rsauto.pagesize then
' Se il numero di record trovati (recordid) è maggiore di una pagina, nel
' nostro caso 10 record, controlliamo a che pagina siamo. Link alla pagina
' precedente passando sempre i criteri di ricerca.
End if
Dim i
%>
|
|
|
| |
|
|
|
Tipo
|
Annuncio
|
Testo
|
Data
|
<%
bg = "#FFFF99"
For f = 1 To rsauto.PageSize
Set campi=rsauto.fields
a = campi("id")
NewTd=" " & campi("tipo") & " | "
NewTd=NewTD & " " & campi("tipo2") & " | "
NewTd=NewTD & " " & campi("testo") & " | "
NewTd=NewTD & " " & campi("data") & " | "
NewRow="" & NewTd & " "
Response.write NewRow
if bg = "#FFFF99" then bg = "#CCCCCC" else bg = "#FFFF99" end if
RSauto.MoveNext
next
%>
<%if tot > 1 then
%>
vai
alla pagina <%
corr = CLng(Session("Courrentpage"))
for v = 1 to tot
avanti = corr+1
if avanti > tot then avanti = 1 end if
size = 2
if v = corr then size = 4 end if
%> face="Verdana, Arial, Helvetica, sans-serif" color="#666666">
<%
response.write(v)
%> <%next%>
successiva
<% else
end if
%>
Vai
al mercatino
|
|
