BI. PI. snc - Serramenti in alluminio - Benvenuti nel sito di BI. PI. snc

<% ' change to address of your own SMTP server strHost = "81.208.4.239" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "info@bipi.it" ' From address Mail.FromName = "www.bipi.it" ' optional Mail.AddAddress "info@bipi.it" ' message subject Mail.Subject = "RICHIESTA INFORMAZIONI DA WWW.BIPI.IT" ' message body Mail.Body = "nome: " & Request("nome") & chr(13) & chr(10) Mail.Body = Mail.Body & "Cognome: " & Request("Cognome") & chr(13) & chr(10) Mail.Body = Mail.Body & "Telefono: " & Request("telefono") & chr(13) & chr(10) Mail.Body = Mail.Body & "Email: " & Request("email") & chr(13) & chr(10) Mail.Body = Mail.Body & "Richiesta: " & Request("richiesta")& chr(13) & chr(10) Mail.Body = Mail.Body & chr(13) & chr(10) & "Information Sender by Informatizzando.com." strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> BI. PI. snc - Serramenti in alluminio - Benvenuti nel sito di BI. PI. snc

BI. PI. snc
Via dell'Industria, 4 - BELLUSCO - MI
Tel. 039 6020466 - 6020468 R.A. / 02 6124849 - Fax. 039 6840854
email: info@bipi.it

<% If strErr <> "" Then %>

Errore nella trasmissione del messaggio, riprovare in un secondo momento <% = strErr %>

<% End If %> <% If bSuccess Then %>

Richiesta inviata con successo! Grazie

<% End If %>

Torna a www.bipi.it