%
dim nome
dim cognome
dim azienda
dim tel
dim fax
dim testo
dim mail
dim azione
dim ora
nome = Request.QueryString("nome")
cognome = Request.QueryString("cognome")
azienda = Request.QueryString("aziende")
tel = Request.QueryString("telefono")
fax = Request.QueryString("fax")
testo = Request.QueryString("domande")
mail = Request.QueryString("mail")
azione = Request.QueryString("az")
select case azione
'********************* INVIO POSTA ****************************
case "invia"
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="info_dal_sito_ITV@utente.it"
objMail.importance=1
objMail.Subject = "Form da sito i-t-v"
objMail.To= "tb@digitelitalia.com"
'objMail.Bcc= "aceville@unifi.it"
contenuto="Registrato il: "& date & "alle ore: " & TIME & "
Un nuovo form è stato inviato, contenuto:
Nome: "& nome &"
Cognome: "& cognome &"
Ragione Sociale: "& azienda &"
Telefono: "& tel &"
Fax: "& fax &"
E-mail: "& mail &"
Domanda:
"& testo
objMail.Body = contenuto
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Send
end select
%>
|
||||||||||||||
info@i-t-v.it Industria Toscana Vernici Via Stradone di Rovezzano, 21 - 50136 Firenze tel. 055/690.158 (3 linee r.a.) Cap. Sociale L.288.000.000 int. vers. - C.C.I.A.A. Firenze n.115372 Iscr. Trib. n.9766 Cod. Fis. e Partita I.V.A. 00420280489 |
||||||||||||||