<%az=request("az")
select case az
case "" %>
<%case "1"
Dim jMail
Set jmail = Server.CreateObject("JMail.Message")
jMail.From ="info@cosmecsementi.com"
jmail.AddRecipient "davide.silvestri@trenet.it"
jMail.Subject = "Contatti dal sito"
body="Azienda : "&request("azienda")&"
Nome : "&request("nome")&"
Cognome : "&request("cognome")&"
Indirizzo : "&request("indirizzo")&"
Cittą : "&request("citta")&"
E-Mail : "&request("email")&"
Testo : "&request("testo")&"
"
jMail.HTMLBody = body
jmail.Send ("mail.trenet.it")
set jmail=nothing%>
Mail spedita
<%end select%>
