Yo te recomendaría que mejor copies el código siguiente, y en negritas estará lo que debas acomodar para tu web:
<%
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
' Configura aquí tu db
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("
db_1.mdb"))
strSQL = "select
nombre from
usuarios where nombre = '"& Request.Form("
nombre") &"'"
Set objRS = oConn.Execute(strSQL)
if (objRS.Eof) then
strSQL = "insert into
usuarios (nombre, clave, usuario) values ('"& Request.Form("
nombre") & "' , '"& Request.Form("
clave") & "' , '"& Request.Form("
usuario") & "')" oConn.Execute(strSQL)
Response.Redirect("
login.asp")
else
Response.Write("Ya existe un usuario con ese nombre, vuelva al <a href=
form.asp>formulario</a>")
end if
%>
En tu formulario deberás tener lo que es nombre, usuario y clave...igualmente en tu base de datos...Espero que te sirva!