Hace algun tiempo queria hacer algo como esto y lo concgui con un poco de ayuda aqui te pongo el codigo espero que te sirva:
<html>
<head>
<script language="javascript">
function validacion(formulario) {
var er_nombre = /^([a-z]|[A-Z]|á|é|í|ó|ú|ñ|ü|\s|\.|-)+$/ //comprueba campo de nombre
if(!er_nombre.test(formulario.nombre.value)) {
alert('Contenido del campo NOMBRE no válido o esta vacio.')
return false
}
return true
}
</script>
</head>
<body>
<%
If Request.Form("action") = "" Then
%>
<form onsubmit="return validacion(this);return enviado()" method="POST" action="registro.asp">
<input type=hidden name=action value="ingresa">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="278" height="101" id="AutoNumber1">
<tr>
<td width="278" height="30" bgcolor="#808080">
<p align="center">
<font face="Arial" style="font-size: 9pt; font-weight: 700" color="#FFFFFF">
Por favor introduzca su nombre:</font></td>
</tr>
<tr>
<td width="278" height="43">
<p align="center"><input type="text" name="nombre" size="20"></td>
</tr>
<tr>
<td width="278" height="28">
<p align="center"><input type="submit" value="Enviar" name="B1"></td>
</tr>
</table>
</center>
</div>
</form>
<%
Else
dim rs
path = Server.MapPath(".") & "\BD.mdb"
Set dbCon = Server.CreateObject("ADODB.Connection")
dbCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & path
nombre= trim(Request.Form("nombre"))
ip= Request.ServerVariables("Remote_Addr")
dbCon.Execute("INSERT INTO usuario(nombre, fecha, hora, ip) VALUES('"&nombre&"','"&date()&"', '"&time()&"', '"&ip&"')")
dbCon.Close
Set dbCon= Nothing
Response.Redirect "default.asp?username=" & nombre
End If
%>
</body>
</html>
Incluso manda la fecha y la hora en que mando el formulario solo te dejo el trabajo de realizar la base datos en access preferiblemente 97, ha y en el reponse.redirect colocala la pagina que quieres que te redireccione despues de haber enviado el formulario y otras modificaciones que tienes que hacerle pero eso lo dejo en tus manos espero y te sirva.......
