<% Dim VarAct Dim VarNome Dim VarEmail Dim VarTelefone Dim VarAssunto Dim VarMensagem Dim VarCorpoEmail VarAct = Request.QueryString("Act") VarNome = Trim(Replace(Request.Form("Nome"),"'","''")) VarTelefone = Trim(Replace(Replace(Replace(Replace(Request.Form("Telefone"),"(",""),")","")," ",""),"-","")) VarEmail = Trim(Request.Form("Email")) VarAssunto = Request.Form("Assunto") VarMensagem = Trim(Replace(Replace(Request.Form("Mensagem"),"'","''"),vbcrlf,"
")) VarCorpoEmail = "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "" VarCorpoEmail = VarCorpoEmail & "

" VarCorpoEmail = VarCorpoEmail & " Data/Hora:  " VarCorpoEmail = VarCorpoEmail & "	" VarCorpoEmail = VarCorpoEmail & ""& Now() &"" VarCorpoEmail = VarCorpoEmail & "
" VarCorpoEmail = VarCorpoEmail & " Nome:  " VarCorpoEmail = VarCorpoEmail & "	" VarCorpoEmail = VarCorpoEmail & ""& VarNome &"" VarCorpoEmail = VarCorpoEmail & "
" VarCorpoEmail = VarCorpoEmail & " Telefone:  " VarCorpoEmail = VarCorpoEmail & "	" VarCorpoEmail = VarCorpoEmail & ""& VarTelefone &"" VarCorpoEmail = VarCorpoEmail & "
" VarCorpoEmail = VarCorpoEmail & " E-mail:  " VarCorpoEmail = VarCorpoEmail & "	" VarCorpoEmail = VarCorpoEmail & ""& VarEmail &"" VarCorpoEmail = VarCorpoEmail & "
" VarCorpoEmail = VarCorpoEmail & " Assunto:  " VarCorpoEmail = VarCorpoEmail & "	" VarCorpoEmail = VarCorpoEmail & ""& VarAssunto &"" VarCorpoEmail = VarCorpoEmail & "
" VarCorpoEmail = VarCorpoEmail & " Mensagem:  " VarCorpoEmail = VarCorpoEmail & "	" VarCorpoEmail = VarCorpoEmail & ""& VarMensagem &"" VarCorpoEmail = VarCorpoEmail & "

" %>

MICARETAS