hvorfor duer dette ikke

Set Conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../System.mdb")
Conn.Open DSN


SQL = "Select * from Brugere"
set rs = Conn.Execute(SQL)
strBruger = rs("bruger")
strNavn = server.HtmlEncode(Request.Form("navn"))
if Ucase(strNavn) = Ucase(strBruger) then
response.write "Brugernavnet er optaget, vælg venligst et andet <a href=java script:history.go(-1)>tilbage</a>"