<% 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 %>