--- title: "Logga in" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/13843-logga-in" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "FIgg3" published: "2002-01-17T17:59:00.000Z" updated: "2002-01-17T19:35:00.000Z" replies: 16 views: 270 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/13843-logga-in" --- # Logga in ## #1 — FIgg3, 2002-01-17T17:59Z Blir snart knäpp varför funkar inte denna koden ``` <% databas = Server.MapPath("com.mdb") Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& databas Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM com ORDER BY ID DESC" RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic If Request.Form("namn") = RecSet("namn") AND Request.Form("losen") = RecSet("losen") Then Session("namn") = "namn" Session("vem") = RecSet("namn") RecSet.Close Set RecSet = nothing Connect.Close Set Connect = nothing Response.Redirect("inf.htm") ELSE Response.Redirect("default.asp") End If %> ``` Får inget fel meddelande men den skickar tillbaka än till default.asp som den ska göra om man fyllt i fel lösen/namn men det har ja ej gjort allt stämmer i databasen med det ja skriver ??? Snälla hjälp... Permalänk: https://www.webforum.nu/p/13843 ## #2 — Mika3l, 2002-01-17T18:18Z Prova detta istället: ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("com.mdb") Dim namn, losen namn = Trim(Request.Form("namn")) losen = Trim(Request.Form("losen")) Set RecSet = Connect.Execute("SELECT * FROM com WHERE namn = '" & namn & "' AND losen = '" & losen & "'") If RecSet.EOF OR RecSet.BOF Then Response.Redirect"default.asp" Else Session("namn") = namn '######## Istället för Session("vem") så kommer användarens namn sparas i Session("namn"). Response.Redirect"inf.htm" End If RecSet.Close Set RecSet = Nothing Connect.Close Set Connect = Nothing %> ``` Sen en liten fråga: Borde inte inf.htm heta inf.asp så att du kan skydda sidan? :q Är den inte ett aspdokument så går det ju inte att skydda den :l /Mika3l Permalänk: https://www.webforum.nu/p/304325 ## #3 — FIgg3, 2002-01-17T18:18Z Ingen av alla asp freaks som kan detta? Permalänk: https://www.webforum.nu/p/304326 ## #4 — FIgg3, 2002-01-17T18:20Z Jo det borde det men ja ska ej ha sidan inf.htm den ska ändras till en asp fil har bara inte lagt någon asp kod i den än därför inte döpt den till .asp än... tack för hjälpen föresten ska kolla på koden ja fick av dej... Permalänk: https://www.webforum.nu/p/304327 ## #5 — @nders, 2002-01-17T18:21Z Anledningen till att det inte fungerar är att du inte loopar ditt recordset. Jag tycker dock att du ska göra jämförelsen av användaranamn och lösenord redan i SQL-frågan. ``` <% databas = Server.MapPath("com.mdb") Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& databas SQL = "SELECT 1 FROM com WHERE namn = '" & Request.Form("namn") & "' AND losen = '" & Request.Form("losen") & "'" set RecSet = Connect.execute (SQL) If not RecSet.eof then Session("namn") = "namn" Session("vem") = Request.FOrm("namn") blnOk = true End If RecSet.Close Set RecSet = nothing Connect.Close Set Connect = nothing If blnOk then Response.Redirect("inf.htm") ELSE Response.Redirect("default.asp") end if %> ``` Vad gör **session("namn") = "namn"** förresten? Mvh, Permalänk: https://www.webforum.nu/p/304328 ## #6 — FIgg3, 2002-01-17T18:22Z Tack men koden funka inte den heller... ja ja får kolla mer på det senare då... Permalänk: https://www.webforum.nu/p/304329 ## #7 — FIgg3, 2002-01-17T18:23Z Tack @nders ska kolla koden... Permalänk: https://www.webforum.nu/p/304330 ## #8 — Mika3l, 2002-01-17T18:24Z Ok, jag tänkte väl att sidan skulle vara ett aspdokument :e > tack för hjälpen föresten ska kolla på koden ja fick av dej... Varsågod ;) Kul att någon tackar för en gångs skull... /Mika3l Permalänk: https://www.webforum.nu/p/304331 ## #9 — Mika3l, 2002-01-17T18:26Z @nders: Vad är 1;an i ``` SQL = "SELECT 1 FROM com WHERE namn = '" & Request.Form("namn") & "' AND losen = '" & Request.Form("losen") & "'" ``` för något? :q Nåt sånt har jag aldrig sett förut... /Mika3l Permalänk: https://www.webforum.nu/p/304332 ## #10 — @nders, 2002-01-17T18:29Z 1 är en siffra. Jag måste hämta någonting från tabellen för att se om villkoren uppfylls, men eftersom jag inte ska använda någon data så vill jag hämta så lite som möjligt. Om villkoren i SQL-satsen uppfylls får jag tillbaka ett recordset med en post; en rad, en kolumn, ett tecken. Red: istället för att specificiera ett fält, så kan jag alltså specificera ett värde, och det är det jag gör. Mvh, \[Redigerat av @nders den 17 jan 2002\] Permalänk: https://www.webforum.nu/p/304333 ## #11 — Mika3l, 2002-01-17T18:30Z > 1 är en siffra. Ahaa! ;) :e Fungerar det som typ TOP eller? /Mika3l Permalänk: https://www.webforum.nu/p/304334 ## #12 — @nders, 2002-01-17T18:32Z Nej, det är bara för att istället för att hämta en massa data som jag inte ska använda, så returnerar jag minsta möjliga datamängd genom att säga till att 'om villkoren uppfylls, skicka mig siffran 1!'. Mvh, \[Redigerat av @nders den 17 jan 2002\] Permalänk: https://www.webforum.nu/p/304335 ## #13 — Mika3l, 2002-01-17T18:33Z Ahaa! Nu fattar jag! :) Tack! /Mika3l Permalänk: https://www.webforum.nu/p/304336 ## #14 — FIgg3, 2002-01-17T19:16Z tack för hjälpen grabbar... men en sak till ja inte fattar... ja skappar juh en Session här: Session("vem") = Request.Form("namn") Men varför funkar det ej att skriva ut den på com.asp som ja skickas vidare till? Permalänk: https://www.webforum.nu/p/304337 ## #15 — @nders, 2002-01-17T19:30Z Mycket bra fråga. Det ska du helt klart kunna göra. Du har ingen if-sats runt, som kanske av någon anledning inte uppfylls? Mvh, Permalänk: https://www.webforum.nu/p/304338 ## #16 — FIgg3, 2002-01-17T19:34Z Okej får ta och titta på det i morgon då men du ska ha tack för all hjälp @nders Kommer nog tillbake med fler fråger i morrn ;) Permalänk: https://www.webforum.nu/p/304339 ## #17 — @nders, 2002-01-17T19:35Z Du är välkommen, och: du är välkommen. ;) Mvh, Permalänk: https://www.webforum.nu/p/304340 --- Tråden på webben: https://www.webforum.nu/amne/asp/13843-logga-in