Ciao,
vi ringrazio per il codice che mi avete inviato, ho però un piccolo problema, nn mi funziona! sicuramente dimentico o sbaglio qualcosa nel codice!!! help!
nella prima pagina ho semplicemente 3 link che mi devono andare a ricercare nel DB tutti i prodotti bianchi, tutti quelli rossi o tutti quelli gialli (che sono nella stessa tabella).
Ho semplicemente scritto:
<a href="elencocat.asp?prodotto=bianco>bianco</a>
<a href="elencocat.asp?prodotto=rosso>rosso</a>
<a href="elencocat.asp?prodotto=giallo>giallo</a>
nella seconda pagina (che mi dovrebbe aprire tutti i prodotti del colore scelto) ho messo questo codice:
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/Link.mdb")
Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "select * from ref WHERE prodotto="&request.querystring("prodotto")
Do while NOT Rs.EOF
Dim link
Dim Rag
Dim Via
Dim Cap
Dim Citta
Dim Prov
Dim Settore
Dim prodotto
Dim Sito
link=Rs("link")
Rag=Rs("Rag")
Via=Rs("Via")
Cap=Rs("Cap")
Citta=Rs("Citta")
Prov=Rs("Prov")
Settore=Rs("Settore")
prodotto=Rs("prodotto")
Sito=Rs("Sito")
Response.Write "<table background='../images/backgr.gif' width='780'>"
Response.Write "<tr>"
Response.Write "<td width='100'></td>"
Response.Write "<td align='right' width='280' class='menu1'>[img][/img]
</td>"
Response.Write "<td valign='top' width='350' class='menu1'> " & Rag & "
"
Response.Write " " & Via & "
"
Response.Write " " & Cap & " - " & Citta & " " & Prov & "
"
Response.Write "Settore: " & Settore & "
"
Response.Write "ref.: " & prodotto & " - http: " & Sito & " "
Response.Write "<td width='50' class='menu1'></td></tr>"
Response.Write "<tr><td height='10'></td></tr></table>"
%>
<%
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
conn.Close
Set conn=Nothing
%>
Cosa sbaglio?! ovviamente sono alle prime armi! potete aiutarmi ancora?! Grazie mille.
Axl
Rispondi quotando
