<%response.buffer=true%>
Contatti
<% if Request.servervariables("HTTP_METHOD")="POST" then
cognome = request.form("Cognome")
nome= request.form("Nome")
ragione sociale= request.form("RagSoc")
indirizzo =request.form("Indirizzo")
CAP= request.form("CAP")
citta= request.form("citta")
mittente = request.form("Email")
destinazione = "ecausi@waycom.it"
response.write("ciao Emanuela")
' aggiungere i campi della tabella come sopra .................
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.waycom.it"
Mail.From = mittente
Mail.FromName = " INFO"
Mail.AddAddress Destinazione
Mail.Subject = "Registrazione nuovo utente"
Mail.Body = "Si č verificata la registrazione del seguente nuovo utente: " & cognome & " " & nome
On Error Resume Next
Mail.Send
Mail.ResetALL
set Mail = nothing
response.redirect ("sconto.htm")
response.end
end if
%>
NON E' ANCORA
NOSTRO CLIENTE?!
Lasciando i suoi dati potrā usufruire dello sconto prova
