hola fredo!
Antes de nada: he supuesto que la base de datos se llama bd.mdb y que se encuentra en el mismo directorio que los demás ficheros y que la tabla donde estan registrados los usuarios se llama Participantes.
Empecemos...
--------------------------------------------------------------------
Pagina
index.html --> contiene el formulario de entrada de datos
<html>
<head>
<title></title>
</head>
<body>
<center>
<b>Registro de cliente</b></span>
</center>
<form name="formRegistro" method="post" action="registro.asp">
<table width="50%" align="center">
<tr>
<td>
Nombre <input type="text" value="" name="nombre"><br>
Primer apellido <input type="text" value="" name="apellido1"><br>
Segundo apellido <input type="text" value="" name="apellido2"><br>
DNi <input type="text" value="" name="dni"><br>
Dirección <input type="text" value="" name="direccion"><br>
Código Postal <input type="text" value="" name="cp"><br>
Población <input type="text" value="" name="poblacion"><br>
Provincia <input type="text" value="" name="provincia"><br>
Teléfono <input type="text" value="" name="telefono"><br>
E-mail <input type="text" value="" name="email"><br>
</td>
</tr>
<tr> <td align="center">
<bR><input type="submit" value="Enviar"> <input type="reset" value="Borrar">
</td>
</tr>
</table>
</form>
</body>
</html>
--------------------------------------------------------------------
Pagina
registro.asp --> procesa los datos del formulario de index.asp
<% if request.form <> "" then
dim nombre, apellido1, apellido2, direccion, cp, poblacion, provincia, dni, telf, email
nombre = Request.form("nombre")
apellido1 = Request.form("apellido1")
apellido2 = Request.form("apellido2")
direccion = Request.form("direccion")
cp = Request.form("cp")
poblacion = Request.form("poblacion")
provincia = Request.form("provincia")
dni = Request.form("dni")
telefono = Request.form("telefono")
email = Request.form("email")
%>
<html>
<head> <title>Registro</title>
</head>
<body>
<% set Conexion=Server.CreateObject("ADODB.connection")
set Rs=Server.CreateObject("ADODB.Recordset")
set Rs1=Server.CreateObject("ADODB.Recordset")
COnexion.ConnectionString= "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("bd.mdb") + ";"
Conexion.open
SQL = "Select * from Participantes where dni='" & dni & "'"
Rs.open SQL,Conexion,adOpenStatic,adlockReadOnly,adCmdText
if Rs.EOF and Rs.BOF then
'No hay nadie registrado con ese dni
Rs1.open "Participantes",Conexion,adOpenKeySet,adlockOptimi stic,adCmdTable
Rs1.AddNew
Rs1("nombre") = nombre
Rs1("apellido1") = apellido1
Rs1("apellido2") = apellido2
Rs1("direccion") = direccion
Rs1("cp") = cp
Rs1("poblacion") = poblacion
Rs1("provincia") = provincia
Rs1("dni") = dni
Rs1("telefono") = telefono
Rs1("email") = email
Rs1.Update
Rs1.close
Rs.close
Conexion.close
set Rs1= nothing
set Rs = nothing
set Conexion = nothing
Response.redirect "registroOk.html"
else
'El participante ya existe
Rs.close
Conexion.close
set Rs = nothing
set Conexion = nothing
Response.redirect "registroCancelado.html"
end if
%>
</body>
</html>
<%
end if
%>
--------------------------------------------------------------------
Pagina
registroOK.html --> pagina de agradecimiento y confirmación de registro
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<CENTER>Tus datos han sido guardados correctamente. ¡Gracias por participar!</CENTER>
</BODY>
</HTML>
--------------------------------------------------------------------
Pagina
registroCancelado.html --> pagina de aviso de Usuario registrado
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<CENTER>Ya participaste. Tus datos no han sido guardados</CENTER>
</BODY>
</HTML>