Hvad er der galt her
<%set connect = server.createobject(\"ADODB.Connection\")
Connect.open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & server.mappath(\"users.mdb\")
if Request.Form(\"username\") <> \"\" and request.Form(\"password\")) <> \"\" then
strUsername = cstr(Request.Form(\"username\"))
strPassword = cstr(Request.Form(\"password\"))
SQL =\"SELECT brugernavn FROM users WHERE brugernavn = \'\" & strUsername & \"\'\"
set temp = connect.execute(SQL)
if not temp.eof then
\' Brugeren er i databasen
Response.Write \"brugernavnet er optaget\"
else
\' brugeren er ikke i database, så vi indsætter ham lige :)
SQL =\"INSERT INTO users (brugernavn,password) VALUES(\'\" & strUsername & \"\',\'\" & strPassword & \"\')\"
connect.execute(SQL)
end if
set temp = nothing
connect.close
end if
%>
