<% lingua = "it" If (Request.Form("act") = "doit" AND Request.Form("url") = "") Then For ix = 1 to Request.Form.Count fieldName = Request.Form.Key(ix) fieldValue = Request.Form.Item(ix) if(fieldName <> "url" AND fieldName <> "Invia" AND fieldName <> "act") Then testo = testo & fieldName & " = " & fieldValue & VbCrLf end if Next oggetto="Richiesta informazioni dal sito internet " & server_name Dim objNewMail Set objNewMail = Server.CreateObject("CDO.Message") objNewMail.From = email_admin_servizio objNewMail.To = email_admin_servizio objNewMail.Bcc = "webmaster@id-lab.it" if request.Form("email") <> "" then replytomail = request.Form("email") objNewMail.ReplyTo = trim(replytomail) end if objNewMail.Subject = oggetto objNewMail.textBody = testo objNewMail.Send Set objNewMail = nothing response.redirect("done.html") 'response.write testo End If %> Contatti POMATEC di Podeschi Mauro a San Leo di Rimini nella zona industriale Pianacci
Contatti
Modulo di richiesta informazioni


" onSubmit="return verifica_info_<%=lingua%>();">
Dati personali
Richiesta
Informativa sulla privacy
Accettazione e invio
Dichiaro di aver preso atto dell'informativa resa sul trattamento dei miei dati personali

Via Leontina 253/b10 - Zona artigianale Pianacci - 47865 San Leo (RN) - tel.+39 0541/847056 - fax +39 0541/847443 - e-mail: info@pomatec.com
ID-lab: creazione siti internet