Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Anderson Araujo

Formulario Flash + ASP (com CDOSYS)

Por , em ASP Clássico

Recommended Posts

Anderson Araujo    0

Anderson Araujo
Postado

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

 

Caros programadores,

 

 

Estou com uma página em Flash

www.alexandrevogler.com

e necessito de uma programação com ASP e mais o componente CDOSYS

vide http://site.locaweb.com.br/suporte/Faq/Faq...oCategoria=4770

 

para o link contato do referido site(www.alexandrevogler.com)!

A página começa a ser divulgada amanhã, e não estou conseguindo acertar uma programação(detalhe: minha seara é o design gráfico!)

por favor, aguardo um help!

 

Ah! o plano na Locaweb "Profissional 1" no qual esta sediado o site, não aceita .PHP tao pouco CDONTS!

 

Detalhe: contrariamente ao informado pela Locaweb, um colega do forum comentou ter conseguido criar um formulario com sucesso atraves do seguinte codigo (para o qual, que respectiva ação devo criar no botão enviar do filme flash?Ah! o formulario esta dentro de um Movie Clip!))

 

ASP
<%

 

 

 

Option Explicit

 

 

 

Dim var_status, var_nome, var_mail, var_conteudo, var_to, EnviarMail, MsgBody

 

 

 

var_nome = Request.QueryString("nome")

 

var_mail = Request.QueryString("email")

 

var_conteudo = Request.QueryString("msg")

 

var_to = "ancorar@oi.com.br"

 

 

 

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

 

EnviarMail.To = var_to

 

EnviarMail.From = var_mail

 

EnviarMail.Subject = "Novo Contato de seu Site"

 

MsgBody = "<html>" _

 

& "<head>" _

 

& "</head>" _

 

& "<body bgcolor=""#FFFFFF"">" _

 

& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu uma nova mensagem de seu site</p>" _

 

& "<p aligh=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><br>NOME: <b>" & var_nome & "</b>" _

 

& "<br>E-MAIL: <b>" & var_mail & "</b>" _

 

& "<p aligh=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><br>CONTEÚDO:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_conteudo & "</b></font></p>" _

 

& "</body>" _

 

& "</html>"

 

EnviarMail.Body = MsgBody

 

EnviarMail.Importance = 1

 

EnviarMail.BodyFormat = 0

 

EnviarMail.MailFormat = 0

 

var_status = EnviarMail.Send

 

 

 

Set EnviarMail = Nothing

 

 

 

 

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Wander Lambert    0

Wander Lambert
Postado

Olá Anderson,

Experimente o código abaixo no arquivo que você chama dentro do Flash:

ASP
<%

Dim mail

Dim msgTxt

Dim subject

Dim var_nome, var_mail, var_conteudo

 

var_nome = Request.QueryString("nome")

var_mail = Request.QueryString("email")

var_conteudo = Request.QueryString("msg")

subject = "Novo Contato de seu Site"

msgTxt = "<html><head></head><body bgcolor='#FFFFFF'><p align='center'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>Você recebeu uma nova mensagem de seu site</p><p aligh='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><br>NOME: <b>"

msgTxt = msgTxt & var_nome

msgTxt = msgTxt & "</b><br>E-MAIL: <b>"

msgTxt = msgTxt & var_mail

msgTxt = msgTxt & "</b><p aligh='center'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><br>CONTEÚDO:</font></p><p align='center'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><b>"

msgTxt = msgTxt & var_conteudo

msgTxt = msgTxt & "</b></font></p></body></html>"

 

Set mail = Server.CreateObject("CDO.Message")

mail.To       = "ancorar@oi.com.br"

mail.From     = Request("var_mail")

mail.Subject  = subject

mail.HTMLBody = msgTxt

   

mail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 

mail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

 

mail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

 

mail.Configuration.Fields.Update

 

mail.send

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito