--- title: "gästboken" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/13918-gästboken" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "hacktheplanet" published: "2002-01-20T16:12:00.000Z" updated: "2002-01-20T22:40:00.000Z" replies: 20 views: 284 page: 1 pages: 2 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/13918-gästboken" --- # gästboken _Sida 1 av 2._ ## #1 — hacktheplanet, 2002-01-20T16:12Z vill att när man går in i ens egen gästbok ska alla 1 read inlägg sättas till 0 jag lyckas bara sätta första inlägget till 1 ``` '################################# kompisar select read ################################# Set Connect666 = Server.CreateObject("ADODB.Connection") Connect666.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&"" Set RecSet666 = Server.CreateObject("ADODB.Recordset") Addera = "Select * From gb Where tillID = " &session("id")&" Order By Datum DESC" RecSet666.Open Addera, Connect666, adOpenStatic, adLockOptimistic '############################### select ################################################# If RecSet666("read") = 0 Then RecSet666("read") = 1 RecSet666.Update End If ``` eller nu får jag felmess men förut funkade det juste jag la in on error resume next!! \[Redigerat av hacktheplanet den 20 jan 2002\] \[Redigerat av hacktheplanet den 20 jan 2002\] Permalänk: https://www.webforum.nu/p/13918 ## #2 — @nders, 2002-01-20T16:17Z Får man felmeddelande kan det ju vara bra att kasta med det också. Lättare att hjälpa dig då, serru. Koden är skriven så den bara uppdaterar den första posten, eftersom du inte loopar. Permalänk: https://www.webforum.nu/p/307743 ## #3 — KoTTeN, 2002-01-20T16:19Z För att den ska söka igenom hela, eller delar av databasen måste du ju använda dig av en Do ... Loop om jag inte har helt fel... ``` '################################# kompisar select read ################################# Set Connect666 = Server.CreateObject("ADODB.Connection") Connect666.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&"" Set RecSet666 = Server.CreateObject("ADODB.Recordset") Addera = "Select * From gb Where tillID = " &session("id")&" Order By Datum DESC" RecSet666.Open Addera, Connect666, adOpenStatic, adLockOptimistic '############################### select ################################################# [b]Do Until RecSet.EOF[/b] If RecSet666("read") = 0 Then RecSet666("read") = 1 RecSet666.Update End If [b]RecSet.MoveNext Loop[/b] ``` Typ... Permalänk: https://www.webforum.nu/p/307744 ## #4 — Wiberg, 2002-01-20T16:21Z Fast om det ska stämma med de recset666 så... ;) ``` Do Until RecSet666.EOF If RecSet666("read") = 0 Then RecSet666("read") = 1 RecSet666.Update End If RecSet666.MoveNext Loop ``` Permalänk: https://www.webforum.nu/p/307745 ## #5 — LarsG, 2002-01-20T16:34Z Jo, men man gör inte sådana lösningar. ``` Set Connect666 = Server.CreateObject("ADODB.Connection") Connect666.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&"" sql = "update gb set [read] = 0 where [read] = 1 and tillID = " &session("id") Connect666.execute sql,,128 Connect666.close set Connect666 = nothing ``` Permalänk: https://www.webforum.nu/p/307746 ## #6 — hacktheplanet, 2002-01-20T16:36Z nu blir sidan helt cp och käkar upp hela mitt minne heheh cp iis men det tar tid och den laddar???? nu har jag fixat lite koden men den sätter forfarande första inlägget till 0 och resten 1 Permalänk: https://www.webforum.nu/p/307747 ## #7 — hacktheplanet, 2002-01-20T16:37Z tack LarsG du är bäst och resten med hehehe \[Redigerat av hacktheplanet den 20 jan 2002\] Permalänk: https://www.webforum.nu/p/307748 ## #8 — @nders, 2002-01-20T16:38Z Har du använt LarsGs kod? Dåså! :D \[Redigerat av @nders den 20 jan 2002\] Permalänk: https://www.webforum.nu/p/307749 ## #9 — hacktheplanet, 2002-01-20T16:41Z men när man går in i nån annans gästbok så sätts det till 0 :( Permalänk: https://www.webforum.nu/p/307750 ## #10 — hacktheplanet, 2002-01-20T16:46Z ops funkar förlåt jag loggade in med admin och sen hacktheplanet heheh Permalänk: https://www.webforum.nu/p/307751 ## #11 — hacktheplanet, 2002-01-20T16:48Z nej det e helt sjukt nu sätts dom inte till 0 när jag går in i min egen gästbok Permalänk: https://www.webforum.nu/p/307752 ## #12 — hacktheplanet, 2002-01-20T16:51Z när jag typ går in i nån annans gästbok så står det att jag har 0 nya gästboksinlägg!!! Permalänk: https://www.webforum.nu/p/307753 ## #13 — jboy_87, 2002-01-20T17:21Z ``` sql = "update gb set [read] = 1 where [read] = 0 and tillid = " &Request.QueryString("id") ``` sen så kör du i länken ``` <%If session("id") = recset("id") Then%>&id=<%=RecSet("id")%><%else%><%end if%> ``` Permalänk: https://www.webforum.nu/p/307754 ## #14 — hacktheplanet, 2002-01-20T17:50Z men om man skriver in medlemmens id nummer så nollställs hans nyagbinlägg men annars funkar det perfekt bara det felet ``` [url="http://localhost/gastbok.asp?tillid=1&id=2"]http://localhost/gastbok.asp?tillid=1&id=2[/url] ``` Permalänk: https://www.webforum.nu/p/307755 ## #15 — jboy_87, 2002-01-20T17:57Z skapa en kolumn med frånid så kanske det funkar??? ``` sql = "update gb set [read] = 1 where [read] = 0 and tillid and fromid = " &Request.QueryString("id") ``` Permalänk: https://www.webforum.nu/p/307756 ## #16 — hacktheplanet, 2002-01-20T17:59Z nu nollställs allas!!! Permalänk: https://www.webforum.nu/p/307757 ## #17 — hacktheplanet, 2002-01-20T18:04Z nån som vet hur man gör :q Permalänk: https://www.webforum.nu/p/307758 ## #18 — jboy_87, 2002-01-20T18:13Z så här kanske?? ``` sql = "update gb set [read] = 1 where [read] = 0 and tillid = " &session("id")&" and fromid = "&Request.QueryString("tillid") ``` Permalänk: https://www.webforum.nu/p/307759 ## #19 — hacktheplanet, 2002-01-20T18:16Z nope funkar inte :( Permalänk: https://www.webforum.nu/p/307760 ## #20 — jboy_87, 2002-01-20T18:47Z det här ska funka!! ``` sql = "update gb set [read] = 1 where [read] = 0 and tillid = " &session("id")&" and tillid = "&Request.QueryString("tillid") ``` Permalänk: https://www.webforum.nu/p/307761 --- Tråden på webben: https://www.webforum.nu/amne/asp/13918-gästboken Nästa sida: https://www.webforum.nu/amne/asp/13918-gästboken/page2.md