Ang. administrationssystem

If Request.Form("Brugernavn") <> "" Then
    Dim strBrugernavn
    strPassword = Trim(Replace(request.form("Brugernavn"),"'","''" ))
--->end if
If Request.Form("Kodeord") <> "" Then
    Dim strPassword
    strPassword = Trim(Replace(request.form("Kodeord"),"'","''" ))
--->end if

Prøv om ikke det skulle gøre det?

/hak

Nu får jeg fejlen:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Brugernavn = '' & Where Kodeord = '''.

/administration/logon_check.asp, line 17

Koden ser sådan ud:

strSQL = "Select * from T_Admin_Logon Where Brugernavn = '" & strBrugernavn & "' & Where Kodeord = '" & strKodeord & "'"

Efter jeg har skrevet:

If Request.Form("Brugernavn") <> "" Then
    Dim strBrugernavn
    strPassword = Trim(Replace(request.form("Brugernavn"),"'","''" ))
--->end if
If Request.Form("Kodeord") <> "" Then
    Dim strPassword
    strPassword = Trim(Replace(request.form("Kodeord"),"'","''" ))
--->end if

Kommer den ikke op med nogle fejl, MEN... Selvom jeg skriver det rigtige brugernavn og kodeord bliver jeg ikke logget ind!?!

Nu ser min fil sådan ud:

<%
If Request.Form("Brugernavn") <> "" Then
    Dim strBrugernavn
    strPassword = Trim(Replace(request.form("Brugernavn"),"'","''" ))
    End If
If Request.Form("Kodeord") <> "" Then
    Dim strPassword
    strPassword = Trim(Replace(request.form("Kodeord"),"'","''" ))
    End If

    Set Conn = Server.CreateObject("ADODB.Connection")
    ConnectionStreng = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../db/db.mdb")
    Conn.Open ConnectionStreng

    strSQL = "Select * from T_Admin_Logon Where Brugernavn = '" & strBrugernavn & "' & Kodeord = '" & strKodeord & "'"
    Set rs = Conn.Execute(strSQL)

    If Not (rs.BOF Or rs.EOF) Then
    Session("Id") = rs("Id")
    Session("Brugeradgang") = True
    Response.redirect "default.asp"
    End If
   

    strSQL_Log_Fejl = "Insert into T_Logon_Fejl (Brugernavn, Kodeord, Ip) values('" & Request.Form("Brugernavn") & "', '" & Request.Form("Kodeord") & "', '" & Request.ServerVariables("REMOTE_HOST") & "')"
    Set rs_Log_Fejl = Conn.Execute(strSQL_Log_Fejl)

    Conn.Close
    Set Conn = Nothing

    Response.redirect "logon.asp"
%>

Jeg har tjekket min database og fandt ud af at den sætter det brugernavn + kodeord, som jeg skrev, ind i T_Logon_Fejl og det skal den kun gøre hvis det er forkert! Hvad er der galt? :/

ConnectionStreng = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../db/db.mdb")

Skal ændres til:

ConnectionStreng = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Mappen/DATABASEN.mdb")

Husk at ændre mappen og databasen! ;)