<%@ Language=VBScript %> <% 'Script para envio de e-mail em formulᲩo Dim vErro,vSucesso,vErr vErro = "" vSucesso = "contatos-obrigado.htm" vErr = "contatos-erro.htm" if Request.Form.Count + Request.QueryString.Count > 0 then Call Respform Call Resp end if '----------------------------------------------------------- Sub Respform() On Error Resume Next Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom vNomeForm = "WebSite Paulinho Dive" vPara = "info@paulinhodive.com.br" vFrom = "info@paulinhodive.com.br" vCc = "luis@designweb.com.br" vAssunto = "Envio de FormulᲩo - Paulinho Dive" vData = Date() vData = day(vData) & "/" & month(vData) & "/" & year(vData) vHora = Time() vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s" msg = "FormulᲩo " & vNomeForm msg = msg & " submetido em " & vData & " ೠ" & vHora & VbCrLf & VbCrLf if Request.ServerVariables("REQUEST_METHOD") = "POST" then for each campo in Request.Form if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & string(60,"-") & vbcrlf msg = msg & campo & " : " & Request.Form(campo) & VbCrLf end if next else for each campo in Request.QueryString if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & string(60,"-") & vbcrlf msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf end if next end if msg = msg & string(60,"*") & vbcrlf EnviaEmail msg,vFrom,vPara,vCc,vAssunto If Err then vErro = Err.number & " : " vErro = Err.description Err.Clear End if End Sub '----------------------------------------------------------- Function EnviaEmail(ByVal p_body, Byval p_from, ByVal p_to, ByVal p_cc, Byval p_subject) On Error Resume Next Dim iMsg, Flds, iConf, status Const SERVIDOR_SMTP = "localhost" status = true Set iMsg = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVIDOR_SMTP Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Flds.Update With iMsg Set .Configuration = iConf .To = p_to .CC = p_cc .From = p_from .Sender = p_from .Subject = p_subject .TextBody = p_body .Send End With If Err.number <> 0 Then status = false End If If IsObject(iMsg) Then Set iMsg = Nothing If IsObject(Flds) Then Set Flds = Nothing If IsObject(iConf) Then Set iConf = Nothing EnviaEmail = status End Function '----------------------------------------------------------- Sub Resp() if vErro = "" then Response.Redirect(vSucesso) else Response.Redirect(vErr) end if End Sub %> ........................... PAULINHO DIVE ...............................
Timberland High Top Boots MBT Monroe MI Air Force 1 Flyknit Low NL Adidas Schoenen Dames Nike Air Force Boots ASICS Running Shoe New Balance 574 Nike Zoom Hyperrev 2015 Asics Scarpe Onitsuka Tiger Mexico Air Nike Huarache Cleats Adidas NMD Foot Locker New Balance 373 Timberland Classic 8 Premium Boots MBT Barabara Scarpe originali Adidas обувь для женщин онлайн Asics GEL KAYANO 18 Mens Running shoes Nike ID Kyrie 1 adidas Springblade Running Shoes Adidas Samoa Asics Onitsuka Tiger Mexico 66
Contatos

Os contatos podem ser feitos pelos telefones (21) 7886-6405, (21) 3418-2557, (21) 9696-8677 ou por e-mail.

No entanto, gostar�os muito de receber seu formulᲩo respondido. Assim poderemos conhecer voc꠭elhor, saber suas preferꮣias e suas experiꮣias.

Com estas informa絥s estaremos montando um banco de dados e futuramente um news group de mergulho. Via e-mail poderemos lhe enviar as 䩭as novidades, lan硭entos, sa�s para mergulhos, viagens e muito mais.
Logicamente se assim desejar !

Preencha o FormulᲩo !
Nome completo
Endere篠
Bairro CEP
Cidade Estado Pa�br>
Telefones Celular
E-mail Data de Nascimento
Escola que se formou Certificadora N岯 de mergulhos
Jᠦez alguma viagem no Brasil para mergulhar ? Para onde ?
Jᠦez alguma viagem internacional para mergulhar ? Para onde ?
Escreva aqui sua sugest㯬 d餡, pedido ou recado !
Copyright ⰰ6 Paulinho Dive
Informa絥s: Telefones (0xx21) 7886-6405, 3418-2557, 9696-8677 ou por e-mail info@paulinhodive.com.br.
Projeto e Desenvolvimento: DesignWeb.


cialis suisse cialis suisse viagra suisse viagra suisse levitra gnrique levitra suisse cialis suisse cialis svizzera viagra svizzera bolsos michael kors nike huarache baratas montblanc boligrafos nike outlet polos ralph lauren baratos oakley baratas michael kors bolsos new balance 574 new balance baratas boligrafos montblanc nike air force baratas