Allora partimo dallínizio, visto che siamo pivelli addiamo bisogno di esempi completi
altrimenti ci perdiamo nelle V-arianti.
Noi abitiamo in Brasile, io mi chiamo Juciara e il mio fidanzato si chiama Arturo.
Noi siamo e ci cataloghiamo nella categoria intermedia, non siamo piú pivelli ma non siamo neppure
tecnici.
Abbiamo da poco risolto un problema molto importante per chi gestisce e gusta ASP.
L'argomento é la paginazione.
Premetto che la soluzione l'abbiamo trovata su questo forum ma purtroppo
( nostra ignoranza ) non ricordiamo come e perché!!!! (euforia egoista del risolvere)
se il proprietario di questa dritta legge il post é invitato a contattarci
perché abbiamo un debito sospeso con esso mesmo.
andiamo al dunque:
parliamo di applicazione usata su Natalmercado.com (non é pubblicitá perche il sito <<< in costruzione >>>
é dedicato esclusivamente ad utenza BRASILERA, non abbiamo nessun interesse sul link cosa diversa per
l'altro sito www.brasile-natal.com che invece potrebbe essere di interesse NA-Zio-na-le.
Noi ABBIAMO RISOLTO IL PROBLEMA ASSIM (COSI)
Nome database natal
dsn = dsn_natal
la pagina in considerazione é il risultato di una interrogazione relativa al tipo
di alimentazione della vettura che si cerca.
dal form di richiesta (utente) viene inoltrata una var che puo essere gasolina, gass, alcool ecc.
( si amici in brasile si viaGGIA anche con alcool)
il form invia la tipologia di ricerca in metodo GET quindi noi dobbiamo gapparla
con - Request.QueryString("Alimentazione")
se il form inviava la tipologia col metodo POST noi dovevamo grappare l'informazione con
Request.form("Alimentazione")
OK in questo momento sappiamo cosa ci chiede l'utente
quindi passo alla pagina pratica del tutto.
state attenti da questo momento inizia il codice della pagina che riceve
ad esempio la richiesta (cerco auto a Benzina(Gasolina))
ripetiamo il nostro form ci invia dati in GET quindi dobbiamo raccogliere l'informazione con
alimentazione=Request.QueryString("Alimentazione")
inizio codice pagina
PS scaduto = false lo utilizzo perché ho creato una colonna dove io posso disattivare un annuncio
se scaduto = true la riga non viene caRICATA PERCHÉ scaduta o perché la macchina é stata venduta
[code]
<%@LANGUAGE="VBScript"%>
<%
Response.Buffer = True
Response.expires=-1500
dim alimentazione
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = &H0001
alimentazione=Request.QueryString("Alimentazione")
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
%>
<html>
<head>
<TITLE>NatalMercado.com ( Veiculos Busca para <%=alimentazione%> )</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../natal.css">
</head>
<body bgcolor="#FFFFF7" link=#000000 topmargin="8" leftmargin="0" vlink="#000000" alink="#CC0000">
<center>
<table width="580" border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top">
</p>
<table width="580" border="0" cellspacing="0" cellpadding="0" bgcolor="#666699" align="center">
<tr>
<td colspan="2"></td>
</tr>
<tr align="center">
<td colspan="2" height="15" class="Inbochiari">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr align="center">
<td bordercolordark="fffff7" bordercolorlight="000000" class="Inbochiari" height="18" ></td>
</tr>
</table>
</td>
</tr>
<tr align="center">
<td colspan="2">
</tr>
</table>
<table width="580" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td>
</tr>
<tr align="center">
<td> </td>
</tr>
<tr align="center">
<td>
</tr>
</table>
<table width="580" border="0" align="center" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="5"></td>
<td align="center">
<table width="100%" border="0" cellspacing="3" cellpadding="5">
<tr>
<td>
<tr>
<td colspan="2">
</tr>
<tr align="center">
<td colspan="2" height="15">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<span class="Verdana2nero"> Busca
para Alimentação-<% =alimentazione%></span></td>
</tr>
</table>
</td>
</tr>
<tr align="center">
<td colspan="2">
</tr>
</table>
<%
'APERTURA CONNESSIONE CON IL DATABASE
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "dsn_natal"
strSQL = "SELECT * FROM veiculos where scaduto = false and alimentazione like '" & alimentazione & "' ORDER BY prezzo ASC"
Set estrapola = Server.CreateObject("ADODB.Recordset")
estrapola.PageSize = iPageSize
estrapola.CacheSize = iPageSize
estrapola.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
reccount = estrapola.recordcount
iPageCount = estrapola.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
' se non trovi nessun record carichi la tavola successiva
If iPageCount = 0 Then
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="center" bgcolor="#CCFFCC">
<td height="40"><span class="Verdana2nero">Busca para
Alimentação - <span class="titolo"><%=alimentazione%></span>
- sem resultado</span></td>
</tr>
<tr align="center">
<td></td>
</tr>
</table>
<%
' Se invece trovi campi estrapolabili carichi le tabelle sottostanti
else
estrapola.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<% 'Si visualizza il contenuto della stringa SQL
cont=1
Do While iRecordsShown < iPageSize And Not estrapola.EOF
%>
<td width="10" valign="top">
<td>" onclick="NewWindow(this.href,'name','670','515','y es');return false"><%split( = estrapola("marca"),"." %> - <% = estrapola("modello") %></td>
<td>" onclick="NewWindow(this.href,'name','670','515','y es');return false">Preço - <%=formatta(estrapola("prezzo"),0)%></td>
<td><% = estrapola("anno") %></td>
<td><% = estrapola("colore") %> </td>
<% = estrapola("potenza") %></td>
</tr>
<%
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
estrapola.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
estrapola.Close
Set estrapola = Nothing
%>
</table>
<%end if%>
<tr>
<td colspan="2">
</tr>
<tr align="center">
<td colspan="2" height="15">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<%
' Inizio Paginazione attenzione qui inizia veramente la paginazione sopra abbiamo solamente impostato i parametri necessari
If ipagecount <> 1 Then
%>
<table width="100%">
<tr valign="middle">
<td class="Verdana2nero" align="center" valign="middle">
Alimentação-<% =alimentazione%>
- <%=reccount%> Ofertas-
Pagina <font color="#CC0000"><%=iPageCurrent%></font>
de <font color="#CC0000"><%=iPageCount%></font>-
[ <%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
[img]images/first.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="CC0000"><%=i%></font>
<%else%> <%=i%>
<%end if%> <%next%> <%if iPageCurrent+1 < iPageCount then%>
[img]images/last.gif[/img]
<%end if%> ]</td>
</tr>
</table>
<%end if%> <%
' fine paginazione
objConn.Close
Set objConn = Nothing
%> [code]
bene, adesso dovete modificare questa pagina all'esigenza del vostro problema.
speriamo di essere stati utili secondo il principio
--------Prima prendi, ----------- poi DAI
arturo e juciara
www.brasile-natal.com
www.natalmercado.com
Rispondi quotando
:maLOL:
