54 messaggi dal 18 febbraio 2004
<html>
<head>
<title></title>
<style type="text/css">
A:link, A:visited { text-decoration: none }
A:hover { text-decoration: underline }
</style>
</head>
<body>
<%
dim conn, fam, cat, brand
set conn= server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("catalogo/db_sid.mdb")
dim rs
set rs = server.CreateObject("adodb.recordset")
rs.open "SELECT codice_famiglia, codice_categoria, product_ID, codice_articolo, codice_marchio, descrizione_articolo, descrizione_estesa, prezzo_listino_euro, disponibilita, ordinato, prezzo_riv_euro FROM dispo_f2 ORDER BY prezzo_riv_euro", conn
%>
<%
cat = Request.QueryString("codice_categoria")
fam = request.QueryString("codice_famiglia")
brand = request.QueryString("marca")
descfamiglia = request.QueryString("descrizione_famiglia")
desc = request.QueryString("desc")
desccate = request.QueryString("desccate")
%>
<table>
<tr>
<td width="">
<a href="#" onClick="history.back()">
<b>
<font color="black" face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%=desc%>
</font>
</b>
</a>
<font color="#ffcc00" face="Verdana, Arial, Helvetica, sans-serif" size="1">
?
</font>
</td>
<td width="">
<a href="#" onClick="history.back()">
<b>
<font color="black" face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%=desccate%>
</font>
</b>
</a>
<font color="#ffcc00" face="Verdana, Arial, Helvetica, sans-serif" size="1">
?
</font>
</td>
<td width="" align="left">
<a href="#" onClick="history.back()">
<b>
<font color="black" face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%=descfamiglia%>
</font>
</b>
</a>
</td>
<td align="right" width="60%">
<p align="right" valign="top">
<a href="javascript:window.print()">
<font color="#333333" face="Verdana, Arial, Helvetica, sans-serif" size="1">
Stampa questa pagina
</font>
</a>
<img src="immagini/getto.jpg">
</p>

</td>
</tr>
</table>


<%
DO WHILE NOT rs.eof
%>
<%
if rs("codice_marchio") = brand AND rs("codice_categoria") = cat AND rs("codice_famiglia") = fam then
%>
<table width="" border="0">
<tr>
<td>
<table>
<tr>
<td>
<a href="#">
<img src="" width="50" height="100">
</a>
</td>
</tr>
</table>
</td>
<td>
<table height="130">
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Codice articolo
</font>
</b>
</td>
</tr>
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Descrizione
</font>
</b>
</td>
</tr>
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Prezzo
</font>
</b>
</td>
</tr>
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Disp.tà
</font>
</b>
</td>
</tr>
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Arrivi
</font>
</b>
</td>
</tr>
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Acquista prodotto
</font>
</b>
</td>
</tr>
</table>
</td>
<td>
<table height="120">
<tr>
<td>
<font color="black" size="1" face="Tahoma">
<%=rs("codice_articolo")%>
</font>
</td>
</tr>
<tr>
<td>
<font color="#BF6000" size="1" face="Tahoma">
<%=rs("descrizione_articolo")%>
</font>
</td>
</tr>
<tr>
<td>
<font color="black" size="1" face="Tahoma">
<%=rs("prezzo_riv_euro")%>
</font>
</td>
</tr>
<tr>
<td>
<%
if rs("disponibilita") > 0 then
%>
<img src="immagini/sidisp.gif" alt="Disponibili<%=rs("disponibilita")%>P.z.">
<%
else
%>
<img src="immagini/nodisp.gif" alt="Disponibili<%=rs("disponibilita")%>P.z.">
<%
end if
%>
</td>
</tr>
<tr>
<td>
<%
if rs("ordinato") > 0 then
%>
<img src="immagini/sidisp.gif" alt="Ordinati<%=rs("ordinato")%>P.z.">
<%
else
%>
<img src="immagini/nodisp.gif" alt="Ordinati<%=rs("ordinato")%>P.z.">
<%
end if
%>
</td>
</tr>
<tr>
<td>
<font color="black" size="1" face="Tahoma">
Acquista
</font>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
%>
<%
rs.movenext
loop
%>
</body>
</html>

chiedo scusa in anticipo.
ho postato tante volte per questo problema ma ogni volta mi si ripresenta

vorrei impostare questa pagina facendo apparire 8 record per pagina e mettendone 2 per riga <TR>
proprio non ci riesco.
chi puo aiutarmi?
grazie se avete un po di tempo.......
435 messaggi dal 14 giugno 2002
ciao
ti invio la parte di dividire la riga per il numeri di colonna:
dopo la tua query fai cosi:
strrecord_totali = rs.RecordCount
strnumero_colonne = 2 'numero di record per riga
strresto = (strrecord_totali mod strnumero_colonne)
strrecord_parziali = ((strrecord_totali - strresto) / strnumero_colonne)
for n = 1 to strrecord_parziali
for m =1 to strnumero_colonne
'qui metti le le tabelle con i tui dati
rs.MoveNext
next
next

if strresto <> "0" then
for f = 1 to strresto
'qui metti le le tabelle con i tui dati
rs.MoveNext
next
end if

saluti
54 messaggi dal 18 febbraio 2004
perdonami
ma proprio non ci riesco
mi da errori su next....etc
lo so ti sto facendo perdere tempo ma questa cosa prima o poi la dovro capire....
435 messaggi dal 14 giugno 2002
ciao

praticamente i for sostituiscono il DO WHILE NOT rs.eof
percio spero che il ciclo lo hai tolto...

vedi un po
ciao
54 messaggi dal 18 febbraio 2004
<%
dim conn, fam, cat, brand
set conn= server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("catalogo/db_sid.mdb")
dim rs
set rs = server.CreateObject("adodb.recordset")
rs.open "SELECT codice_famiglia, codice_categoria, product_ID, codice_articolo, codice_marchio, descrizione_articolo, descrizione_estesa, prezzo_listino_euro, disponibilita, ordinato, prezzo_riv_euro FROM dispo_f2 ORDER BY prezzo_riv_euro", conn

strrecord_totali = rs.RecordCount
strnumero_colonne = 2 'numero di record per riga
strresto = (strrecord_totali mod strnumero_colonne)
strrecord_parziali = ((strrecord_totali - strresto) / strnumero_colonne)
for n = 1 to strrecord_parziali
for m =1 to strnumero_colonne

%>
<%
cat = Request.QueryString("codice_categoria")
fam = request.QueryString("codice_famiglia")
brand = request.QueryString("marca")
descfamiglia = request.QueryString("descrizione_famiglia")
desc = request.QueryString("desc")
desccate = request.QueryString("desccate")
%>
<%
if rs("codice_marchio") = brand AND rs("codice_categoria") = cat AND rs("codice_famiglia") = fam then
%>
<table width="" border="0">
<tr>
<td>
<table>
<tr>
<td>
<a href="#">
<img src="" width="50" height="100">
</a>
</td>
</tr>
</table>
</td>
<td>
<table height="130">
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Codice articolo
</font>
</b>
</td>
</tr>
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Descrizione
</font>
</b>
</td>
</tr>
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Prezzo
</font>
</b>
</td>
</tr>
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Disp.tà
</font>
</b>
</td>
</tr>
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Arrivi
</font>
</b>
</td>
</tr>
<tr>
<td>
<b>
<font color="black" size="1" face="Tahoma">
Acquista prodotto
</font>
</b>
</td>
</tr>
</table>
</td>
<td>
<table height="120">
<tr>
<td>
<font color="black" size="1" face="Tahoma">
<%=rs("codice_articolo")%>
</font>
</td>
</tr>
<tr>
<td>
<font color="#BF6000" size="1" face="Tahoma">
<%=rs("descrizione_articolo")%>
</font>
</td>
</tr>
<tr>
<td>
<font color="black" size="1" face="Tahoma">
<%=rs("prezzo_riv_euro")%>
</font>
</td>
</tr>
<tr>
<td>
<%
if rs("disponibilita") > 0 then
%>
<img src="immagini/sidisp.gif" alt="Disponibili<%=rs("disponibilita")%>P.z.">
<%
else
%>
<img src="immagini/nodisp.gif" alt="Disponibili<%=rs("disponibilita")%>P.z.">
<%
end if
%>
</td>
</tr>
<tr>
<td>
<%
if rs("ordinato") > 0 then
%>
<img src="immagini/sidisp.gif" alt="Ordinati<%=rs("ordinato")%>P.z.">
<%
else
%>
<img src="immagini/nodisp.gif" alt="Ordinati<%=rs("ordinato")%>P.z.">
<%
end if
%>
</td>
</tr>
<tr>
<td>
<font color="black" size="1" face="Tahoma">
Acquista
</font>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
%>
<%
rs.movenext
next
next
%>
<%
if strresto <> "0" then
for f = 1 to strresto

rs.MoveNext
next
end if
%>
</body>
</html>


non mi stampa niente a video
te lo posto cosi puoi controllare
435 messaggi dal 14 giugno 2002
ho controllato

e sembra che ne codice non ci siano errori...
devi vedere se entra nel ciclo for e se legge i dati dal db

io da qui non posso fare un controllo + dettagliato no avendo il db...

dopo la select prova a mettere

if not rs.EOF then



end if 'dopo il next del primo for
saluti
Modificato da rafpas il 18 ottobre 2004 11.50 -
54 messaggi dal 18 febbraio 2004
na parola.
vabbe fa niente
non funzia.
non da nessun errore ma non visualizza niente.
ho fatto tutto come hai detto.
paziensa
Modificato da piero2004 il 18 ottobre 2004 12.03 -
435 messaggi dal 14 giugno 2002
ok mi dispiace che non hai risolto

cmq io ho provato a mettere
if not rs.EOF then


end if
a me da un errore quello che non trova il db ed è chiaro

tu hai provato a mettere questa ultima modifica?

saluti

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.