<%@ Language=VBScript %>
<%
'Script para envio de e-mail em formulário
Dim vErro,vSucesso,vErr
vErro = ""
vSucesso = "confirmacao.asp"
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 = "cadastro"
vPara = "djalma@imaginart.com.br"
vFrom = "djalma@imaginart.com.br"
vAssunto = "Formulário Imaginart"
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
%>
LUXOR TOP MODELS
Entre em contato conosco
através do formulário abaixo ou telefones.
