[Resolvido] Email asp e flash!

[gotaum 0]

Olá, pessoal!

 

Estou com um problema no envio desse email. Este código que está escrito abaixo é executado após clicar no botão enviar do swf, o problema é o seguinte eu gostaria que o email digitado no swf seja o remetente do mesmo.

 

Ou seja eu quero que o cara entre em contato do site digite um nome, email, assunto e mensagem, quando ele clicar em enviar o email que ele digitou seja o remetente do email.

 

<%
  Session("nome") = Request.Form("nome")
  Session("email") = request.Form("email")
  Session("assunto") = Request.Form("assunto")
  Session("mensagem") = Request.Form("mensagem")
%>

<%
  ' Definindo uma variavel auxiliar
  sch = "http://schemas.microsoft.com/cdo/configuration/"

  ' Criando o objeto de configuração do CDO
  Set cdoConfig = Server.CreateObject("CDO.Configuration")

  ' Definindo as configurações
  cdoConfig.Fields.Item(sch & "sendusing") = 2
  cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
  cdoConfig.Fields.Item(sch & "smtpserver") = "*****"
  cdoConfig.Fields.Item(sch & "sendusername") = "********"
  cdoConfig.Fields.Item(sch & "sendpassword") = "******"
  cdoConfig.fields.update

  ' Criando o objeto de msg do CDO
  Set cdoMessage = Server.CreateObject("CDO.Message")

  ' Associando as configurações ao obj Mensagem
  Set cdoMessage.Configuration = cdoConfig

  ' Definido variaveis da msg
  cdoMessage.From = "contato@espiritosanta.com.br"
  cdoMessage.To = "contato@espiritosanta.com.br"
  cdoMessage.Subject = Session("assunto")

  cdoMessage.TextBody = "Nome: " & Session("nome") & vbCRLF & "E-mail: " & Session("email") & vbCRLF & "Assunto: " & Session("assunto") & vbCRLF & "Mensagem: " & Session("mensagem")

  cdoMessage.Send
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing

  Session.Abandon
%>

eu preciso de ajuda urgente.

[hargon 64]

cdoMessage.From = Session("email")

[gotaum 0]

Galera.

Pode fechar esse tópico, foi resolvido, o cliente trocou asp por php!!! :)

[hargon 64]

<_<