<% '-- Validação do Formulário function Validate() '-- Campos obrigatórios if IsClean(Request("Nome")) then colLabel.Add "Nome", null if IsClean(Request("Email")) then colLabel.Add "Email", null if IsClean(Request("Observacoes")) then colLabel.Add "Observacoes", "Mensagem" if not IsClean(Request("Email")) and not reEmail.Test(Request("Email")) then _ colError.Add "Email", "Informe o endereço de e-mail corretamente. Ex.: pessoa@provedor.com.br" if colLabel.Count <> 0 or colError.Count <> 0 then Validate = false exit function end if Validate = true end function '-- Objetos Dictionary para armazenar erros set colLabel = CreateObject("Scripting.Dictionary") set colError = CreateObject("Scripting.Dictionary") if Request("Validate") = "1" then for each Field in Request.Form Execute("fld" & Field & " = Request(""" & Field & """)") next if Validate() then on error resume next Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.donamorena.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = "sady@donamorena.com.br" objCDOSYSMail.To = "sady@donamorena.com.br" objCDOSYSMail.ReplyTo = Request("Email") objCDOSYSMail.Subject = "Novo Fale Conosco" objCDOSYSMail.TextBody = VbCrLf & "Nova fale conosco recebido pelo site:" & VbCrLf & "Nome:" & Request("Nome") & VbCrLf & "E-mail:" & Request("Email") & VbCrLf & "Telefone:" & Request("Fone") & VbCrLf & "Solicitação:" & VbCrLf & Request("Observacoes") & VbCrLf & VbCrLf objCDOSYSMail.Send if Err.number <> 0 then colError.Add "Erro:" & Err.Description, "Não foi possível enviar sua mensagem. Por favor, tente novamente mais tarde." else call Response.Redirect(ThisPage(null) & "?ok=1#desc") end if on error goto 0 end if end if %> Fale Conosco - Padaria Dona Morena
Original Levitra Rezeptfrei Kaufen Original Levitra 20mg Kaufen Original levitra Ohne Rezept Levitra Generika 20mg Nebenwirkungen Levitra Generikum 20mg Levitra Generikum 20mg Kaufen Kamagra Tabletten Online Bestellen Kamagra 100mg Sildenafil Kamagra 100mg Wirkung Kamagra Oral Jelly Gel 100mg Kamagra 100mg Oral Jelly Sildenafil Super Kamagra Kaufen Super Kamagra Online Super Kamagra Kaufen Super Kamagra Einnahme Super Kamagra Preis
LIDA Daidaihua effetti collaterali LIDA Daidaihua ingredienti LIDA Daidaihua Dose Meizitang soft Gel Ingredienti Meizitang funziona viagra super active generico viagra super active 50 mg viagra super active italia cialis super active forum cialis super active online cialis super active italia Buy Levitra 20mg UK Viagra Original 100mg Original Viagra Pills Original Viagra Tablets Price
Original Cialis 20 mg Buy Original Levitra Online Levitra Original 20 mg Levitra Original 10 mg Viagra Generic Cost Viagra Generic Side Effects Generic Viagra 100 mg Online Generic Viagra Tablets Cialis Generic Alternative Cialis Generic Dose Tadalafil Generic Version of Cialis Cialis Generic 20mg Pills Generic Levitra 2018 Generic Levitra Manufacturers Kamagra 100mg Online
Drostanolone Propionate Masteron Masteron Drostanolone Propionate 100mg/Ml Masteron Drostanolone Propionate Side Effects Primobolan Depot Methenolone Enanthate Primobolan Depot Dosage Primobolan Depot For Sale Cytomel T3 Weight Loss Cytomel T3 Side Effects Cytomel T3 Buy Online Cytomel T3 Dosage Dianabol 20mg a Day Side Effects Dianabol 20mg a Day Dianabol 20mg Pills Winstrol For Women's Weight Loss Winstrol Effects