---
title: "Chattare online?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/70117-chattare-online"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Robson"
published: "2003-03-05T10:40:52.000Z"
updated: "2003-03-05T12:32:45.000Z"
replies: 2
views: 181
page: 1
pages: 1
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/70117-chattare-online"
---

# Chattare online?

## #1 — Robson, 2003-03-05T10:40Z

Hej,
Går det på något vis att med delar av denna kod visa på en annan sida antalet "online-chattare"?

Testade själv med att klistra in hela denna sidan men då laddade förstasidan om hela tiden...

Nån som vet nåt enkelt?
Robson

\<html\>
\<head\>
\<meta http-equiv="refresh" content="10"\>
\</head\>
\<body\>
\<%
Dim userlist, datelist, i, num, users, refresh

users = application("users")
refresh = application("refresh")

for i = 1 to 50
   if users(i) = session("name") then
      refresh(i) = time
      exit for
    end if
next

for i = 1 to 50
    if users(i) \<\> "" then
     if datediff("s",refresh(i), time) \> 20 then
      application("conversation") = "\<b\>\<i\>" &\_
       users(i) & " Lämnar chatten\</b\>\</i\>\<br\>" &\_
       application("conversation")
     users(i) = ""
     application("numusers") = \_
      application("numusers") - 1
    end if
   end if
next
application.lock
application("users") = users
application("refresh") = refresh
application.lock
%\>
\<h3\>\<font size="2" face="Verdana, Arial, Helvetica, sans-serif"\>Personer inne:\</font\> 
  \<%=application("numusers")%\>\</h3\>
\<%
for i = 1 to 50
   if users(i)\<\> "" then
     response.write users(i) & "\<br\>"
   end if
next
%\>
\</body\>
\</html\>

Permalänk: https://www.webforum.nu/p/70117

## #2 — solbulle, 2003-03-05T10:52Z

\<% =application("numusers") %\>

kanske...

Permalänk: https://www.webforum.nu/p/968421

## #3 — Robson, 2003-03-05T12:32Z

Testat med det, inkl include chat/users.asp som koden ligger på. Men då laddar bara sidan om hela tiden. 
Hur skall man bara få med \<% =application("numusers") %\> ???

Permalänk: https://www.webforum.nu/p/968537

---

Tråden på webben: https://www.webforum.nu/amne/asp/70117-chattare-online