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

<% SELECT CASE azione case "invia" '****************** DOPO L'INVIO *********************** %>

Grazie, la domanda è stata inviata correttamente.

Riceverete una risposta entro un tempo massimo di 2 ORE.

<% case else '***************** PRIMA DELL'INVIO ****************** %>

Servizio di CONSULENZA ON LINE, attivo dal LUNEDI al VENERDI dalle ore 8.00 alle ore 18.00.

Riceverete una risposta entro un tempo massimo di 2 ORE.

NOME
COGNOME
AZIENDA
TELEFONO
FAX
E-MAIL
RICHIESTE

 

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