Stato di Navigazione Recordset

**alasque** · 22-06-2006, 14:56

Cari amici,

ho sempre lo stesso problema che non riesco a risolvere. c'è tra voi una o più anime gentili?

Passo al problema:

Con questo script la paginazione và avanti ed indietro ottimamente ma il risultato propone sempre la stessa pagina…….

dim serie
serie=1
if len(trim(request.querystring("s")))>0 then
serie=cint(request.querystring("s"))
end if

dim page
if trim(request.querystring("pag")) <> "" then
page = cint(request.querystring("page"))
else
page = 1
end if

showPage=10 'numero di pagine visualizzate

dim lpage,tpage
lpage=((serie*showPage)-showPage)+1
tpage=serie*showPage

if page<lpage then page=lpage

if serie>1 then response.write " Precedenti "

for i=lpage to tpage
if i=page then
response.write i
else
response.write " . " & i & ""
end if
next

response.write ". Successive"

**santino83_11_04** · 23-06-2006, 02:56

che vuol dire propone sempre la stessa pagina?

**alasque** · 23-06-2006, 07:31

So che su quell'argomento ci sono n'' pagine. Riconosco le anagrafiche presenti nella prima pagina anche interrogandone altre. non voglio farmi pubblicità (non avrebbe senso!): posso mandarti il link per fartelo vedere?

**santino83_11_04** · 23-06-2006, 12:49

boh mica ti ho capito..posta sto link

**alasque** · 23-06-2006, 12:52

http://www.easytouritalia.com/COPIA%20DI%20P_Ac_00.ASP

**santino83_11_04** · 23-06-2006, 13:00

il codice per aprire e stampare il recordset e creare la query di select?

**alasque** · 23-06-2006, 13:02

SE EDITI LA PAGINA NON LO TROVI?

**santino83_11_04** · 23-06-2006, 18:13

Originariamente inviato da alasque
SE EDITI LA PAGINA NON LO TROVI?

si stiamo freschi....se edito la pagina vedo il codice html, non asp

cmq se ti interessa cerca "paginazione"nel forum, evidentemente hai sbagliato a fare lo script

**alasque** · 24-06-2006, 07:56

Ciao Santino,

ieri ero su una postazione dove non avevo il codice.
Puoi dargli un'occhiata anche se devo averti fatto inc.ze? Grazie
------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim EasyTour
Dim EasyTour_numRows

Set EasyTour = Server.CreateObject("ADODB.Recordset")
EasyTour.ActiveConnection = MM_Regioni_STRING
EasyTour.Source = "SELECT * FROM agricamping ORDER BY reg asc, pr ASC, NOME ASC"
EasyTour.CursorType = 0
EasyTour.CursorLocation = 2
EasyTour.LockType = 1
EasyTour.Open()

EasyTour_numRows = 0
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 2
Repeat1__index = 0
EasyTour_numRows = EasyTour_numRows + Repeat1__numRows
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="keywords" content="valle d'aosta">
<META NAME =description CONTENT="EasyTourItalia.com">
<META NAME ="revisit-after" content="1 weeks">
<META NAME ="robots" content="index,follow">
<META HTTP-EQUIV="keywords" CONTENT="valle d'aosta">
<title>*** Easy Tour Italia - Il portale del Turista ***</title>

<style type="text/css">

</style>

<link href="/Prova2.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="100%" height="799" border="0" cellpadding="0" cellspacing="0">

<tr valign="middle">
<td height="19" colspan="3"></td>
</tr>
<tr>
<td width="15%" height="780" valign="top"><table width="118%" border="0" cellpadding="0" cellspacing="0" bordercolor="#CCFFFF">

<tr>
<td width="137" height="696" valign="top" bordercolor="#CCFFFF"></td>
</tr>
</table></td>
<td width="700" valign="top"> <p align="center" class="Stile18"><span class="Stile22">Scegli a sinistra la Regione di Tuo interesse... </span></p>
<hr width="76%" class="Stile18">
<table width="95%" height="370" align="center" cellpadding="0" cellspacing="0">

