<% if request.form("start") = "1" then if request("privacy") <> "1" then response.write "
" response.End() end if For each i in Request.Form messaggio = messaggio & i & ": " & Request.Form(i)&chr(13)&Chr(10) next set objMail=Server.CreateObject("CDO.Message") objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-out.kpnqwest.it" objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" objMail.Configuration.Fields.Update objMail.Subject="Richiesta di contatto dal sito" objMail.From=request("email") objMail.To="livio@tecnoservice.org" objMail.TextBody=messaggio on error resume next objMail.Send Set objMail = Nothing ' --------------------------- controllo errore -------------------------------- If Err.Number <> 0 Then Response.Write "Si è verificato un errore: " & Err.Description Else Response.write "
" End If end if %>
![]() |
||||||||
| HOME PAGE - PRODOTTI - SERVIZI - AZIENDA - DOVE SIAMO - CONTATTI | ||||||||
Contatti
|
Idropulitrici, Spazzatrici, |
|||||||
|
TECNO SERVICE di Innocenti Francesco | Via di Castiglionchio, 31/C - Loc. Rosano 50067 RIGNANO SULL’ARNO (FI) |
||||||||