Formulario en Flash o FrontPage
Hola, requiero ayuda desesperadamente, a ver si me puedes ayudar. Fíjate que necesito programar un formulario (que puede ser en Flash o en FrontPage) pero como desconozco de programación php, cgi, asp, etc. No se como echarlos a andar (bueno a trabajar...) y aunque ya los tengo echos en ambos todavía no entiendo... Por ejemplo en Flash, no se que programarle para que me envíe los datos del formulario a correo electrónico, y en FrontPage de plano tampoco se como configurar el formulario, ya que me pide datos que desconozco.
Tenme un poco de paciencia y echame la mano ya que realmente la necesito, Gracias!
Milo,
Tenme un poco de paciencia y echame la mano ya que realmente la necesito, Gracias!
Milo,
1 Respuesta
Respuesta de mimo
1
Más fácil explicarlo en frontpage (html).
en el "action" del form pones "action = enviacorreo.asp" el metodo de envio sera POST.
creas un fichero enviacorreo.asp con el siguiente codigo:
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Confirmacion de envio de Datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="500">
/*COMPROBACION DE CONTENIDO EN DOS CAMPOS (PUEDEN SER LOS QUE QUIERAS)
<% If Request.Form("NOMBRE")<>"" And Request.Form("APELLIDOS")<>"" Then
'CREAMOS EL OBJETO MAILER DEL SERVIDOR ASP
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "NOMBRE QUE APARECERA EN EL CORREO"
Mailer.FromAddress= "DIRECCION DE CORREO DEL QUE REMITE"
Mailer.RemoteHost = "DIRECCION SMTP DE TU SERVIDOR (ej: smtp.tuservidor.com)"
Mailer.AddRecipient "NOMBRE DEL QUE RECIBE", "CORREO DONDE QUEREMOS RECIBIR"
Mailer.Subject = "ASUNTO DEL MENSAJE"
'SUSTITUIMOS LOS CAMPOS POR LOS NUESTROS DEL FORMULARIO
Mailer.BodyText = "Estimados Sres.:" & VbCrLf & _
"Estos son mis datos personales y mi consulta : " & VbCrLf & VbCrLf & _
"NOMBRE : " & Request.Form("NOMBRE") & VbCrLf & _
"APELLIDOS : " & Request.Form("APELLIDOS") & VbCrLf & _
"DIRECCION : " & Request.Form("DIRECCION") & VbCrLf & _
"CIUDAD : " & Request.Form("CIUDAD") & VbCrLf & _
"CODIGO POSTAL : " & Request.Form("CP") & VbCrLf & _
"EMPRESA : " & Request.Form("EMPRESA") & VbCrLf & _
"TELEFONO : " & Request.Form("TELEFONO") & VbCrLf & _
"MOVIL : " & Request.Form("MOVIL") & VbCrLf & _
"N.I.F. : " & Request.Form("NIF") & VbCrLf & _
"E-MAIL : " & Request.Form("EMAIL") & VbCrLf & _
"FAX : " & Request.Form("FAX") & VbCrLf & _
"ENVIAR RESPUESTA POR : " & Request.Form("ENVIO") & VbCrLf & _
"TIPO DE CONSULTA : " & Request.Form("CONSULTA") & VbCrLf & VbCrLf & VbCrLf & _
"DETALLE DE LA CONSULTA : " & VbCrLf & VbCrLf & Request.Form("DETALLE") & VbCrLf & VbCrLf & _
"Reciba un cordial saludo." & VbCrLf & VbCrLf & _
"Soporte Técnico:" & VbCrLf & _
"[email protected]" & VbCrLf & _
"E-NetDis 2002" & VbCrLf
'COMPROBAMOS QUE EL PROCESO HA SIDO CORRECTO
if Mailer.SendMail then %>
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>GRACIAS.<br>
SUS DATOS HAN SIDO ENVIADOS CORRECTAMENTE.<BR>
EN BREVE NOS PONDREMOS EN CONTACTO CON USTEDES.</b></font></p>
<p align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="LA PAGINA DE SALIDA.HTM">REGRESAR</a></font></b></p>
<% else
Response.Write "Envio de Email erroneo. A causa de " & Mailer.Response
end if
' COMPROBAMOS QUE LOS CAMPOS QUE DESEAMOS TIENEN CONTENIDO
Else ' else comprobacion de contenido %>
<p> </p>
<p align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">LO
SIENTO, PERO TIENE QUE RELLENAR TODOS LOS DATOS.<br>
POR FAVOR, VUELVA A RELLENAR EL FORMULARIO CORRECTAMENTE.</font></b><br>
</p>
<p align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif"><a href="../index.asp?pag=3"><font size="2">REGRESAR</font></a></font></b></p>
<% End If ' end comprobacion de contenido %>
<p> </p>
<hr>
</td>
</tr>
</table>
</body>
</html>
Acuérdate de borrar los comentarios :)
Y ya esta! (Si tu servidor soporta asp)
Saludos. MiMo
en el "action" del form pones "action = enviacorreo.asp" el metodo de envio sera POST.
creas un fichero enviacorreo.asp con el siguiente codigo:
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Confirmacion de envio de Datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="500">
/*COMPROBACION DE CONTENIDO EN DOS CAMPOS (PUEDEN SER LOS QUE QUIERAS)
<% If Request.Form("NOMBRE")<>"" And Request.Form("APELLIDOS")<>"" Then
'CREAMOS EL OBJETO MAILER DEL SERVIDOR ASP
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "NOMBRE QUE APARECERA EN EL CORREO"
Mailer.FromAddress= "DIRECCION DE CORREO DEL QUE REMITE"
Mailer.RemoteHost = "DIRECCION SMTP DE TU SERVIDOR (ej: smtp.tuservidor.com)"
Mailer.AddRecipient "NOMBRE DEL QUE RECIBE", "CORREO DONDE QUEREMOS RECIBIR"
Mailer.Subject = "ASUNTO DEL MENSAJE"
'SUSTITUIMOS LOS CAMPOS POR LOS NUESTROS DEL FORMULARIO
Mailer.BodyText = "Estimados Sres.:" & VbCrLf & _
"Estos son mis datos personales y mi consulta : " & VbCrLf & VbCrLf & _
"NOMBRE : " & Request.Form("NOMBRE") & VbCrLf & _
"APELLIDOS : " & Request.Form("APELLIDOS") & VbCrLf & _
"DIRECCION : " & Request.Form("DIRECCION") & VbCrLf & _
"CIUDAD : " & Request.Form("CIUDAD") & VbCrLf & _
"CODIGO POSTAL : " & Request.Form("CP") & VbCrLf & _
"EMPRESA : " & Request.Form("EMPRESA") & VbCrLf & _
"TELEFONO : " & Request.Form("TELEFONO") & VbCrLf & _
"MOVIL : " & Request.Form("MOVIL") & VbCrLf & _
"N.I.F. : " & Request.Form("NIF") & VbCrLf & _
"E-MAIL : " & Request.Form("EMAIL") & VbCrLf & _
"FAX : " & Request.Form("FAX") & VbCrLf & _
"ENVIAR RESPUESTA POR : " & Request.Form("ENVIO") & VbCrLf & _
"TIPO DE CONSULTA : " & Request.Form("CONSULTA") & VbCrLf & VbCrLf & VbCrLf & _
"DETALLE DE LA CONSULTA : " & VbCrLf & VbCrLf & Request.Form("DETALLE") & VbCrLf & VbCrLf & _
"Reciba un cordial saludo." & VbCrLf & VbCrLf & _
"Soporte Técnico:" & VbCrLf & _
"[email protected]" & VbCrLf & _
"E-NetDis 2002" & VbCrLf
'COMPROBAMOS QUE EL PROCESO HA SIDO CORRECTO
if Mailer.SendMail then %>
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>GRACIAS.<br>
SUS DATOS HAN SIDO ENVIADOS CORRECTAMENTE.<BR>
EN BREVE NOS PONDREMOS EN CONTACTO CON USTEDES.</b></font></p>
<p align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="LA PAGINA DE SALIDA.HTM">REGRESAR</a></font></b></p>
<% else
Response.Write "Envio de Email erroneo. A causa de " & Mailer.Response
end if
' COMPROBAMOS QUE LOS CAMPOS QUE DESEAMOS TIENEN CONTENIDO
Else ' else comprobacion de contenido %>
<p> </p>
<p align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">LO
SIENTO, PERO TIENE QUE RELLENAR TODOS LOS DATOS.<br>
POR FAVOR, VUELVA A RELLENAR EL FORMULARIO CORRECTAMENTE.</font></b><br>
</p>
<p align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif"><a href="../index.asp?pag=3"><font size="2">REGRESAR</font></a></font></b></p>
<% End If ' end comprobacion de contenido %>
<p> </p>
<hr>
</td>
</tr>
</table>
</body>
</html>
Acuérdate de borrar los comentarios :)
Y ya esta! (Si tu servidor soporta asp)
Saludos. MiMo
