Rua Bela Cintra 986, 12º andar
Bairro: Cerqueira César
São Paulo - SP
CEP: 01415-906
E-mail: comitegestor@consorcioita.com.br
<%@ Language=VBScript %>
<%
Dim iConf
Dim Flds
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
%>
<%
'=========================================
'=========================================
'Script para envio de e-mail em formulário
Dim vErro,vSucesso,vErr
vErro = ""
vSucesso = "sucesso.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 = "Formulário de Contato Site CDA"
vPara = "comitegestor@consorcioita.com.br"
vFrom = "comitegestor@consorcioita.com.br"
vCc = ""
vAssunto = "Mensagem do site Consórcio Itá"
vData = Date()
vData = day(vData) & "/" & month(vData) & "/" & year(vData)
vHora = Time()
vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s"
msg = "Mensagem do " & vNomeForm
msg = msg & ", enviada 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("CDO.Message")
Set objMail.Configuration = iConf
objMail.From = fr
objMail.To = para
objMail.CC = cc
objMail.Subject = subj
objMail.TextBody= msg
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
%>
CDA - Envie-nos sua mensagem.
