<% response.buffer = true %>

method="post">

.gif">

<% arquivo = Request.QueryString("file") if (InStr(arquivo, ".swf") > 0) then Response.write "" else Response.write "" end if %> Para:   e-mail:     Mensagem:         de:         e-mail:

<% Dim De_nome Dim De_email Dim Para_nome Dim Para_email Dim Mensagem Dim Imagem Dim Visualizar Dim Link Dim Enviar If Request.QueryString("Enviar") = "Enviar" Then De_nome = Request.form("de_name") De_email = Request.form("de_email") Para_nome = Request.form("para_name") Para_email = Request.form("para_email") Mensagem = Request.form("mensagem") 'Visualizar = Request.form("visualizar") Imagem = Request.QueryString("file") 'If Visualizar = "S" Then ' Response.Redirect("visualizar.asp?file=" & Imagem & "&De=" & De_nome & "&Para=" & Para_nome & "&Mens=" & Mensagem) 'Else If Mensagem = "" Then Response.Redirect("erro.html") Else If Para_nome = "" Then Response.Redirect("erro.html") Else If Checar_Email(De_email) Then If Checar_Email(Para_email) Then Link = Criar_Cartao(De_nome,Para_nome,Mensagem,Imagem) x = Enviar_Email(De_nome,De_email,Para_nome,Para_email,Link) If x = true Then Response.Redirect("obrigado.html") Else Response.Redirect("erro.html") End If Else Response.Redirect("erro.html") End If Else Response.Redirect("erro.html") End If End If End If 'End If End If %>