<%@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>