Bugspotting - Min kode duer ikke

Nogen der kan soptte bugs i det her ??

<%


' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("main.mdb")
Conn.Open DSN

dim passfail, usefail, mailfail

mailfail = 0

if request.form("password1") != request.form("password2") then
passfail = 1
else
passfail = 0
end if


' SQL forespørgsel
strSQL1 = "Select * from users where  = '" & request.form("brugernavn") & "'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL1)


if rs.EOF then
usefail = 1
else
usefail = 0
end if

if (mailfail = 0 AND passfail = 0 AND usefail = 0) then
strSQL = "Insert into users (name, password, mail)"
strSQL = strSQL & "values(name='" & request.form("brugernavn") & "', password='" & request.form("password1") & "', mail='" & request.form("mail") & "')"

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
else
response.redirect("index.asp?m=" & mailfail & "&p=" & passfail & "&u=" & usefail)
end if
%>