---
title: "Vad är fel"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8457-vad-är-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "andreas_lindh"
published: "2001-03-08T21:46:00.000Z"
updated: "2001-03-08T23:13:00.000Z"
replies: 1
views: 168
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/8457-vad-är-fel"
---

# Vad är fel

## #1 — andreas_lindh, 2001-03-08T21:46Z

Jag använder det här scriptet för att visa vilka som är inloggade men felet är att den bara skriver ut en person.
\<%

   Topic = request.form("group")
   
   Application.Lock
   

   If Not IsEmpty(Application.Contents("Users")) Then
   		 Users = Application("Users")
		 Group = Application("UsersGroup") 
         NumOfUsers = UBound(Users)
         For I = 0 To NumOfUsers
               If Topic = Group(I) Then
		   			Response.Write ""
                   	Response.Write "&nbsp;\<img align=absmiddle src='images/lips.gif' border=0\> \<b\>" & (Session("User")) & "\</b\>\</a\>\<br\>"
					End If
         Next
   End If
   
   Application.Unlock

%\>

Och Global.asa ser ut så här
\<SCRIPT LANGUAGE=VBScript RUNAT=Server\> 
 
ReDim TopicName(0)
ReDim TopicDescription(0)

 
 Sub Application_OnStart

     '###########################################################
     ' set title
     Application("Title") = "ASP Chat"
     ' Create your chat rooms below, do not modify anything else/
     CreateRoom "ASP Joint", "ASP fiends sharing dope"
     CreateRoom "ASP Joint2", "ASP fiends sharing dope"
     CreateRoom "ASP Joint3", "ASP fiends sharing dope"
     'CreateRoom "Room Name", "Room Description"
     '###########################################################
	 
     Application("TopicNames") = TopicName
     Application("TopicDescriptions") = TopicDescription

     Dim Users()
     Redim Users(1)
     Dim UsersGroup()
     Redim UsersGroup(1)
     Application("Users") = User
     Application("UsersGroup") = UsersGroup

     Dim UsersIP()
     Redim UsersIP(1)
     Dim UsersTimeOn()
     Redim UsersTimeOn(1)
     Dim UsersIdleOn()
     Redim UsersIdleTime(1)
     Application("UsersIP") = UsersIP
     Application("UsersTimeOn") = UsersTimeOn
     Application("UsersIdleTime") = UsersIdleTime

 End Sub

 Sub Session_OnStart
   Session.Timeout=2
 End Sub

 Sub Session_OnEnd
    Topic = Session("Topic")
    Name = Session("User")

    Users = Application("Users")
    UsersIP = Application("UsersIP")
    UsersTimeOn = Application("UsersTimeOn")
    UsersIdleTime = Application("UsersIdleTime")

    Match = 1
    If IsArray(Users) Then
           UsersGroup = Application("UsersGroup")
           NumOfUsers = UBound(Users)
           If NumOfUsers = 1 Then
                 Set Application("Users") = Nothing
                 Set Application("UsersGroup") = Nothing

                 Set Application("UsersIP") = Nothing
                 Set Application("UsersIdleTime") = Nothing
                 Set Application("UsersTimeOn") = Nothing
           Else 
              ReDim UpdatedUsers(1)
              ReDim UpdatedUsersGroup(1)

              ReDim UpdatedUsersIP(1)
              ReDim UpdatedUsersTimeOn(1)
              ReDim UpdatedUsersIdleTime(1)
              For I = 1 To NumOfUsers
                  If Name \<\> Users(I) Then
                       ReDim Preserve UpdatedUsers(Match)
                       ReDim Preserve UpdatedUsersGroup(Match)
                       UpdatedUsers(Match) = Users(I)
                       UpdatedUsersGroup(Match) = UsersGroup(I)

                       ReDim Preserve UpdatedUsersIP(Match)
                       ReDim Preserve UpdatedUsersTimeOn(Match)
                       ReDim Preserve UpdatedUsersIdleTime(Match)
                       UpdatedUsersIP(Match) = UsersIP(I)
                       UpdatedUsersTimeOn(Match) = UsersTimeOn(I)
                       UpdatedUsersIdleTime(Match) = UsersIdleTime(I)

                       Match = Match + 1
                  End If
              Next
              Application("Users") = UpdatedUsers
              Application("UsersGroup") = UpdatedUsersGroup

              Application("UsersIP") = UpdatedUsersIP
              Application("UsersTimeOn") = UpdatedUsersTimeOn
              Application("UsersIdleTime") = UpdatedUsersIdleTime

           End If
   End If

   Set fileObject = Server.CreateObject("Scripting.FileSystemObject")
   textFile = Application("filebase") & Replace(Topic, "+", "\_") & ".txt"
   'If fileObject.FileExists(textfile) Then
         Set inStream = fileObject.OpenTextFile(textFile,1,TRUE,FALSE)
         file = inStream.ReadAll
         Set inStream = Nothing

         file = file & "\<FONT SIZE=2 FACE='Vedana,Arial' Color=#808080\>\<b\>\*\*\*\[" &  Name & " has exited (" & Now & ")\]\*\*\*\</b\>\</FONT\>\<br\>"
         Set outStream = fileObject.CreateTextFile(textFile,True)
         outStream.WriteLine(file)
	 outStream.Close
         Set outStream = Nothing
   'End If

   Session("Enter") = True
 End Sub

 Sub CreateRoom(Name, Description)
   		nLen = UBound(TopicName)+1
   		ReDim Preserve TopicName(nLen)
   		TopicName(nLen) = Name
   		ReDim Preserve TopicDescription(nLen)
   		TopicDescription(nLen) = Description
		
 End Sub

\</script\>
Hoppas Att någon kan hjälpa mig även fast det är lite mycket kod

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

## #2 — emission, 2001-03-08T23:13Z

Jag fattar inte riktigt hur det är tänkt.....

Men...

**For I = 0 To NumOfUsers
If Topic = Group(I) Then**

Variabeln I loopar igenom arrayen Users, men används med Group-arrayen. Varför?

**Response.Write " \<img align=absmiddle src='images/lips.gif' border=0\> \<b\>" & (Session("User")) & "\</b\>**

Session("User") innehåller bara den inloggade användarens namn. Det är väl användarna i Application("Users")-arrayen du vill åt?

**Application("Users") = User**

Det ska väl vara User**s**?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8457-vad-är-fel