La pagina è lunga, ma il codice è quello che abbiamo modificato:
<%
Dim scelta
Dim prodotto
Dim Recordset2
Dim Recordset2_numRows
dim id
connessione...
scelta= Request.QueryString("scelta")
prodotto = Request.QueryString("prodotto")
if scelta="0" then
sSQL = "SELECT * FROM Ritmica WHERE TitoloProdotto='"&prodotto&"'"
else
sSQL = "SELECT * FROM Ritmica WHERE id="&prodotto&""
end if
set rs2 = conn.execute(sSQL)
if not rs2.EOF then
id=(rs2.Fields.Item("ID").Value)
end if
%>
<%
Dim User
user= Request.QueryString("user")
scelta= Request.QueryString("scelta")
if scelta="0" then
sSQL = "SELECT * FROM Clienti WHERE user = '" & session("user") & "' "
end if
set rs2 = conn.execute(sSQL)
if rs2.eof then
response.redirect("login.asp")
else
response.write("Benvenuto " & rs2("nome") & " " & rs2("cognome"))
end if
%>
e ogni elemento da visualizzare nella pagina viene richiamato cosi:
[img]immagini/ritmica/<%=(rs.Fields.Item([/img]" align="top" class="bordo-piccolo">
Rispondi quotando
