--- title: "Hämta bara online kompisar?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/71694-hämta-bara-online-kompisar" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Qimen" published: "2003-03-20T22:48:12.000Z" updated: "2003-11-16T18:11:40.000Z" replies: 22 views: 511 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/71694-hämta-bara-online-kompisar" --- # Hämta bara online kompisar? _Sida 1 av 2._ ## #1 — Qimen, 2003-03-20T22:48Z Hej Har en tabell i en db som heter members och har ett fält som heter online och kan ha värdena Ja eller Nej. Jag har även en tabell som heter kompisar. Där finns id1 och id2. I id 1 ligger en användare och i id2 en kompis till den användaren. För att hämta en användares kompisar använder jag ``` [red] SQL = "Select * From kompisar Where ID1 = "&Session("id") RecSet.Open SQL, Connect, 3,3 If RecSet.Eof Then %>Inga kompisar =(<%Else%> <%Do Until RecSet.EOF SQL2 = "Select * From anvandare Where id = "&RecSet("ID2") RecSet2.Open SQL2, Connect, 3,3%> [/red] ``` Men nu hämtar den den användarens alla kompisar. Hur gör jag för att hämta endast dem som är online? Hoppas det räcker med den kodsnutten, behöver ni se mer så säg till :) Permalänk: https://www.webforum.nu/p/71694 ## #2 — @nders, 2003-03-21T05:09Z Hur vet du om man är online? Permalänk: https://www.webforum.nu/p/984821 ## #3 — Qimen, 2003-03-21T06:34Z I tabellen med alla användare har jag ett fält so uppdateras när man loggar in och ut med alternativen ja och nej, ja om man är inloggad och nej tvärtom. Permalänk: https://www.webforum.nu/p/984833 ## #4 — mrblonde, 2003-03-21T06:40Z Du kan ju hämta alla på en gång... sql = "select \* from anvandare a, kompisar k where online = 'ja' and k.id1 =" & Session("id")" & and k.id2 = a.id" detta borde ge dig alla kompisar som är online för en användare med session("id"). om jag inte tänkt fel så här på morgon kvisten. Permalänk: https://www.webforum.nu/p/984837 ## #5 — Nickemannen, 2003-03-21T07:50Z Men, vad händer om de skippar att klicka på logga ut då är de alltid online ? Permalänk: https://www.webforum.nu/p/984879 ## #6 — Engine^, 2003-03-21T08:17Z Red.: Dumheter från min sida... Permalänk: https://www.webforum.nu/p/984893 ## #7 — Qimen, 2003-03-21T15:59Z Om någon skippar att logga ut så ändras deras status till offline efter 10 minuters inaktivitet Permalänk: https://www.webforum.nu/p/985213 ## #8 — Qimen, 2003-03-21T16:16Z Humm får bara fel om jag använder ``` sql = "select * from anvandare a, kompisar k where online = 'ja' and k.id1 =" & Session("id")" & and k.id2 = a.id" ``` Felet jag får är > Kompileringsfel i Microsoft VBScript (0x800A0401) > Slut på programsats förväntas. > /qserver/main\_.asp, line 137, column 93 > SQL = "select \* from anvandare a, kompisar k where online = 'ja' and k.id1 =" & Session("id"**)**" & and k.id2 = a.id" Den klagar på den fetmarkerade :q Permalänk: https://www.webforum.nu/p/985221 ## #9 — trexter, 2003-03-21T16:48Z "& Session("id") &" :) Permalänk: https://www.webforum.nu/p/985243 ## #10 — Qimen, 2003-03-21T16:58Z Hum jag har nog fått lite problem :/ ``` Set RecSet2 = Server.CreateObject("ADODB.Recordset") SQL = "select * from anvandare a, kompis k where online = 'ja' and k.id1 ="& Session("id") &" and k.id2 = a.id" RecSet.Open SQL, Connect, 3,3 If RecSet.Eof Then %>Inga kompisar =(<%Else%> <%Do Until RecSet.EOF SQL2 = "Select * From anvandare Where id = "&RecSet("ID2") RecSet2.Open SQL2, Connect, 3,3%> " onmouseover="window.status='Skicka mejl till <%=RecSet("namn")%>'; changeImages('<%=RecSet("namn")%>', 'images/Mess-over.gif'); return true;" onmouseout="window.status=''; changeImages('<%=RecSet("namn")%>', 'images/mess.gif'); return true;" onFocus="this.blur()">" alt="mejl" border="0" width="10" height="10"> <%=RecSet("namn")%> <% If RecSet2("online") = "Ja" Then %> « <%End If%>
<% RecSet2.Close RecSet.MoveNext Loop End If Set RecSet2 = nothing RecSet.Close%> ``` Den första sql delen verkar funka men sen kommer det en rad till som jag inte vet vad jag ska göra med :q Permalänk: https://www.webforum.nu/p/985245 ## #11 — Josef, 2003-03-21T17:24Z Om jag har fattat det hela rätt så hämtar den nya SQL-satsen alla kompisar som är online, eller? ``` Set RecSet = Server.CreateObject("adodb.RecordSet") SQL = "select * from anvandare a, kompis k where online = 'ja' and k.id1 ="& Session("id") &" and k.id2 = a.id" RecSet.Open SQL, Connect, 3,3 If RecSet.Eof Then Response.Write("Inga kompisar =(") Else Do Until RecSet.EOF %> " onmouseover="window.status='Skicka mejl till <%=RecSet("namn")%>'; changeImages('<%=RecSet("namn")%>', 'images/Mess-over.gif'); return true;" onmouseout="window.status=''; changeImages('<%=RecSet("namn")%>', 'images/mess.gif'); return true;" onFocus="this.blur()">" alt="mejl" border="0" width="10" height="10"> <%=RecSet("namn")%> «
<% Loop End If Set RecSet = nothing RecSet.Close %> ``` Men som sagt jag vet inte riktigt hur det är tänkt. ;) Permalänk: https://www.webforum.nu/p/985260 ## #12 — Qimen, 2003-03-21T17:33Z Mjo, den första hämtar väl vilka som är kompisar och den andra vilka som är online och visar det. Men använder jag den koden ovan så får jag "Objekt krävs.: 'RecSet' /qserver/main\_.asp, line 153" vilket är rad: RecSet.Close Permalänk: https://www.webforum.nu/p/985267 ## #13 — trexter, 2003-03-21T17:57Z Prova att byta plats på Set RecSet = nothing & RecSet.Close. :) Permalänk: https://www.webforum.nu/p/985285 ## #14 — Qimen, 2003-03-21T18:08Z nepp gör ingen skillnad Nu blev dock felmeddelandet: Körningsfel i Microsoft VBScript (0x800A01A8) Objekt krävs. /qserver/main\_.asp, line 160 Permalänk: https://www.webforum.nu/p/985290 ## #15 — trexter, 2003-03-21T18:14Z Du borde ha ett RecSet.mOveNext före Loop. :) Permalänk: https://www.webforum.nu/p/985293 ## #16 — Qimen, 2003-03-21T18:47Z Hum jag tror jag måste ha Recset2 på allt för annars verkar det krocka med de andra scripten på sidan. Men vilka är det jag ska ändra? Permalänk: https://www.webforum.nu/p/985307 ## #17 — Qimen, 2003-03-21T20:04Z Jag har lyckats med att få koden funka nu, såvidare ingen är inloggad förutom jag. Då kommer det upp att man inte har några kompisar. Men loggar en av mina kompisar in så får jag bara felmeddelandet: > Objektet kunde inte hittas i mängden med det begärda namnet eller numret. > /qserver/main\_.asp, line 146 och rad 146 är: ``` " onmouseover="window.status='Skicka mejl till <%=RecSet2("namn")%>'; changeImages('<%=RecSet2("namn")%>', 'images/Mess-over.gif'); return true;" onmouseout="window.status=''; changeImages('<%=RecSet2("namn")%>', 'images/mess.gif'); return true;" onFocus="this.blur()">" alt="mejl" border="0" width="10" height="10"> <%=RecSet2("namn")%> ``` Det jag gjort då är: ``` Set RecSet2 = Server.CreateObject("adodb.RecordSet") SQL = "select * from anvandare a, kompis k where online = 'ja' and k.id1 ="& Session("id") &" and k.id2 = a.id" RecSet2.Open SQL, Connect, 3,3 If RecSet2.Eof Then Response.Write("Inga kompisar =(") Else Do Until RecSet2.EOF ``` Jag tror felet beror på ngt att jag har recset 2 och att när den försöker hämta info ifrån databasen så kommer den inte åt, ja något sådant iaf :) Någon som vet hur jag kan lösa det? Permalänk: https://www.webforum.nu/p/985343 ## #18 — Sebbe, 2003-03-21T20:36Z Finns kolumnen "namn" i databasen? Om den finns; du har skrivit det med stor bokstav första gången, men det kanske inte spelar någon roll. Permalänk: https://www.webforum.nu/p/985356 ## #19 — Qimen, 2003-03-21T20:40Z Nepp det gjorde ingen skillnad. Permalänk: https://www.webforum.nu/p/985357 ## #20 — Sebbe, 2003-03-22T10:23Z ``` SQL = "select * from anvandare a, kompis k where a.online = 'ja' and k.id1 ="& Session("id") &" and k.id2 = a.id" ------------------------------------------------- " onmouseover="window.status='Skicka mejl till <%=RecSet2("a.namn")%>'; changeImages('<%=RecSet2("a.namn")%>', 'images/Mess-over.gif'); return true;" onmouseout="window.status=''; changeImages('<%=RecSet2("a.namn")%>', 'images/mess.gif'); return true;" onFocus="this.blur()">" alt="mejl" border="0" width="10" height="10"> <%=RecSet2("a.namn")%> ``` Borde det inte vara något sådant?? Permalänk: https://www.webforum.nu/p/985566 --- Tråden på webben: https://www.webforum.nu/amne/asp/71694-hämta-bara-online-kompisar Nästa sida: https://www.webforum.nu/amne/asp/71694-hämta-bara-online-kompisar/page2.md