Log ind script

Hejsa,

Jeg har forsøgt at lave mit eget log ind system, men det driller.

'---------------------------------------------------------------------------------
if request.QueryString("cmd") = "logind_tjek" then

strDriver1 = "{Microsoft Access Driver (*.mdb)}"
strPlacement1 = server.MapPath("../../database/main.mdb")
set objConn1 = server.CreateObject("ADODB.Connection")
set objRec1 = server.createobject("ADODB.recordset")
objConn1.Open ("DRIVER="& strDriver1 &"; DBQ="& strPlacement1)

    strEmail = request.form("email")
    strAdgangskode = request.form("adgangskode")
   
    If strEmail = "" then
    Response.Redirect "jobsog.asp?cmd=logind&msg=De skal indtaste en Email adresse!</font>&site_nav=" & request.QueryString("site_nav") & ""
    End If
   
    If strAdgangskode = "" then
    Response.Redirect "jobsog.asp?cmd=logind&msg=De skal indtaste en Adgangskode adresse!</font>&site_nav=" & request.QueryString("site_nav") & "&showemail=" & strEmail & ""
    End If
   
'Tjekker Email adresse
    strSQL1 = "SELECT * FROM personale WHERE email = '" & Trim(Replace(strEmail,"'","")) & "'"
    objRec1.Open strSQL1, objConn1, 3, 1, 1
    If objRec1.BOF Or objRec1.EOF Then
    Response.Redirect "jobsog.asp?cmd=logind&msg=De har indtastet forkert Email adresse!</font>&site_nav=" & request.QueryString("site_nav") & ""
    End If
    objRec1.close
    objConn1.close
   
'Tjekker adgangskode
strDriver = "{Microsoft Access Driver (*.mdb)}"
strPlacement = server.MapPath("../../database/main.mdb")
set objConn = server.CreateObject("ADODB.Connection")
set objRec = server.createobject("ADODB.recordset")
objConn.Open ("DRIVER="& strDriver &"; DBQ="& strPlacement)

    strSQL = "SELECT * FROM personale WHERE adgangskode = '" & Trim(Replace(strAdgangskode,"'","")) & "'"
    objRec.Open strSQL, objConn, 3, 1, 1
    If Not (objRec.BOF Or objRec.EOF) Then
   
        strAnsat = objRec("Ansat")
        strFornavn = objRec("Fornavn")
        strEfternavn = objRec("Efternavn")
        strNummer = objRec("nr")
        strKalender = objRec("kalender")
        strForholdsordre = objRec("forholdsordre")
       
        Session("ansat") = strAnsat
        Session("fornavn") = strFornavn
        Session("efternavn") = strEfternavn
        Session("nummer") = strNummer
        Session("kalender") = strKalender
        Session("forholdsordre") = strForholdsordre
        session("offentlig_godkendt") = "Ja"

       
    Response.Redirect "jobsog.asp?cmd=ansat&sidemenu=ansat&site_nav=MEDARBEJDERE &raquo; VELKOMMEN"
    else
    Response.Redirect "jobsog.asp?cmd=logind&msg=De har indtastet forkert Adgangskode!</font>&site_nav=" & request.QueryString("site_nav") & "&showemail=" & strEmail & ""
    End If
   
   
end if

Og her er min include fil til sikkerhedstjek:


'SIKKERHEDS TJEK
'If session("nummer") = "" then
'response.redirect "Jobsog.asp?cmd=logind&msg=<font color=red>Du er ikke logget ind!</font>"
'end if
If not Session("offentlig_godkendt") = "Ja" then
response.redirect "Jobsog.asp?cmd=logind&msg=<font color=red>Du er ikke logget ind!</font>"
end if