Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera,
sei que não aguentam mais ver esse tópico, mas tenho um site todo em flash www.andreamendes.com que tem um formulario mt simples: Nome, E-mail e Comentários.
A locaweb usa o CDOSYS, procurei milhoes de códigos na net, vou substituindo as infos mas na hora de testar meu fla, o compilador de erros diz: ERROR OPENING URL http://www.andreamendes.com/mail.asp
O formulario do flash é assim, o campo nome tem a variavel "nome", o campo email a variável "email" e o campo comentários a variável "msg", existe um campo dinamico que mostra as mensagens de envio e etc que tem a variavel "status"
Se puderem me ajudar serei mt mt grato pois sou nulo em asp.
o último código com o qual tentei é o seguinte:
Agradeço desde já.
<%
Dim mail
Dim msgTxt
Dim subject
Dim var_nome, var_email, var_mensagem
var_nome = Request.QueryString("nome")
var_mail = Request.QueryString("email")
var_mensagem = Request.QueryString("msg")
subject = "E-mail do site andreamendes.com"
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 andreamendes.com</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_email
msgTxt = msgTxt & "</b><p aligh='center'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><br>MENSAGEM:</font></p><p align='center'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><b>"
msgTxt = msgTxt & var_mensagem
msgTxt = msgTxt & "</b></font></p></body></html>"
Set mail = Server.CreateObject("CDO.Message")
mail.To = "webmaster@andreamendes.com"
mail.From = Request("var_email")
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") = "smtp.andreamendes.com"
mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
mail.Configuration.Fields.Update
mail.send
%>
Carregando comentários...
