Ciao, secondo me va tutto bene ma non mi arriva l'email.
Siccome non sono sicuro che si possa fare (anche se il browser non mi da errore), mi dite se è tutto ok?
(il database degli ordini va bene e funziona)
__________________________________________________ _________________
<%intOrderID = cstr(Session("idordine"))
if intorderid = "" then
response.redirect("sessionescaduta.asp")
'----------------------------------------------------------------------------
For Each key in Request.Form
strName = key
strValue = Request.Form(key)
Session(strName) = strValue
Next
'----------------------------------------------------------------------------
function displayHeader()
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<body>"
end function
'----------------------------------------------------------------------------
importo = Request.Form("importo")
nomecl = Request.Form("nomecl")
cognomecl = Request.Form("cognomecl")
viacl = Request.Form("viacl")
cittacl = Request.Form("cittacl")
capcl = Request.Form("capcl")
provinciacl = Request.Form("provinciacl")
telefonocl = Request.Form("telefonocl")
faxcl = Request.Form("faxcl")
emailcl = Request.Form("emailcl")
commenti = Request.Form("commenti")
viacls = Request.Form("viacls")
cittacls = Request.Form("cittacls")
capcls = Request.Form("capcls")
provinciacls = Request.Form("provinciacls")
pagamento = Request.Form("pagamento")
idordine = Request.Form("idordine")
'-----------------------------------------------------------------------------
set rsOrder = Server.CreateObject("ADODB.Recordset")
rsOrder.Open "SELECT * FROM ordini WHERE idordine = " _
& idordine, ObjConn, adOpenStatic, adLockOptimistic, _
adCmdText
if rsOrder.EOF then
Response.Write "Non esiste "
else
rsOrder ("data") = date()
rsOrder ("importo") = importo
rsOrder("nomecl") = nomecl
rsOrder("cognomecl") = cognomecl
rsOrder("viacl") = viacl
rsOrder("cittacl") = cittacl
rsOrder("capcl") = capcl
rsOrder("provinciacl") = provinciacl
rsOrder("telefonocl") = telefonocl
rsOrder("faxcl") = faxcl
rsOrder("emailcl") = emailcl
rsOrder("commenti") = commenti
rsOrder("viacls") = viacls
rsOrder("cittacls") = cittacls
rsOrder("capcls") = capcls
rsOrder("provinciacls") = provinciacls
rsOrder("pagamento") = pagamento
rsOrder("status") = "completato"
rsOrder.Update
'------------------------------------------------------------------------------
rsorder.close
set rsorder = nothing
' apertura record per invio mail------------------------------------------------
sqlText = "select prodotti.id, nome, " _
& "prezzo, quantita, nomeopz, taglia from prodotti, " _
& "carttab, opzioni where " _
& "carttab.idopzione = opzioni.id "_
& "and carttab.idprodotto = prodotti.id "_
& "and carttab.idordine = " & intOrderID
set rsemail = Objconn.Execute(sqlText)
mittente= "Sbiru on line shop"
oggetto=" Riepilogo ordine"
dim StrBody
function tabellaordine()
Response.Write"<table width='500' border='0' cellspacing='1' cellpadding='1'>"
Response.Write "<tr>"
Response.Write " <td>QUANTITA'</td>"
Response.Write "<td>NOME</td>"
Response.Write "<td>OPZIONE</td>"
Response.Write"<td>TAGLIA</td>"
Response.Write "<td>PREZZO UNITARIO </td>"
Response.Write" <td>PREZZO</td>"
Response.Write "</tr>"
'costante spese di spezione----------------------------------------------------------------------------
spedizione= 10
'inizio ciclo------------------------------------------------------------------------------------------
while not rsemail.EOF
'inizio interfaccia ciclica----------------------------------------------------------------------------
'variabili da ciclare----------------------------------------------------------------------------------
idprodotto = rsemail("id")
quantita= rsemail("quantita")
nome= rsemail("nome")
nomeopz= rsemail("nomeopz")
taglia= rsemail("taglia")
prezzo= rsemail("prezzo")
totale= totale + (quantita * prezzo)
importo = formatNumber((totale + spedizione), 2)
Response.Write"<tr>"
Response.Write "<td>" &quantita& "</td>"
Response.Write "<td>"&nome&"</td>"
Response.Write " <td>"&nomeopz&"</td>"
Response.Write "<td>"&taglia&"</td>"
Response.Write "<td>"&formatNumber(prezzo, 2)&"</td>"
Response.Write "<td>"&formatNumber((quantita * prezzo), 2)&"</td> "
Response.Write "</tr>"
'fine interfaccia ciclica----------------------------------------------------------------------------
rsemail.MoveNext
wend
'fine ciclo------------------------------------------------------------------------------------------
Response.Write "<tr>"
Response.Write "<td colspan='5'><div align='left'>TOTALE</div></td>"
Response.Write "<td>"&formatNumber(totale, 2)& "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td colspan='5'>SPESE DI SPEDIZIONE</td>"
Response.Write "<td>"&spedizione&"</td>"
Response.Write" </tr>"
Response.Write "<tr>"
Response.Write " <td colspan='5'>TOTALE IVA INCLUSA</td>"
Response.Write "<td>"&importo& "</td>"
Response.Write " </tr>"
Response.Write"</table>"
Response.Write "
"
Response.Write " <table width='500' border='0' cellspacing='1' cellpadding='1'>"
Response.Write " <tr>"
Response.Write " <td></div></td>"
Response.Write " <td><div align='center'></div></td>"
Response.Write "<td><div align='center'>Torna al negozio</div></td>"
Response.Write "</tr>"
Response.Write"</table>"
rsemail.close
set rsemail = nothing
end function
Set objMail = Server.CreateObject("CDO.Message")
objMail.From=mittente
objMail.To=emailcl
objMail.Subject=oggetto
objMail.HtmlBody= tabellaordine()
objMail.Send
Set objMail = nothing
end if
'____________________fine email cliente________________________________________
end if
Objconn.close
set objconn = nothing
'------------------------------------------------------------------------------
session.Abandon()
%>
Rispondi quotando