<%
While ((Repeat1__numRows <> 0) AND (NOT EasyTour.EOF))
%>
<tr>
<td width="95%" height="368" align="center" valign="top"> <table width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#CCFFCC">
<tr valign="top">
<td width="26%" valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Azienda</div></td>
<td colspan="2" class="Stile16"><div align="left" class="Stile28"><%=(EasyTour.Fields.Item("Nome").V alue)%></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Indirizzo</div></td>
<td colspan="2" class="Stile16"><div align="left"><%=(EasyTour.Fields.Item("Loc").Value )%></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Comune</div></td>
<td colspan="2" class="Stile16"><div align="left"><%=(EasyTour.Fields.Item("Comune").Va lue)%></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Pr</div></td>
<td colspan="2" class="Stile16"><div align="left" class="Stile28"><%=(EasyTour.Fields.Item("Pr").Val ue)%></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Tel.</div></td>
<td colspan="2" class="Stile16"><div align="left"><%=(EasyTour.Fields.Item("Tel").Value )%></div></td>
</tr>
<tr valign="top" class="Stile27">
<td valign="middle" class="Stile21 Stile27"><div align="left" class="Stile28">Fax</div></td>
<td colspan="2"><div align="left"><span class="Stile27"></span><span class="Stile16"><%=(EasyTour.Fields.Item("Fax").Va lue)%></span></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Coord. Internet </div></td>
<td width="37%" class="Stile29"><div align="left" class="Stile30">
<%
if EasyTour.Fields.Item("E_Mail").Value <> "" or Not IsNull(EasyTour.Fields.Item("E_Mail").Value) then
response.write(" Rif. EasyTourItalia.com"">E-Mail")
else
response.write("E-Mail")
end if
%>
</div></td>
<td width="37%" class="Stile29"><div align="left" class="Stile30">
<%
if EasyTour.Fields.Item("Web").Value <> "" or Not IsNull(EasyTour.Fields.Item("Web").Value) then
response.write ("Web")
else
response.write("Sito Web")
end if
%>
</div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Coord. GPS </div></td>
<td colspan="2" class="Stile16"><div align="left"><%=(EasyTour.Fields.Item("Coord").Val ue)%></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Localizzazione</div></td>
<td colspan="2" class="Stile16"><div align="left"><%=(EasyTour.Fields.Item("Tipo").Valu e)%></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Accesso</div></td>
<td colspan="2" class="Stile16"><div align="left"><%=(EasyTour.Fields.Item("Accesso").V alue)%></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">N. Posti/Piazzole </div></td>
<td colspan="2" class="Stile16"><div align="left" class="Stile28"><%=(EasyTour.Fields.Item("Posti"). Value)%></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">A Pagamento? </div></td>
<td colspan="2" class="Stile16"><div align="left"><%=(EasyTour.Fields.Item("Pag").Value )%></div></td>
</tr>
<tr valign="top">
<td colspan="3" valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Servizi:</div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Carico</div></td>
<td colspan="2" class="Stile16"><div align="left"><%=(EasyTour.Fields.Item("Ca").Value) %></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Scarico</div></td>
<td colspan="2" class="Stile16"><div align="left"><%=(EasyTour.Fields.Item("Sc").Value) %></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left">Servizi Igienici </div></td>
<td colspan="2" class="Stile16"><div align="left"></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Allaccio Elettrico </div></td>
<td colspan="2" class="Stile16"><div align="left"><%=(EasyTour.Fields.Item("Ele").Value )%></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Accettano i Cani? </div></td>
<td colspan="2" class="Stile16"><div align="left"><%=(EasyTour.Fields.Item("Cani").Valu e)%></div></td>
</tr>
<tr valign="top">
<td valign="middle" class="Stile21"><div align="left" class="Stile27 Stile28">Altri Servizi </div></td>
<td colspan="2" class="Stile16"><div align="left"></div></td>
</tr>
</table>
<hr width="80%" class="Stile18">
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td></td>
</tr>
</table>
</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
EasyTour.MoveNext()
Wend
%>

</table>
<div align="center">

<%

dim serie
serie=1
if len(trim(request.querystring("s")))>0 then
serie=cint(request.querystring("s"))
end if

dim page
if trim(request.querystring("pag")) <> "" then
page = cint(request.querystring("page"))
else
page = 1
end if
%>
<%

showPage=5 'numero di pagine visualizzate

dim lpage,tpage
lpage=((serie*showPage)-showPage)+1
tpage=serie*showPage

if page<lpage then page=lpage

if serie>1 then response.write " Precedenti "

for i=lpage to tpage
if i=page then
response.write i
else
response.write " . " & i & ""
end if
next
response.write ". Successive"
%>
</p>
</div></td>
<td width="15%" valign="top"></td>
</tr>
</table>
</body>
</html>
<%
EasyTour.Close()
Set EasyTour = Nothing
%>

Discussione: Stato di Navigazione Recordset

Strumenti discussione

Ricerca discussione

Visualizza

Stato di Navigazione Recordset

Permessi di invio