formulario ASP - URGENTE
Publicado por Leo (1 intervención) el 13/04/2007 14:55:56
Ola a quien pueda ayudarme!!!!
No conozco nada de ASP, y en mi hosting colocaron un formulario ASP. Anda todo bien, solo que quiero que aparesca un codigo al recibir el email del formulario.
Osea que el formulario venga con el nombre, email, consulta y quiero agregar un numero (codigo) que sea fijo (que el visitante no tenga que escribir) y aparesca en ele email.
Paso el codigo fonte en cuestion para que lo analisen espero que alguien pueda ayudarme se los agradesco. Cualquier duda entren encontacto. GRACIAS - Leo
<%
strnome = Request.Form("Nombre")
stremail = Request.Form("E-mail")
strcomen = Request.Form("Comentarios")
mensagem = "<html>" _
& "<head></head><body>" _
& "<p>Cadastro no site XXXXXX!</font></p>" _
& "<p>" _
& "Nombre: " & strnome & "<br>" _
& "E-mail: " & stremail & "<br>" _
& "Comentário: " & strcomen & "<br>" _
& "</body></html>"
Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = "[email protected]"
objmail.to = "[email protected]"
objmail.subject = "Dados de Contato no site"
objmail.BodyFormat = 0
objmail.MailFormat = 0
objmail.body = mensagem
objmail.send
%>
<%response.redirect "obrigado.htm"%>
No conozco nada de ASP, y en mi hosting colocaron un formulario ASP. Anda todo bien, solo que quiero que aparesca un codigo al recibir el email del formulario.
Osea que el formulario venga con el nombre, email, consulta y quiero agregar un numero (codigo) que sea fijo (que el visitante no tenga que escribir) y aparesca en ele email.
Paso el codigo fonte en cuestion para que lo analisen espero que alguien pueda ayudarme se los agradesco. Cualquier duda entren encontacto. GRACIAS - Leo
<%
strnome = Request.Form("Nombre")
stremail = Request.Form("E-mail")
strcomen = Request.Form("Comentarios")
mensagem = "<html>" _
& "<head></head><body>" _
& "<p>Cadastro no site XXXXXX!</font></p>" _
& "<p>" _
& "Nombre: " & strnome & "<br>" _
& "E-mail: " & stremail & "<br>" _
& "Comentário: " & strcomen & "<br>" _
& "</body></html>"
Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = "[email protected]"
objmail.to = "[email protected]"
objmail.subject = "Dados de Contato no site"
objmail.BodyFormat = 0
objmail.MailFormat = 0
objmail.body = mensagem
objmail.send
%>
<%response.redirect "obrigado.htm"%>
Valora esta pregunta
0