' SQL forespørgsel strSQL = "Select * from medlemmer where brugernavn='" & brugernavn_in & "' AND password='" & password_in & "'" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL) If Request.Form("brugernavn") = rs(brugernavn) AND Request.Form("password") = rs(password) Then ...
brugernavn_in er dette navnet på tekst boksen i din form? Men her er: If Request.Form("brugernavn") = rs(brugernavn.... men her er If ...Form("brugernavn")... skal ikke være brugernavn_in
' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/database.mdb") Conn.Open DSN
' SQL forespørgsel strSQL = "Select * from medlemmer where brugernavn='" & brugernavn_in & "'" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL)
If Request.Form("password") = rs(password) then
' Hvis korrekt sættes session til JA Session("login") = "JA" Session("brugernavn") = Request.Form("brugernavn") Session.Timeout = 120 Response.Write "<p><a href='dokument.asp'>Link til beskyttet fil</a></p>" Response.Redirect "medindex.asp?inc=0" End if
Else ' dvs. hvis der ikke er poster med betingelsen ' 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.Redirect "index.asp?inc=53" end if
' Luk databaseforbindelse Conn.Close Set Conn = Nothing end if %>
det er denne linie den påstår: ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/dologin.asp, line 31
Dvs. at noget må være tomt. Men jeg kan ikke finde fejlen. Jeg har dobbelt dobbelt tjekket at der er skrevet rigtigt. Kan jeg teste det på en eller anden måde.
Synes godt om
Slettet bruger
09. november 2002 - 11:40#17
den holder ikke tzr kanman sagtens...
men angående at dit password er tom, så lave det tjek jeg bad dig om, skulle gerne forhindre dette
' SQL forespørgsel strSQL = "Select * from medlemmer where brugernavn='" & brugernavn_in & "'" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL)
if not rs.eof then
If password_in = rs(password) then
' Hvis korrekt sættes session til JA Session("login") = "JA" Session("brugerna
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.