<% Function Mail(Mittente,Destinatario,Oggetto,Corpo,Formato) DIM iMsg, Flds, iConf Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds(cdoSendUsingMethod) = cdoSendUsingPort Flds(cdoSMTPServer) = "mail.sistemaclienti.com" Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoBasic Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "no-reply@sistemaclienti.com" Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "2811855" Flds.Update With iMsg Set .Configuration = iConf .To = Destinatario .From = Mittente .Sender = Mittente .Subject = Oggetto If Formato = 1 Then .TextBody = Corpo If Formato = 0 Then .HTMLBody = Corpo .Send End With End Function Function checkField(Campo, Tipo, NomeCampo) checkField = false If Campo = "" Then ListaErrori.Add NomeCampo,"Non è stato specificato un valore per il campo """ & NomeCampo & """" ElseIf Tipo = 2 And IsNumeric(Campo) = False Then 'Controllo Numeri ListaErrori.Add NomeCampo,"Non è stato specificato un valore valido per il campo """ & NomeCampo & """" ElseIf Tipo = 3 And IsDate(Campo) = False Then 'Controllo Date ListaErrori.Add NomeCampo,"Non è stato specificato un valore valido per il campo """ & NomeCampo & """" ElseIf Tipo = 4 And IsMail(Campo) = False Then 'Controllo Date ListaErrori.Add NomeCampo,"Non è stato specificato un valore valido per il campo """ & NomeCampo & """" Else checkField = true End If End Function Function IsMail(sEmail) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z0-9]{2,4}$" objRegExp.IgnoreCase = True IsMail = objRegExp.Test(sEmail) End Function ListaOggetti = Array("Richiesta Informazioni","Informazioni per PACKER","Informazioni per RESINE","Informazioni per DEUMIDIFICAZIONi","Altro") ListaDomande = Array("Quanto fa 2+2","Quante sono le vocali") ListaRisposte = Array("4","5") Randomize Domanda = Int((Ubound(ListaDomande)+1)*RND) If Request("op") = "invia" then txtNome = Request("Nome") txtEmail = Request("Email") txtCitta = Request("Citta") Oggetto = Request("Oggetto") txtCorpo = Request("Corpo") For each campo in Request.Form If Mid(campo,1,7) = "captcha" Then Domanda = Mid(campo,9) Risposta = Request(campo) Exit For End If Next Set ListaErrori = Server.CreateObject("Scripting.Dictionary") CheckField txtNome, 1, "Nome" If CheckField(txtEmail, 1, "E-Mail") Then If Not IsMail(txtEmail) Then ListaErrori.Add "Email","L'Indirizzo E-Mail specificato non è valido" End If CheckField Oggetto, 2, "Oggetto" CheckField txtCorpo, 1, "Messaggio" If CheckField(Risposta,1, "Anti-Spam") Then If Risposta <> ListaRisposte(Domanda) Then ListaErrori.Add "Captcha","AntiSpam: La risposta è sbagliata!" End If Errori = ListaErrori.Count If Errori = 0 Then Mittente = "info@drywallsystem.com" Destinatario = "info@drywallsystem.com" txtOggetto = "Modulo Contatti" Formato = 1 Corpo = "Ciao, un utente ha utilizzato il modulo contatti del sito. " & VBCRLf & _ vbCRLf & "Nome: " & txtNome & _ vbCRLf & "Città: " & txtCitta & _ vbCrLf & "E-Mail: " & txtEmail & _ vbCrLf & "Oggetto: " & ListaOggetti(Oggetto) & _ vbCrLf & "Messaggio: " & vbCrLf & txtCorpo Call Mail(Mittente,Destinatario,txtOggetto,Corpo,Formato) End If End If %> CONTATTACI - DEUMIDIFICAZIONE MURI UMIDI - DRY WALL SYSTEM

HOME\CONTATTACI

 

V.AUGUSTO D’ANDREA,2-ZONA ARTIGIANA
00048 NETTUNO-RM.

CONTATTI TELEFONICI:
TEL..+39.06.88930067
FAX. 178.600.4092

INFO LINE: LUN-VEN.09,00-18,00 - Cellulare 393.9803549