--- title: "Skulle vilja ha en förklaring till detta och en möjlig lösning." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/58392-skulle-vilja-ha-en-förklaring-till-detta-och-en-möjlig-lösning" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "medialabs" published: "2002-11-07T22:01:11.000Z" updated: "2002-11-08T15:05:42.000Z" replies: 14 views: 303 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/58392-skulle-vilja-ha-en-förklaring-till-detta-och-en-möjlig-lösning" --- # Skulle vilja ha en förklaring till detta och en möjlig lösning. ## #1 — medialabs, 2002-11-07T22:01Z Det är så att när man har loggat in på sidan så blir det så här: index.asp?action=login men om jag skulle ta bort ?action=login och trycker enter så laddas index.asp och detta felmess kommer upp. ``` ADODB.Field error '80020009' Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post. /index.asp, line 0 ``` Skulle vilja få bort detta. jag postar lite kod som jag använder. ``` <% Function SQLText(Value) If Len(Value) Then SQLText = "'" & Replace(Value, "'", "''") & "'" Else SQLText = "Null" End If End Function Set Con = Server.CreateObject("ADODB.Connection") Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("client.mdb") strSQL = "Select * from tbluppgifter where client = " & SQLText(Request.Form("client")) & " and password = " & SQLText(Request.Form("password")) Set RecSet = Server.CreateObject("ADODB.Recordset") RecSet.Open strSQL, Con If not recset.eof then Session("authentication") = "yes" Session("id") = recset("id") end if %> ``` Permalänk: https://www.webforum.nu/p/58392 ## #2 — Jesper T, 2002-11-07T22:17Z ``` Function SQLText(Value) If Len(Value) Then SQLText = "'" & Replace(Value, "'", "''") & "'" Else SQLText = "Null" End If End Function Set Con = Server.CreateObject("ADODB.Connection") Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("client.mdb") strSQL = "Select * from tbluppgifter where client = " & SQLText(Request.Form("client")) & " and password = " & SQLText(Request.Form("password")) Set RecSet = Server.CreateObject("ADODB.Recordset") RecSet.Open strSQL, Con if recset.eof or recset.bof then response.write "Du är inte riktigt klok..." end if If not recset.eof then Session("authentication") = "yes" Session("id") = recset("id") end if ``` Kanske... Permalänk: https://www.webforum.nu/p/846994 ## #3 — medialabs, 2002-11-07T22:20Z Jesper T : :( tyvärr inte... Permalänk: https://www.webforum.nu/p/846995 ## #4 — Josef, 2002-11-07T22:23Z Får du samma felmeddelande? Permalänk: https://www.webforum.nu/p/846997 ## #5 — medialabs, 2002-11-07T22:24Z Josef: ADODB.Field error '80020009' Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post. /index.asp, line 0 Permalänk: https://www.webforum.nu/p/846998 ## #6 — Josef, 2002-11-07T22:30Z Prova det här då... ``` Function SQLText(Value) If Len(Value) Then SQLText = "'" & Replace(Value, "'", "''") & "'" Else SQLText = "Null" End If End Function Set Con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("client.mdb") strSQL = "Select * from tbluppgifter where client = " & SQLText(Request.Form("client")) & " and password = " & SQLText(Request.Form("password")) Set RecSet = Server.CreateObject("ADODB.Recordset") RecSet.Open strSQL, Con If RecSet.EOF Then Response.Write("Finns ingen post") Else Session("authentication") = "yes" Session("id") = RecSet("id") End If RecSet.Close: Set RecSet = Nothing Con.Close: Set Con = Nothing ``` Permalänk: https://www.webforum.nu/p/847001 ## #7 — medialabs, 2002-11-07T22:34Z Josef : Tyvärr så blev det samma resultat igen. Men jag låter det vara. ska klura på en egen lösning. Permalänk: https://www.webforum.nu/p/847006 ## #8 — medialabs, 2002-11-07T22:37Z bort Permalänk: https://www.webforum.nu/p/847011 ## #9 — Josef, 2002-11-07T22:41Z ``` <% Function SQLText(Value) If Len(Value) Then SQLText = "'" & Replace(Value, "'", "''") & "'" Else SQLText = "Null" End If End Function Set Con = Server.CreateObject("ADODB.Connection") Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("client.mdb") strSQL = "Select * from tbluppgifter where client = " & SQLText(Request.Form("client")) & " and password = " & SQLText(Request.Form("password")) Set RecSet = Server.CreateObject("ADODB.Recordset") RecSet.Open strSQL, Con If not recset.eof then Session("authentication") = "yes" Session("id") = recset("id") end if %> <%If Session("authentication") = "yes" Then If Request.Querystring("logga") ="ut" Then Session.Abandon End If %> Du är inloggad som: <%=RecSet("client")%>


