Online System

<%
Dim conn
set conn = server.createobject (\"ADODB.Connection\")
conn.Open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\\Inetpub\\wwwroot\\BegASP\\DIN Database.mdb;\"
SQL = \"Select * FROM Brugere ORDER BY dato DESC\"
set RS = conn.execute ( SQL )
Response.Write RS(\"BrugerNavn\") & \"<br>\"
Response.Write RS(\"Navn\") & \"<br>\"
Response.Write RS(\"Bopæl\") & \"<br>\"
Response.Write RS(\"Beskrivelse\") & \"<br>\"
set conn=Nothing
%>

Du skal selvfølge lig skrive dine egne data ind men det skulle fungere...

kommer-nie>> For det første, så mangler du en do while NOT rs.EOF løkke.
For det andet, så lister du vel bare alle brugerne og ikke kun de brugere der er online

Ja det har du sku egentlig ret i jeg sad lige og funderede over det samme...

  <%
Dim conn
set conn = server.createobject (\"ADODB.Connection\")
conn.Open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\\Inetpub\\wwwroot\\BegASP\\DIN Database.mdb;\"
SQL = \"Select * FROM Brugere ORDER BY dato DESC\"
set RS = conn.execute ( SQL )
Do While Not RS.EOF
Response.Write RS(\"BrugerNavn\") & \"<br>\"
Response.Write RS(\"Navn\") & \"<br>\"
Response.Write RS(\"Bopæl\") & \"<br>\"
Response.Write RS(\"Beskrivelse\") & \"<br>\"
set conn=Nothing
%>

    <%
Dim conn
set conn = server.createobject (\"ADODB.Connection\")
conn.Open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\\Inetpub\\wwwroot\\BegASP\\DIN Database.mdb;\"
SQL = \"Select * FROM Brugere ORDER BY dato DESC\"
set RS = conn.execute ( SQL )
Do While Not RS.EOF
Response.Write RS(\"BrugerNavn\") & \"<br>\"
Response.Write RS(\"Navn\") & \"<br>\"
Response.Write RS(\"Bopæl\") & \"<br>\"
Response.Write RS(\"Beskrivelse\") & \"<br>\"
set conn=Nothing
%>

kommer-nie>>
Stadig forkert
Do While NOT rs.EOF
  De ting der skal skrives
  rs.MoveNext
Loop

      <%
Dim conn
set conn = server.createobject (\"ADODB.Connection\")
conn.Open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\\Inetpub\\wwwroot\\BegASP\\DIN Database.mdb;\"
SQL = \"Select * FROM Brugere ORDER BY dato DESC\"
set RS = conn.execute ( SQL )
Do While Not RS.EOF
Response.Write RS(\"BrugerNavn\") & \"<br>\"
Response.Write RS(\"Navn\") & \"<br>\"
Response.Write RS(\"Bopæl\") & \"<br>\"
Response.Write RS(\"Beskrivelse\") & \"<br>\"
rs.MoveNext
Loop
set conn=Nothing

%> 

        <%
Dim conn
set conn = server.createobject (\"ADODB.Connection\")
conn.Open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\\Inetpub\\wwwroot\\BegASP\\DIN Database.mdb;\"
SQL = \"Select * FROM Brugere ORDER BY dato DESC\"
set RS = conn.execute ( SQL )
Do While Not RS.EOF
Response.Write RS(\"BrugerNavn\") & \"<br>\"
Response.Write RS(\"Navn\") & \"<br>\"
Response.Write RS(\"Bopæl\") & \"<br>\"
Response.Write RS(\"Beskrivelse\") & \"<br>\"
rs.MoveNext
Loop
End If
set conn=Nothing

%> 

Nu var den der, men den lister stadig alle brugere og ikke kun de brugere der er online.

Hovsa, hvad skal den end if med for?

Ja ok væk med den...<%
Dim conn
set conn = server.createobject (\"ADODB.Connection\")
conn.Open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\\Inetpub\\wwwroot\\BegASP\\DIN Database.mdb;\"
SQL = \"Select * FROM Brugere ORDER BY dato DESC\"
set RS = conn.execute ( SQL )
Do While Not RS.EOF
Response.Write RS(\"BrugerNavn\") & \"<br>\"
Response.Write RS(\"Navn\") & \"<br>\"
Response.Write RS(\"Bopæl\") & \"<br>\"
Response.Write RS(\"Beskrivelse\") & \"<br>\"
rs.MoveNext
Loop

set conn=Nothing

%> 

Sådan vuptii

Jamen den lister jo stadig ALLE brugere. Ikke kun dem der er online...

I know...

Men forfaen kan du så fortælle hvordan man gør

Jamen, jeg ved det ikke

Det er nemt nok, hvis man må lave det sådan, at brugere SKAL logge af, men hvis brugeren bare forlader siden, så ved jeg det ikke.

dette her skal i global.asa:

sub Application_OnStart
    Application.lock
    Application(\"OnlineUsers\") = \",\"
    Application.unlock
end sub

sub Session_OnEnd
    Application.lock
    Application(\"OnlineUsers\") = Replace(Application(\"OnlineUsers\"), Session(\"login\") & \",\",\"\")
    Application.unlock
end sub

det her i dit login script:

    Sub AddOnlineUser(login)
        Application.Lock
        Application(\"OnlineUsers\") = Application(\"Onlineusers\") & login & \",\"
        Application.UnLock
    End Sub

så skriver du bare
call AddOnlineUser( \"brugernavnet\" )
når en bruger er blevet \"kontrolleret\" i logon scriptet

function Online(user)
        dim ok
               
        ok=\"no\"
        if instr(Application(\"OnlineUsers\"),user) then ok=\"yes\"
   
        Online=ok
    end function

Online(user) fortæller om en bruger er online

håber det ka bruges

>Tandpine
Ja det virker jo så godt nok men at man kan checke om brugeren er online, men jeg synes ikke helt det virker med at den efterfølgende sætter brugeren offline efter at man har lukket brugeren ned.
Jeg kan se at på de andre sider der har sådan noget popper der lige et lille vindue op der lavet et eller andet idet man enten forlader siden eller lukker browseren.
For det skulle jo ikke gerne være sådan at den venter på at den timer out.

Og så lige en anden ting er det ikke muligt at list online brugere end at man skal spørge på alle brugerne. Kan den ikke bare lise dem der er online istedet for at spørge på hver enkelt først.
Noget i stil med det her :
For each XXXXX
    Bla Bla
Next

Jeg faldt lige over Session(\"login\") i Session_OnEnd har det noget med den at gøre skal jeg bruge den til noget elelr sætte den til noget idet en bruger har logget sig ind ?

Kunne du ikke bare lave et felt i din brugertabel der hedder aktiv. Når en bruger logger på så opdaterer du aktiv til x i brugertabellen á la nedenstående:

sql = \"Update users set aktiv = \'x\' where loginname = \'\"&Request.form(\"loginname\")&\"\'\"

Og så umiddelbart bruge de udtræk der er kommet ovenfor med en mindre modificering:
Bare lav denne select så (læg mærke til where aktiv =\'x\'):

SQL = \"Select * FROM Brugere where aktiv = \'x\' ORDER BY dato DESC\"
set RS = conn.execute (SQL)
Do While Not RS.EOF
.... skriv online brugere ud
rs.MoveNext
Loop

jow

Ja det er ærligtalt ikke rigtigt kommet noget her jeg kunne bruge til noget, så jeg lukket spørgsmålet igen.
Og det de re rkommet virker ikke ordentligt mine brugere bliver sat Ofline igen rimeligt hurtigt og så opdaterer den ikke online Array\'et ordentligt brugerne bliver der men de er ikke delt op i et array længere dvs. at kommaerne der brude adskille dem forsvinder bare. Og kan ikke se hvad der er galt i det.