<%
nome=trim(request("nome"))
cognome=trim(request("cognome"))
indirizzo=trim(request.form("indirizzo"))
email=trim(request("email"))
richiesta=trim(request("richiesta"))
response.write ""
response.write " Grazie " & "" & "
" & nome & " "& cognome & "
"
response.write "al più presto verrà da noi contattato
" & "
"
%>
<%
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "vendite@coima.com"
MyMail.To = "vendite@coima.com"
MyMail.Subject = " Compilazione Form da sito COIMA"
MyMail.BodyFormat =CdoBodyFormatHTML
MyMail.MailFormat = CdoMailFormatMime
SMailBody = "COIMA"
SMailBody = SMailBody & " La richiesta è stata formulata da:
" & "" & "" & nome & " " & cognome &"
Residente a:
" & indirizzo &"
il suo indirizzo e-mail è:
"& email &"
la sua richiesta è stata:
"& richiesta &""
MyMail.Body =SMailBody
MyMail.Importance = 1
MyMail.Send
Set MyMail = nothing
%>
<%
Response.Redirect("http://www.coima.com/coima.html")
%>