Gentili ragazzi del forum
sono in difficoltà in quanto non riesco a creare un form che prenda i valori del carrello (carrello.asp) ed inviare quindi l'email di conferma sia al destinatario che al mittente.
lo script del carrello è molto semplice e comune su internet, allego il codice dell'ultimo file, il carrello.
riusciti a darmi una mano per favore?
un abbraccio
Mara
<%
'Richiamo l' id del prodotto da inserire
id_prodotto = request("id")
'Aggiunta nuovo prodotto nel Carrello
'Controllo che il prodotto sia già presente nel carrello
if len(id_prodotto) <> 0 then
strSQL = "select id_prodotto, id_user from tbl_Carrello where id_prodotto = " & id_prodotto & " and id_user = " & session("id_utente")
set rs = con.execute(strSQL)
'Se il prodotto non esiste, lo aggiungo
'Altrimenti aggiorno la quantita' di 1 unità
if rs.eof then
'Aggiungo il prodotto
strSQL = "insert into tbl_Carrello(id_user, id_prodotto, quantita) values(" & session("id_utente") & ", " & id_prodotto & ", 1)"
con.execute(strSQL)
else
'Aggiorno la quantità
strSQL = "update tbl_Carrello set quantita = quantita + 1 where id_prodotto = " & id_prodotto & " and id_user = " & session("id_utente")
con.execute(strSQL)
end if
rs.close
set rs = nothing
end if
'Fine
'Aggiorno il carrello
if request("azione") = "aggiorna" then
'Controllo quali prodotti aggiornare o eliminare
set rs = Server.CreateObject("ADODB.Recordset")
rs.activeconnection = con
rs.cursortype = adOpenDynamic
rs.locktype = adLockOptimistic
strsql = "select * from tbl_Carrello where id_user = " & session("id_utente")
rs.open strsql
'Elenco dei prodotti nel carrello
'E modifica...
while not rs.eof
pc = request("pc_" & rs("id_prodotto"))
if isnumeric(pc) then
if pc = 0 then
rs.delete
else
rs("quantita") = pc
end if
end if
rs.movenext
wend
'Fine
rs.close
set rs = nothing
'Fine
end if
%>
<html>
<head>
<title>Il tuo carrello</title>
</head>
<body>
<table align="center" width="500" border="1">
<form method="post" action="carrello.asp?azione=aggiorna">
<tr bgcolor="#C0C0C0">
<td align="center" width="300"><div align="left">Piatto</div></td>
<td align="center" width="100"><div align="left">Quantita'</div></td>
<td align="center" width="100"><div align="left">Prezzo</div></td>
</tr>
<%
'Inizializzo le variabili per il prezzo totale
var_tot = 0
'Visualizzo tutti i prodotti del carrello
strSQL = "select id_prodotto, id_user, quantita from tbl_Carrello where id_user = " & session("id_utente")
set rs = con.execute(strSQL)
'Il carrello e' vuoto ?
if rs.eof then
%>
<tr>
<td colspan="3" align="center">
Il tuo carrello e' vuoto
Torna ai prodotti
</td>
</tr>
<%
end if
'Fine
'Elenco dei prodotti
while not rs.eof
'Prelevo tutti i dati dal carrello
id_prodotto = rs("id_prodotto")
qnt = rs("quantita")
'Richiamo le informazioni relative al prodotto
'e aggiorno il valore del prezzo totale
strSQL = "select nome, prezzo from tbl_Prodotti where id = " & id_prodotto
set rs2 = con.execute(strSQL)
nome = rs2("nome")
prezzo = rs2("prezzo")
var_tot = var_tot + (prezzo * qnt)
rs2.close
set rs2 = nothing
'Fine
'Visualizzo i prodotti nella tabella
%>
<tr>
<td><%=nome%></td>
<td><input type="text" name="pc_<%=id_prodotto%>" value="<%=qnt%>" size="2" maxlength="2"></td>
<td>€ <%=formatnumber(prezzo, 2)%></td>
</tr>
<%
'Fine
rs.movenext
wend
rs.close
set rs = nothing
'Fine
%>
<tr>
<td colspan="2" bgcolor="#C0C0C0" align="center">
<input type="submit" value="aggiorna carrello">
</td>
<td>
Tot. € <%=formatnumber(var_tot, 2)%></td>
</tr>
<tr>
<td colspan="3">
Inserisci 0 nelle quantità per eliminare il piatto
Torna ai prodotti
</td>
</tr>
</form>
</table>
</body>
</html>
Rispondi quotando