Salve a tutti, ho messo a punto un semplice carrello della spesa seguendo i suggerimenti di questo sito... purtroppo non riesco a far si che venga spedita l'email di conferma dell'ordine... ecco il codice del file di conferma:
<%
response.addheader "pragma","no-cache"
response.expires=0
%>
<html>
<head>
<title>Conferma</title>
</head>
<h2><b><font face="Verdana" size="4" color="#000080">Conferma ordine</font></b></h2>
<font face="Verdana" size="2">
<br>
<%
'Recuperiamo il RS del carrello
set carrello=session("carrello")
if carrello.eof then
response.write "<br><font color=red><b>Il carrello è vuoto.</b></font><br><br>"
response.end
end if
'Ci serviamo di un oggetto COMMAND per eseguire le query necessarie
set objCMD=server.createobject("adodb.command")
'Definisco il RS di appoggio per recuperare il nuovo CODICE ORDINE
set objRS=server.createobject("adodb.recordset")
StrConn=session("StrConn")
'objCMD.activeconnection=StrConn
'objCMD.commandType=1 'Comando di tipo testo
strData=formatdatetime(date())
objRs.activeconnection=StrConn
objRs.open "ORDINI",,,3
with objRS
.addNew
.fields("cliente")= (Session("CODICE"))
.fields("data")=strData
.fields("stato")="A"
.update
nuovo_codice=.fields("codice")
end with
objRS.close
set objRS=nothing
'Il codice cliente è impostato a 1, corrispondente all'unico disponibile
'objCMD.commandText="insert into ordini (cliente,data,stato) values (response.write (Session("CODICE")),#" & strData & "#,'A')"
'Sospendo l'attività del Server Web
'Application.lock
'Inseriamo il nuovo record nella tabella ORDINI
'objCMD.execute
'objCMD.commandText="select max(codice) as nuovo_codice from ordini"
'set objRS=objCMD.execute
'nuovo_id=objRS("nuovo_codice")
'Ripristino l'attività
'Application.unlock
carrello.movefirst
while not carrello.eof
carrello("ID_ORDINE")=nuovo_codice
carrello.update
carrello.movenext
wend
'Ripristino la connessione al Database per l'update batch
carrello.activeconnection=StrConn
carrello.UpdateBatch
'Inizializzo il carrello
pathCarrello=Server.Mappath("carrello.ado")
Set objRS=server.createobject("adodb.recordset")
'Apertura del recordet persistente
objRS.open pathCarrello
'Inizializzo nuovamente l'oggetto carrello
Set Session("carrello")=objRS
%>
<b>Grazie per aver confermato il suo ordine.<br><br>
Ti è stata mandata una e-mail con il numero di riferimento<br>
dell'ordine con il quale potrai verificare in tempo reale<br>
lo stato della spedizione...</b><br><br><a href="ordine.asp">Torna indietro</a></font>
<hr color="gray">
</html>
qualcuno può aiutarmi?cosa devo aggiungere usando CDONTS?
