Tipico Formulario

gito · #1 (**permalink**) 19/04/2007, 10:26

Hola me gustaria que me ayudaseis a hacer un formulario, el tipico formulario donde rellenar el nombre, el email, y los comentarios del visitante, y que me llegue a mi direccion de correo. en ASP.
Gracias si alguien me puede echar una mano

Shiryu_Libra · #2 (**permalink**) 19/04/2007, 18:18

algo similar a esto???

Cita:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim ya
ya=0
if request.QueryString("rcd")=1 then
var1=request.Form("nombre")
var2=request.Form("email")
var3=request.Form("coments")

Set con = Server.CreateObject("ADODB.Connection")
strconn="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

con.Open strconn

sql= "INSERT INTO tabla(campo1,campo2,campo3)"
sql = sql & "VALUES('"&var1&"', '"&var2&"', '"&var3&"')"

con.Execute(sql)
if Err=0 then ya=1
end if
%>
<html>
<head>
</head>
<body>
<%if ya=0 then%>
<form method="post" action="comentarios.asp?rcd=1">
<input type="hidden" value="rcd" id="metodo" />
<table>
<tr><td><label>Nombre</label></td><td><input type="text" id="nombre" /></td></tr>
<tr><td><label>Email</label></td><td><input type="text" id="email" /></td></tr>
<tr><td><label>Comentarios</label></td><td><input type="text" id="coments" /></td></tr>
<tr><td colspan="2"><input type="submit" value="enviar" />
<input type="reset" value="Limpiar" /></td></tr>
</table></form>
<%else%>
<h1>Gracias por tus comentarios. regresa pronto</h1>
y pones un enlace, ya sea para tu pagina principal<br />
<a href="comentarios.asp">sin no redirecciona de click aki por favor</a><br />
pero tambien puedes poner un redirect<br />
Response.AddHeader "Refresh", "10; comentarios.asp"<br />
hacia tu pagina de inicio<br />
<%
Response.AddHeader "Refresh", "5; comentarios.asp"
ya=0
%>
<%end if%>
</body>
</html>

solo cambia las direcciones a las que ocupas tu, recuerda que debes escribir correctamente tu direccion de la base de datos

suerte

gito · #3 (**permalink**) 20/04/2007, 02:18

y donde pongo mi direccion de correo para que me llegun los meils??

Shiryu_Libra · #4 (**permalink**) 20/04/2007, 02:30

me confundi en la lectura... mencionaste EMAIL, no se donde andaba

ok, en ves de guardar a la base de datos, lo sustituiremos por el envio del correo

algo similar a esto???

Cita:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim ya
ya=0
if request.QueryString("rcd")=1 then
var1=request.Form("nombre")
var2=request.Form("email")
var3=request.Form("coments")

Option Explicit
Dim ObjetoMail
Set ObjetoMail=CreateObject("CDO.Message")
ObjetoMail.To = "pappland@gmail.com"<----TU CORREO
ObjetoMail.From = VAR2 <<-----de quien
ObjetoMail.Subject = "prueba de envio por asp" <<---EL TEMA QUE REQUIERAS
ObjetoMail.HTMLBody = VAR3 <<---AGREGA TODOS LOS COMENTARIOS
ObjetoMail.Send
Set ObjetoMail=Nothing

if Err=0 then ya=1
end if
%>
<html>
<head>
</head>
<body>
<%if ya=0 then%>
<form method="post" action="comentarios.asp?rcd=1">
<input type="hidden" value="rcd" id="metodo" />
<table>
<tr><td><label>Nombre</label></td><td><input type="text" id="nombre" /></td></tr>
<tr><td><label>Email</label></td><td><input type="text" id="email" /></td></tr>
<tr><td><label>Comentarios</label></td><td><input type="text" id="coments" /></td></tr>
<tr><td colspan="2"><input type="submit" value="enviar" />
<input type="reset" value="Limpiar" /></td></tr>
</table></form>
<%else%>
<h1>Gracias por tus comentarios. regresa pronto</h1>
y pones un enlace, ya sea para tu pagina principal<br />
<a href="comentarios.asp">sin no redirecciona de click aki por favor</a><br />
pero tambien puedes poner un redirect<br />
Response.AddHeader "Refresh", "10; comentarios.asp"<br />
hacia tu pagina de inicio<br />
<%
Response.AddHeader "Refresh", "5; comentarios.asp"
ya=0
%>
<%end if%>
</body>
</html>

verifica los comentarios que te agregue en la parte de la funcion, otra cosa que debes tomar en cosideracion es la evaluacion del correo electronico, ya que de otra manera no te enviaria bien los correos...

pasate por javascript, no recuerdo que POST tenia ese tipo de evaluacion

suerte

gito · #5 (**permalink**) 20/04/2007, 02:32

ok, muchas gracias creo que lo entiendo..... en cuanto tenga tiempo para ponerme con ello, si me surgen dudas, escribire... jeje...

Gracias de verdad

Shiryu_Libra · #6 (**permalink**) 20/04/2007, 02:37

buena practica