Hvordan?

hvad menner du !!!

webinfo- ja en online liste som på dating.dk hvor man kan se hvilke medlemmer der er online.

oki og det skal være i ASP

webinfo- ja

det skal lige siges det må godt laves i global.asa hvis man ik kan andet :-)

Hvormeget skal der laves. ?

1. Oprettelse af brugere. ?
2. Redigering af brugeroplysninger. ?
3. Sletning af bruger.
4. Login/logout. ?
5. Liste over online lige nu. ?

http://activedeveloper.dk/julekalender/julegaver/whoson.asp

coltau- det er kun online liste og ik andet resten er lavet :-)

keysersoze- ja men problemet er jeg kan ikke hitte u a den :-/

ja - se det er jo et problem...

hvad i den forstår du ikke?

keysersoze- *GG* stort set det hele ( jeg er ikke så god til asp ) så hvis du ville lave den ville det være perfekt

det vil jeg ikke - får ikke rigtig noget ud af det... har leveret opskriften, og mere kan/vil jeg ikke rigtig gøre :o/

Jeg vil godt prøve at kikke på det i aften. Det ku' jo være rart at have i en håndevending.
Skal der laves nogen form for statistik. ? (Forhåbenlig ikke. :-)

statestik har jeg lavet det er bare om brugeren er logget på systemet hvis ja så at den skriver det på en side hvilken bruger der er online . og det er til denne side www.lovefind.dk

coltau-

Fed side - men bør du ikke anvende større font-size. i stil med eksperten.dk

Taark coltau- og ja jooo ved det faktisk ik *GG* men skal da lige tænke over den :-)

Jeg har været ophængt i sidste uge - fordi det var op til ferien. Kan du bruge noget af det her:

Tabellen med brugeroplysninger skal minimum have disse felter:
ID: Automatisk nummer
username: Brugers navn
online: Ja/Nej-fejt der fortæller om bruger er online eller ej.

Når bruger logger ind skal denne sub kaldes:
sub AddOnline(AUserID) ' AUserID = ID på bruger i DB
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")
  Conn.Execute("update users set online=True where ID=" & AUserID)
  Conn.Close
end sub

Når bruger logger ud skal denne sub kaldes:
sub DelOnline(AUserID) ' AUserID = ID på bruger i DB
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")
  Conn.Execute("update users set online=False where ID=" & AUserID)
  Conn.Close
end sub

i global.asa skal/kan disse linier sættes ind.
Sub Session_OnEnd
  if Session("UserID") then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")
    Conn.Execute("update users set online=False where ID=" & Session("UserID"))
    Conn.Close
  end if
end Sub
Det er for at "logge ud" for dem der glemmer at logge ud selv.

Her er så lidt kode der viser hvem der er online lige nu.

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")
  Set RS = Conn.Execute("select * from users where online=True")
  do while not RS.EOF
    Response.Write(RS("username") & "<br>")
    RS.MoveNext
  loop
  Conn.Close

Til nulstilling af alle online-brugere kan denne sub anvendes:
sub ClearAllOnLine
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")
  Conn.Execute("update users set online=False")
  Conn.Close
end sub
Hvis det bliver nødvendigt.

Jeg håber at det var noget i denne stil.
PS: Så kan du jo også få fjernet CHART.DK

coltau- har du icq? ellers hvad er din mail?

mail: claus@coltau.dk

takker coltau det virker :-)