'init
set conn = server.createobject("adodb.connection")
conn.open "Provider=Microsoft.JET.ADODB.4.0;Data Source=" & server.mappath("data.mdb")
'populera variablar med username och password
user = replace(request.form("user"),"'","''")
pass = replace(request.form("pass"),"'","''")
'kolla ifall användaren redan finns
SQL = "SELECT * FROM [users] WHERE [user] = '" & user
set rs1 = conn.execute(SQL)
'om det redan finns en med samma namn, skriv ut meddelande, annars genomför tillägget
if not rs1.eof then
response.write "Användaren finns redan!"
else
conn.execute("INSERT INTO users ([user],[pass]) VALUES ('" & user & "','" & pass & "'),,128
response.write "Användaren " & user & " skapad!"
end if
'förstör objekt
set rs1 = nothing
set conn = nothing