Jeg går ud fra
at du har databaseforbindelse m.m.
at tabellen hedder BRUGERE
at feltet hedder BRUGERNAVN og KODEORD
at databasen er en Access database ved navn DATABASE.MDB
<%
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("DATABASE.mdb")
objConn.Open(strConn)
sql="Select * from BRUGERE where BRUGERNAVN='" & request.form("brugernavn") & "'"
Set RS = objConn.Execute(strSQL)
if rs.eof then 'hvis der ikke kommer et resultat fra databasen, der matcher
response.write("Brugernavn ledigt")
sql2="insert into brugere (brugernavn, kodeord) values ('" & request.form("brugernavn") & "','" & request.form("kodeord") & "')"
objConn.Execute(sql2)
else
response.write("Brugernavn optaget")
end if
%>