Intern 500-serverfejl

Hejsa

Jeg har dette loginscript, som giver en 500-serverfejl og jeg kan ikke finde ud af hvad fejlen er...

Nogen der kan hjælpe??

<%
IF request.querystring("oprettet") = "ja" AND request.querystring("godkendt") = "nej" Then
  Response.redirect "default.asp?godkendt=fejl"

ELSEIF request.querystring("bruger") = "fejl" Then
  Response.redirect "default.asp?bruger=fejl"

ELSEIF request.querystring("oprettet") = "ja" AND request.querystring("pass") = "fejl" Then
  Response.redirect "default.asp?pass=fejl"

ELSE
%>
<!--#include file="template_login.html"-->
<div class="content">
<!--#include file="connection.inc"-->
<%
strSQL = "Select * From Brodre WHERE brugernavn = '" & request("un") & "'"
Set rs = Conn.Execute(strSQL)

if not rs.eof then
  if rs("password") = session("pw") then
    loginTjek = true
  else
    Session("login") = "NEJ"
    Session.Timeout = 30
    Conn.Close
    Set Conn = Nothing
    Response.Redirect "login.asp?oprettet=ja&pass=fejl"
  end if
else
  Session("login") = "NEJ"
  Session.Timeout = 30
  Conn.Close
  Set Conn = Nothing
  Response.Redirect "login.asp?bruger=fejl"
end if

if loginTjek = true AND rs("RangID") =< "3" then
  Session("login_admin") = "JA"
  Session("bruger") = rs("brugernavn")
  Session("navn") = rs("Fornavn") & " " & rs("Efternavn")
  Session("ID") = rs("ID")
  Session.Timeout = 60
  If rs("Login") = "" Then
  Lastlogin = "1. login siden 23/7-07"
  Login = now()
  Else
  Lastlogin = rs("Login")
  Login = now()
  End if
  strSQL = "Update Brodre SET "
  strSQL = strSQL & "Lastlogin= '" & Lastlogin & "', "
  strSQL = strSQL & "Login= '" & Login & "'"
  strSQL = strSQL & " WHERE ID = " & rs("ID")
  Conn.Execute(strSQL)
  Conn.Close
  Set Conn = Nothing
  Response.redirect "news.asp"
elseif loginTjek = true AND rs("Godkendt") = "Ja" then
  Session("login") = "JA"
  Session("bruger") = rs("brugernavn")
  Session("navn") = rs("Fornavn") & " " & rs("Efternavn")
  Session("ID") = rs("ID")
  Session.Timeout = 30
  strSQL = "Update Brodre SET "
  strSQL = strSQL & "Lastlogin= '" & now() & "'"
  strSQL = strSQL & " WHERE ID = " & rs("ID")
  Conn.Execute(strSQL)
  Conn.Close
  Set Conn = Nothing
  Response.redirect "news.asp"
elseif loginTjek = true AND rs("Godkendt") = "Nej" AND rs("RangID") = "5" then
  Session("login") = "JA"
  Session("bruger") = rs("brugernavn")
  Session("navn") = rs("Fornavn") & " " & rs("Efternavn")
  Session("ID") = rs("ID")
  Session.Timeout = 30
  strSQL = "Update Brodre SET "
  strSQL = strSQL & "Lastlogin= '" & now() & "'"
  strSQL = strSQL & " WHERE ID = " & rs("ID")
  Conn.Execute(strSQL)
  Conn.Close
  Set Conn = Nothing
  Response.redirect "news.asp"
elseif loginTjek = true AND rs("Godkendt") = "Nej" then
  Session("login") = "NEJ"
  Session.Timeout = 30
  Conn.Close
  Set Conn = Nothing
  Response.Redirect "login.asp?oprettet=ja&godkendt=nej"
else
  Session("login") = "NEJ"
  Session.Timeout = 30
  Conn.Close
  Set Conn = Nothing
  Response.Redirect "login.asp?bruger=fejl"
end if

Conn.Close
Set Conn = Nothing

END IF
%>