<%@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 = "[email protected]"<----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>