<%@ Language=VBScript %> <% 'Script para envio de e-mail em formulário Dim vErro,vSucesso,vErr vErro = "" vSucesso = "obrigado.htm" vErr = "erro.htm" if Request.Form.Count + Request.QueryString.Count > 0 then Call Respform Call Resp '----------------------------------------------------------- Sub Respform() On Error Resume Next Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom vNomeForm = "de Indicação de Restaurantes" vPara = "adegadobacalhau@bacalhau.com.br" vFrom = "adegadobacalhau@bacalhau.com.br" vAssunto = "Restaurantes" vData = Date() vData = day(vData) & "/" & month(vData) & "/" & year(vData) vHora = Time() vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s" msg = "Formulário " & vNomeForm msg = msg & " submetido em " & vData & " às " & 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 & Rep(60,"-") 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 & Rep(60,"-") msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf end if next end if msg = msg & Rep(60,"*") enviamail msg,vFrom,vPara,vCc,vAssunto If Err then vErro = Err.number & " : " vErro = Err.description Err.Clear End if End Sub '----------------------------------------------------------- Function Rep(pRep,pCaracter) Dim linha linha = "" for i = 0 to pRep linha = linha & pCaracter next Rep = linha & VbCrLf End Function '----------------------------------------------------------- Sub enviamail(msg,fr,para,cc,subj) On Error Resume Next Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = fr objMail.To = para objMail.Cc = cc objMail.Subject = subj objMail.Body= msg objMail.importance=2 objMail.Send If Err then vErro = Err.number & " : " vErro = Err.description Err.Clear End if Set objMail = nothing End Sub '----------------------------------------------------------- Sub Resp() if vErro = "" then Response.Redirect(vSucesso) else Response.Redirect(vErr) end if End Sub end if %> Formulário para indicação de restaurantes

Quer indicar um restaurante especializado em Bacalhau?
É importante completar corretamente todos campos, incluindo o telefone com DDD.
Para sua tranqüilidade seu e-mail não será publicado, sendo utilizado apenas para sabermos a origem da indicação.

Seu nome

Seu e-mail

Nome do Restaurante/Bar
Endereço - Bairro do Restaurante/Bar
Telefone (DDD) Cidade - Estado - País


linha

Adega do Bacalhau M. Lamosa Representacoes
Comentários para os autores