23 svar · 488 visningar · startad av Jesper T · sida 2 av 2
Hallå igen, jag är nog en smul trög, men gör ett ytterligare försök.
I din "Application("active_users")" vad har du där egentligen?
Som Tobbster frågar: hur fyller du den?
Jag har hela tiden antagit att den endast innehåller de som är ONLINE, men jag börjar tro att så inte är fallet?
Du kan kika i denna tråd: http://webforum.aleborg.com/forum/showthread.php?s=&threadid=12597&highlight=Application
Jo, med detta kan jag faktiskt lista alla inloggade!
(Tack för länken solbulle)
<%
user_array=split(Application("active_users"),"*")
for i = 0 to ubound(user_array)
response.write user_array(i)&"<br>"
next
%>
Men till saken hör att jag vill även ta med grejjer ur databasen såsom epost för och efternamn etc. och denna kod listar endast användarnamnen, och hur lägger jag ihop det med det????
MVH Jesper
God kväll igen ;)
Om nu det vi skrev lite högre upp fungerar, (orkar inte riktigt dra alla slutsatser nu) så är det väl bara att plocka ut ur databasen för glatta livet till exempel:
<%
Set conn= Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM users ORDER BY username"
rs.Open sql, conn, 3, 3
Do Until rs.eof
user_array=split(Application("active_users"),"*")
for t=0 to ubound(user_array)
user=user_array(t)
If rs("Username") = user Then
Response.Write "<img src=bilder/online.gif width=10 height=10>"
Response.Write rs("Username") & "<br>"
Response.Write rs("epost") & "<br>"
Response.Write rs("efternamn") & "<br>"
End if
next
rs.movenext
loop
RS.close
set RS= nothing
conn.Close
set conn = nothing
%>
Hoppas att det ska fungera.
Nu är det god natt för mig i alla fall.