Ditt Visitkort. Logga ut <% Else RecSet.Close: Set RecSet = nothing Con.Close: Set Con = nothing End If %> <% If Session("authentication") <> "yes" Then %>
Security Concepts.
 
Client:
Password:
 
<%End If%> ``` Det mest konkreta.... dubbla \<% Permalänk: https://www.webforum.nu/p/847016 ## #10 — solbulle, 2002-11-07T22:57Z Vet inte om ditt problem kvarstår, men om det gör så ser jag inte var du använder dig av din querystring action=login ? Typ: ``` If request.querystring("action")="login" then 'kör databashämtningen... End If ``` Permalänk: https://www.webforum.nu/p/847022 ## #11 — solbulle, 2002-11-07T23:01Z Samt även att du innan du kör din inloggningsfråga mot databasen kan du ju kolla att fälten innehåller något, typ: ``` If Request.Form("client") <> "" and Request.Form("password") <> "" then 'Kör din databashämtning... Else response.write "Din attans pappskallle, fyll i lösen o användarid! :) " End If ``` Permalänk: https://www.webforum.nu/p/847023 ## #12 — medialabs, 2002-11-08T13:11Z Skulle någon vilja vara nsäll och skriva om koden. Eftersom jag endast vill logga in och sedan så skrivs det ut i övrehögra hörner vad man heter med hjälp av \<%=RecSet("client")%\> Det kan hända att jag har skrivit databas koden fel. för den ska ju endast öppna så att man kan hämta anv. och lösen. den ska ju inte göra nått annat. Permalänk: https://www.webforum.nu/p/847334 ## #13 — crisse6, 2002-11-08T13:57Z jag har inte last sa noga, men blir det fel om du alltsa inte har nagot varde i querystring? kor en if sats med querystringen da? ``` if request.querystring("action") = "" then 'hander nat else 'gar vidare end if ``` jag kanske har missuppfattat allt nu... :r Permalänk: https://www.webforum.nu/p/847377 ## #14 — Ekström, 2002-11-08T14:07Z ``` <% Function SQLText(Value) If Len(Value) Then SQLText = "'" & Replace(Value, "'", "''") & "'" Else SQLText = "Null" End If End Function Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("client.mdb") strSQL = "Select * from tbluppgifter where client = '" & SQLText(Request.Form("client")) & "' and password = '" & SQLText(Request.Form("password") &"'") Set recset = Conn.Execute(strSQL) If not recset.eof then Session("authentication") = "yes" Session("id") = recset("id") end if %> <%If Session("authentication") = "yes" Then If Request.Querystring("logga") ="ut" Then Session.Abandon End If %> Du är inloggad som: <%=RecSet("client")%>


Ditt Visitkort. Logga ut <% Else RecSet.Close Set RecSet = Nothing Conn.Close Set Conn = Nothing %>
Security Concepts.
Client:
Password:
<%End If%> ``` Permalänk: https://www.webforum.nu/p/847383 ## #15 — medialabs, 2002-11-08T15:05Z Jag låter sidan vara som den är och när jag satte respne.redirect.. skane i utloggningen så funkar allt som det ska. Permalänk: https://www.webforum.nu/p/847424 --- Tråden på webben: https://www.webforum.nu/amne/asp/58392-skulle-vilja-ha-en-förklaring-till-detta-och-en-möjlig-lösning