<% response.buffer = True If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.tin.it" Mail.AddAddress "itivmail@tin.it" Mail.FromName = "Sito internet" Mail.Subject = "Contatto on line" Mail.Body = "Ragione sociale: " & Request("ragionesociale") & chr(13) & chr(10) Mail.Body = Mail.Body & "Riferimento: " & Request("riferimento") & chr(13) & chr(10) Mail.Body = Mail.Body & "Via: " & Request("via") & chr(13) & chr(10) Mail.Body = Mail.Body & "Numero: " & Request("n") & chr(13) & chr(10) Mail.Body = Mail.Body & "CAP:" & Request("cap") & chr(13) & chr(10) Mail.Body = Mail.Body & "Citta': " & Request("citta") & chr(13) & chr(10) Mail.Body = Mail.Body & "Tel.: " & Request("telefono") & chr(13) & chr(10) Mail.Body = Mail.Body & "E-mail" & Request("email") & chr(13) & chr(10) Mail.Body = Mail.Body & "Interessato a: " & Request("select") & chr(13) & chr(10) Mail.Body = Mail.Body & "Tipo contatto: " & Request("select2") & chr(13) & chr(10) strErr = "" bSuccess = False On Error Resume Next Mail.Send response.redirect("http://www.itiv.it/grazie.htm") If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> ITIV Seveso, Impianti tecnici industriali in vetro

Ragione Sociale
persona di rif.
via
n. civico
cap
città
telefono
e-mail
Richiedo informazioni per il seguente prodotto
settore
dettaglio prodotto interessato
campo applicativo del prodotto
quantità
Cerco nel settore sopra indicato pezzi di ricambio
marchio di produzione
conferma di richiesta ordine