Formulario

[_dago_ 0]

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_ 0]

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

 

%>

[Thiago de Oliveira Cruz 21]

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

 

Movido!

De flash http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

 

Abraços

[_dago_ 0]

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???

[jrcardozo 4]

<%

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 169]

o codigo esta dando erro ?!?!

qual sua duvida...

existem varios exemplos no laboratorio de script, dê uma pesquisada...