<%@ 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 Assinatura do Livro de Visitantes" vPara = "adegadobacalhau@bacalhau.com.br" vFrom = "adegadobacalhau@bacalhau.com.br" vAssunto = "Livro de Visitantes" 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 %> Assinatura do Livro de Visitantes

livro Obrigado por assinar nosso Livro de Visitantes.
Para participar das promoções da HomePage - todos que assinarem o Livro participarão sempre, independente da data de assinatura-, é necessário seu e-mail. Para garantir sua privacidade, seu e-mail não ficará registrado no Livro de Visitantes, constando apenas em nosso arquivo para eventuais correspondências.
É com grande satisfação que recebemos sua visita na HomePage do Bacalhau.
Após a assinatura ficará disponível para download o Livro de Receitas da HomePage do Bacalhau.



linha

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