[_dago_]

Estou com um grande problema.
Estava fazendo um site e nele não tem portabilidade para PHP então
ele diz assim
que para fazer um formulario tem que ser em ASP

"Para criar um formulário do tipo (Falenosco) em seu site, será necessário utilizar omponente ASPmail para envio de e-mail, na página de dúvidas, acessando o link abaixo, você terá o exemplo, para o ASPmail, este exemplo é apenas de mera ilustração, pois os códigos fornecidos em nosso site, terão ser adequados a programação existente, na qual a Nomer.com não oferece este tipo de suporte."

ai eu não sei trabalhar
pq o meu forte é php pq ja tenho um aqui que so troco as informações e da tudo certo
mas agora em ASP
ai colocou a corda no meu pescoço
o meu codigoo em PHP
é esse aqui

ele recebe dados do flash

<?php
@extract($_POST);
$recipient = "pamplona_3@hotmail.com";
$subject = "Contato Delano Imoveis";
$msg = "Nome: $nome\nemail: $email\nTelefone: $telefone\nMensagem: $mensagem";
$mailheaders = "From: $Email";

mail("$recipient", "$subject", "$msg", "$mailheaders");
header("location: pagina.htm");

?>


no site de suporte la do servidor do meu cliente tem uma programação assim

<%
if request("botao") = "enviar" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.nomer.com.br"
Mailer.FromName = request.form("nome")
Mailer.FromAddress = request.form("emailde")
Mailer.AddRecipient "E-mail", "seu_nome@seudominio.com.br"
Mailer.Subject = request.form("assunto")
Mailer.BodyText = request.form("mensagem")
Mailer.ContentType = "text/html"
if Not Mailer.SendMail then
Response.Write "0 E-MAIL NÃO FOI ENVIADO!"
else
Response.Write "E-MAIL ENVIADO COM SUCESSO!"
end if
response.end
Set Mail = nothing
end if
%>


eai será que é a mesma coisa ??
como eu resolvo esse problema o negocio é que tem que receber os dados do flash depois mandar para um e-mail


ok
valeu!!

[_dago_]

Achei um codigo em asp

que pode me ajudar


alguem pode me dizer se isso aqui esta correto?


<%
'
' FLASHMAIL 1.0
'
' Autores:
' Kali Romiglia (http://www.romiglia.com)
' Miguel Mora (http://www.prodigia.com)
' DUDAS O PREGUNTAS A KALI@ROMIGLIA.COM

'
' INSTRUCCIONES ::
'
' Este archivo debe ir en la misma carpeta donde este el swf.
'
' Solo debes cambiar tres variables::
' 1_ Destino = "tuemail@tudominio.com"
' 2_ servidor = "mail.tuservidor.com" si no sabes cual es, simplemente contactate con tu proveedor
' 3_ titulo = "el titulo que aparecerá en el email"
'
'

Destino = "kali@romiglia.com"
servidor = "mail.dominiosweb.net"
titulo = "Formulario de contacto"


'Asignamos los valores recibidos del formulario a las variables
'Estas variables deben estar en el formulario dentro del swf
Origen = Request("email")
nombre = Request("nombre")
empresa = Request("empresa")
Mensaje = Request("mensaje")



'Creamos una instancia del objeto ASPMAIL
Set Mail = Server.CreateObject("Persits.MailSender")


' Creamos el cuerpo del mensaje
strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"
strBody = strBody & "Mi nombre es: "
strBody = strBody & "<b>" & nombre & "</b><br><br>"
strBody = strBody & "Mi e-mail es: "
strBody = strBody & "<b>" & Origen & "</b><br><br>"
strBody = strBody & "Trabajo en la empresa: "
strBody = strBody & "<b>" & empresa & "</b><br><hr><br>"
strBody = strBody & "Mi mensaje es: <br>"
strBody = strBody & Mensaje & chr(10)
strBody = strBody & "</font>"


'Asignamos las propiedades al objeto con ASPMAIL
Mail.Host = servidor
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.From = "miguel@dominiosweb.net"
Mail.FromName = Email ' Opcional
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino

On Error Resume Next

Mail.Send


' El control del error es con ASPMAIL

If Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description
Else
Response.Write "popup.mensaje=Mensaje enviado correctamente."
End If

'Destruimos el objeto con aspmail
Set Mail = Nothing

%>

[berseck]

Dúvidas de ASP é em ASP né não flash....

Movido!
De flash ASP

Abraços

[_dago_]

Destino = "kali@romiglia.com"
servidor = "mail.dominiosweb.net"
titulo = "Formulario de contacto"



onde eu consigo o servidor do hotmail

estou colocando o meu e-mail
por exemplo:
Destino = "dago@hotmail.com"
servidor = "mail.???????"
titulo = "Formulario de contrato"


eai onde eu consigo isso???

[jonathandj]

<%
if request.ServerVariables("REQUEST_METHOD") = "POST" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.delanoimoveis.com.br"
Mailer.FromName = Request("nome")
Mailer.FromAddress = Request("email")
Mailer.AddRecipient "pamplona_3@hotmail.com", "pamplona_3@hotmail.com"
Mailer.Subject = "Contato Delano Imoveis"
Mailer.BodyText = "Nome: " & Request("nome") & "<br />E-mail: " & Request("email") & "<br />Telefone: " & Request("telefone") & "<br />Mensagem: " & Request("mensagem") & "<br />"
Mailer.ContentType = "text/html"
if Not Mailer.SendMail then
Response.Write "0 E-MAIL NÃO FOI ENVIADO!"
else
Response.Write "E-MAIL ENVIADO COM SUCESSO!"
end if
Set Mail = nothing
end if
response.end
%>

[xanburzum]

o codigo esta dando erro ?!?!
qual sua duvida...
existem varios exemplos no laboratorio de script, dê uma pesquisada...