Login probs

Den kodelinie er heller ikke gyldig syntax. Prøv med

If Request.Form("login") = rs("username") AND Request.Form("password") = rs("password") Then


og så skal du nok også lige huske at afvikle din sql. Hvis du har flere brugere i databasen, skal du også have en "where"-betingelse på


login = Request.Form("login")
login = Replace(login, "'", "''") 'forhindrer nogen i at luske sig igennem dit system

strSQL = "Select * From artikel where username='" & login & "'"
Set rs = Conn.Execute(strSQL)

OG du skal huske at kontrollere at rs.EOF ikke er True inden du laver ovenstående if-sætning

<%

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

strSQL = "Select * From login where username='" & login & "'"
Set rs = Conn.Execute(strSQL)

If Request.Form("login") = rs("username") AND Request.Form("password") = rs("password") Then

login = Request.Form("login")
login = Replace(login, "'", "''")

' Hvis korrekt sættes session til JA
  Session("login") = "JA"
  Session.Timeout = 30
  Response.Write "<h1>Du er nu logget korrekt ind</h1>"
  Response.Write "<p><a href='dokument.asp'>Link til beskyttet fil</a></p>"

Else

' Hvis forkert sættes ingen session til NEJ
  Session("login") = "NEJ"
  Session.Timeout = 30
  Response.Write "<h1>Du er IKKE logget korrekt ind</h1>"
  Response.Write "<p><a href='dokument.asp'>Link til beskyttet fil</a></p>"

End If


Conn.Close
Set Conn = Nothing
%>




???

<%

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

strSQL = "Select * From login where username='" & login & "'"
Set rs = Conn.Execute(strSQL)


fundet = false
While NOT rs.EOF OR NOT fundet
If Request.Form("login") = rs("username") AND Request.Form("password") = rs("password") Then


login = Request.Form("login")
login = Replace(login, "'", "''")

  Session("login") = "JA"
  Session.Timeout = 30
  Response.Write "<h1>Du er nu logget korrekt ind</h1>"
  Response.Write "<p><a href='default_secure.asp'>Link til beskyttet fil</a></p>"

Else

  Session("login") = "NEJ"
  Session.Timeout = 30
  Response.Write "<h1>Du er IKKE logget korrekt ind</h1>"
  Response.Write "<p><a href='default_secure.asp'>Link til beskyttet fil</a></p>"
 

fundet = true
  End if
  rs.MoveNext
wend

Conn.Close
Set Conn = Nothing
%>


Så få jeg fejl her:

If Request.Form("login") = rs("username") AND Request.Form("password") = rs("password") Then

<%

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

login = Request.Form("login")
login = Replace(login, "'", "''")

strSQL = "Select * From login where username='" & login & "'"
Set rs = Conn.Execute(strSQL)


fundet = false

If Not rs.EOF Then
    If Request.Form("login") = rs("username") AND Request.Form("password") = rs("password") Then
        fundet = True
    End If
End If


If fundet Then

  Session("login") = "JA"
  Session.Timeout = 30
  Response.Write "<h1>Du er nu logget korrekt ind</h1>"
  Response.Write "<p><a href='default_secure.asp'>Link til beskyttet fil</a></p>"

Else

  Session("login") = "NEJ"
  Session.Timeout = 30
  Response.Write "<h1>Du er IKKE logget korrekt ind</h1>"
  Response.Write "<p><a href='default_secure.asp'>Link til beskyttet fil</a></p>"

End If


Conn.Close
Set Conn = Nothing
%>

Danke der var en lille fejl som jeg selv rettet ;) Men ellers tak
If fundet Then
=
If fundet = True Then

Laver du et svar ?

ok. Når man blot skriver

If fundet Then

er det underforsået at fundet skal være True