Intern 500-serverfejl
HejsaJeg 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
%>