%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
strNome = request.Form("nomecognome")
strIndirizzo = request.Form("indirizzo")
strCitta = request.Form("citta")
strProvincia = request.Form("provincia")
strCap = request.Form("cap")
strNazione = request.Form("select")
strTel = request.Form("telefono")
strFax = request.Form("fax")
strEmail = request.Form("email")
strQuantita = request.Form("quantita")
strPagamento = request.Form("pagamento")
Mailer.FromName = "sito Martin"
Mailer.FromAddress = "delacruz@valsugana.net"
strMailHost = "mail.valsugana.net"
Mailer.RemoteHost = strMailHost
Mailer.AddRecipient "Test recipient", "delacruz@valsugana.net"
Mailer.Subject = "Modulo ordine dal sito"
strBody = strBody & "Nome e Cognome : " & strNome & vbCrLf
strBody = strBody & "Indirizzo :" & strIndirizzo & vbCrLf
strBody = strBody & "Citta' :" & strCitta & vbCrLf
strBody = strBody & "Provincia :" & strProvincia & vbCrLf
strBody = strBody & "Cap :" & strCap & vbCrLf
strBody = strBody & "Nazione :" & strNazione & vbCrLf
strBody = strBody & "Telefono : " & strTel & vbCrLf
strBody = strBody & "Fax :" & strFax & vbCrLf
strBody = strBody & "E-mail: " & strEmail & vbCrLf
strBody = strBody & "Quantità: " & strQuantita & vbCrLf
strBody = strBody & "Pago a mezzo :" & strPagamento & vbCrLf & vbCrLf
Mailer.BodyText = strBody
if Mailer.SendMail then
Response.Redirect "grazie.html"
else
Response.Write "Mail fallita
"
Response.Write "Controlla il nome del server e la connessione tcp/ip…
"
Response.Write Mailer.Response
end if
%>