O que esse código faz?

[thcb2 0]

Alguém pode comentar e explicar esse código para mim??? Muito obrigada

<%
Option Explicit
%>
<%
Session("nome") = Request.Form("nome")
Session("email") = Request.Form("email")
Session("comentarios") = Request.Form("comentarios")
%>
<%
Response.Expires = 0
DIM msgTexto, email, msgTexto02, email02
msgTexto = "" &  vbCRLF
msgTexto = msgTexto & "  DADOS PESSOAIS: " & vbCRLF
msgTexto = msgTexto &  vbCRLF
msgTexto = msgTexto & "  Nome: " & Session("nome") & vbCRLF
msgTexto = msgTexto & "  E-mail: " & Session("email") & vbCRLF
msgTexto = msgTexto &  vbCRLF
msgTexto = msgTexto &  vbCRLF
msgTexto = msgTexto & "  MENSAGEM: " & vbCRLF
msgTexto = msgTexto &  vbCRLF
msgTexto = msgTexto & "  " & Session("comentarios") & vbCRLF
Set email = Server.CreateObject("CDONTS.NewMail")
Email.From = Session("email")
Email.To = "artfix@artfix.com.br"
Email.Subject = "CONTATO / SITE"
Email.Body = msgTexto
Email.Send
Set Email = Nothing
Session.Abandon
%>
<%
Response.Redirect "index.html"
%>

[marina limeira 0]

pega o nome email e a mensagem

e formata ele para enviar por email

(script de envio de email)

[hargon 64]

Correto Marina.

 

Só complementando, os dados que ele pega vem de um formulário. Esses dados são armazenados em session (poderiam ser variáveis mesmo) e depois que o e-mail é enviado essas session são destruídas e o usuário é redirecionado a uma página, no caso acima "index.html".

 

E ele está utilizando o componente CDONTS (que não é muito utilizado atualmente).

[thcb2 0]

Marina e Hargon obrigada. É que eu estou usando esse código para um formulário que eu fiz no Flash, porém quando eu clico em Enviar abre a página inicial do nada (index.htm). Se eu tirar esta linha:

 

<%

Response.Redirect "index.html"

%>

 

Dá algum problema?

 

Mais uma vez obrigada

[marina limeira 0]

pode sim, pois é apenas um comando de redirecionamento apos enviado o email.

[hargon 64]

Dá não. Como você está utilizando Flash, o ideal é remover essa linha.

[Mário Monteiro 179]

problema nao da mas vai ficar em uma pagina em branco