Contatti e info

Vi preghiamo di compilare il modulo sottostante

 
La Zondra · Carla Facchini
Strada de Someda, 1 - 38035 Moena (TN)
Tel. 0462 573591 - Fax 0462 560819
Cell. 347 1391488
<% If Request.QueryString() = "" Then query_string = "lingua=" & lingua & "&cms=" & cms Else query_string = Request.QueryString() End If Function ControlloSpam(testo_spam) ct_cambi = 0 ControlloSpam = False 'controllo presenza link If Instr(LCase(testo_spam),"tp://") > 0 Then ControlloSpam = True ElseIf Instr(LCase(testo_spam),"tps://") > 0 Then ControlloSpam = True ElseIf Len(Trim(testo_spam))<25 Then 'controllo testi a lettere maiuscole/minuscole alternate For ct_testo_spam=2 to Len(testo_spam) If Mid(testo_spam,ct_testo_spam-1,1) = LCase(Mid(testo_spam,ct_testo_spam-1,1)) Then car1="m" Else car1="M" If Mid(testo_spam,ct_testo_spam,1) = LCase(Mid(testo_spam,ct_testo_spam,1)) Then car2="m" Else car2="M" If car2 = "M" and car1="m" and Mid(testo_spam,ct_testo_spam-1,1)<>" " Then ct_cambi=ct_cambi + 1 Next If ct_cambi > 1 Then ControlloSpam = True End If End Function If Request("tasto_invia_richiesta") = "" Then %>






Privacy Policy

Accetto Non accetto

<% Else email = Trim(LCase(Request("email"))) %> <% Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "localhost" .Update End With Set objMail = CreateObject("CDO.Message") objMail.Configuration = cdoConfig '**************** invio richiesta ********************************************* ' Response.Write("passa") Set oggetto_file=CreateObject("Scripting.FileSystemObject") intTipo = 1 'lettura '*************** legge la base per l'inserzionista Set inStream=oggetto_file.OpenTextFile(Server.MapPath("/moduli/html/richiesta_inv.html"),intTipo) html_email = InStream.ReadAll InStream.Close Set InStream = Nothing Set oggetto_file = Nothing html_email = Replace(html_email, "[nome]", Request("nome")) html_email = Replace(html_email, "[cognome]", Request("cognome")) html_email = Replace(html_email, "[email]", email) html_email = Replace(html_email, "[telefono]", Request("telefono")) html_email = Replace(html_email, "[messaggio]", Request("messaggio")) spam1 = ControlloSpam(Request("cognome")) spam2 = ControlloSpam(Request("nome")) spam3 = ControlloSpam(Request("messaggio")) spam = spam1 Or spam2 Or spam3 If not spam Then objMail.From = email objMail.To = "info@lazondra.it" 'objMail.To = "lucia@pixelia.it" objMail.Subject = "Richiesta di informazioni" objMail.HTMLBody = html_email objMail.Fields.Update() objMail.Send() objMail.From = "info@lazondra.it" objMail.To = email objMail.Subject = "La Zondra auto-answer" objMail.HTMLBody = "Grazie per averci contattati! Vi risponderemo nel minor tempo possibile." objMail.Fields.Update() objMail.Send() End If Set objMail = Nothing Set cdoConfig = Nothing %>

Richiesta inviata correttamente

Grazie per averci contattati! Vi risponderemo nel minor tempo possibile.

<%End If%>

La Zondra · Carla Facchini

Strada de Someda, 1 - 38035 Moena (TN)
Tel. +39 0462 573591 - Fax +39 0462 560819
Cell. +39 347 1391488 - info@lazondra.it