Password-koll: Scraps'n'pieces

--- title: "Uppdatera antal besök vid inloggning" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/60201-uppdatera-antal-besök-vid-inloggning" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Galifante" published: "2002-11-25T12:47:02.000Z" updated: "2002-11-26T12:14:23.000Z" replies: 6 views: 246 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/60201-uppdatera-antal-besök-vid-inloggning" --- # Uppdatera antal besök vid inloggning ## #1 — Galifante, 2002-11-25T12:47Z Jag har en db med ett fält som heter besok, tabellen heter medlem. På index-sidan ska man logga in och då kommer man till sidan passkoll.asp. Där kollas användarnamn och lösenord mot uppgifterna i db. Är nått av detta fel så omdirigeras man till en annan sajt. Så långt funkar allt bra. Men hur gör jag för att uppdatera besöksräknaren???? Så här ser koden ut: ``` Dim SQL, username, pass username = Request.Form("user") pass = Request.Form("pass") Set MinCon = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("scrapsnpieces.mdb")&"" SQL = "SELECT pass FROM medlem WHERE user='"& username &"'" rs.Open SQL, MinCon if rs.EOF Then rs.Close minCon.Close Set minCon = nothing Set rs = nothing Response.redirect "http://www.expressen.se" else if rs("pass")<>pass Then rs.Close minCon.Close Set minCon = nothing Set rs = nothing Response.redirect "http://www.aftonbladet.se" else [B]rs.Close minCon.Close Set rs = nothing Set minCon = nothing Set minCon = Server.CreateObject("ADODB.Connection") Set rs= Server.CreateObject("ADODB.Recordset") minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("scrapsnpieces.mdb")&"" sql2 = "SELECT * FROM medlem WHERE user='"& username &"'" rs.Open sql2, minCon, 1,2 rs.AddNew rs("besok") = Session("besok") + 1 rs.Update rs.Close minCon.Close Set minCon = nothing Set rs = nothing Set MinCon = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("scrapsnpieces.mdb")&"" SQL = "SELECT pass FROM medlem WHERE user='"& username &"'" rs.Open SQL, MinCon[/B] Response.redirect "next.asp" %> Password-koll: Scraps'n'pieces <% end if end if rs.Close minCon.Close Set rs = nothing Set minCon = nothing %> ``` Det är det som är markerat emd fetstil som jag inte får att funka.... Hjälp, någon???? :OO :q :OO Permalänk: https://www.webforum.nu/p/60201 ## #2 — OveRRidE, 2002-11-25T12:55Z Ditt första elseif verkar ha halkat isär. Det måste vara 'elseif', det går inte att ha fler 'else' efter varandra. Sen behöver du inte stänga och öppna din connection igen, bara för att göra ett nytt recodset, du kan köra den direkt på det gamla connection-objektet. Permalänk: https://www.webforum.nu/p/866823 ## #3 — Galifante, 2002-11-25T13:04Z > **OveRRidE skrev:** > > Ditt första elseif verkar ha halkat isär. Det måste vara 'elseif', det går inte att ha fler 'else' efter varandra. Det ska vara: if alternativ 1 kod omdirigering 1 else alternativ 2 kod alternativ a omdirigering 2 kod alternativ b omdirigering till rätt sida slut på if-satsen till alternativ 2 slut på if-satsen till alternativ 1 Funkar inte detta då? Det är ju på olika "nivåer"... :q Det har ju funkat förrut. Säger jag som är alldeles ny & förvirrad på detta ännu.... > Sen behöver du inte stänga och öppna din connection igen, bara för att göra ett nytt recodset, du kan köra den direkt på det gamla connection-objektet. Fast det är olika SQL-satser? :q :q Hur gör jag det då på enklaste sätt? Några tips på hur jag får räknaren att räkna upp för varje individuellt besök? Permalänk: https://www.webforum.nu/p/866830 ## #4 — Galifante, 2002-11-26T01:09Z Inga förslag? Ingen som kan hjälpa mej med hur jag ska få räknaren att funka? :( :q :( :x Permalänk: https://www.webforum.nu/p/867346 ## #5 — doggelito, 2002-11-26T06:31Z Så nånting borde funka. Varför skapar du ett till recordset innan du skickar till next.asp? ``` <% Dim SQL, MinCon, rs, username, pass username = Request.Form("user") pass = Request.Form("pass") Set MinCon = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("scrapsnpieces.mdb")&"" SQL = "SELECT pass FROM medlem WHERE user='"& username &"'" rs.Open SQL, MinCon if rs.EOF Then rs.Close minCon.Close Set minCon = nothing Set rs = nothing Response.redirect "http://www.expressen.se" else if rs("pass")<>pass Then rs.Close minCon.Close Set minCon = nothing Set rs = nothing Response.redirect "http://www.aftonbladet.se" else rs.Close Set rs = nothing MinCon.execute("Update medlem Set besok = besok+1 WHERE user='"& username &"'") '----------------------------------------------------- SQL = "SELECT pass FROM medlem WHERE user='"& username &"'" rs.Open SQL, MinCon rs.Close Set rs = nothing '----------------------------------------------------- minCon.Close Set minCon = nothing Response.redirect "next.asp" end if end if %> ``` Permalänk: https://www.webforum.nu/p/867360 ## #6 — trexter, 2002-11-26T06:32Z ``` SQLsträngen = "UPDATE [namnet på din tabell] SET [namnet på kolumnen med räknaren] = [namnet på kolumnen med räknaren] + 1 Where Username(eller vad du kallar den kolumnen) = "&Request.Form("namnet på formuläret där besökaren skrivit in sitt användarnamn") Mer konkret exempel: strSQL = "UPDATE medlemmar SET countin = countin + 1 Where Username = "&Request.Form("username") ``` :) Permalänk: https://www.webforum.nu/p/867361 ## #7 — Galifante, 2002-11-26T12:14Z Det funkar! \*dansar runt och sjunger högt och falskt\* Tusen tack killar! Nu funkar det!!!! :e TACK SÅ HEMSKT MYCKET!!! Ni är bara bäst, vet ni det? :bire :bire Permalänk: https://www.webforum.nu/p/867519 --- Tråden på webben: https://www.webforum.nu/amne/asp/60201-uppdatera-antal-besök-vid-inloggning