---
title: "Array i sub?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46381-array-i-sub"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Peeer"
published: "2002-06-21T10:04:46.000Z"
updated: "2002-06-21T10:51:44.000Z"
replies: 2
views: 178
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/46381-array-i-sub"
---

# Array i sub?

## #1 — Peeer, 2002-06-21T10:04Z

```
users = "135309828,2,""Peeer"";67969298,2,""Mappe"";118946765,2,""Bergman"""

myArray = Split(users,";")
For i = 0 To Ubound(myArray)
[B]call checkICQStatus(myArray(i))[/B] 
Response.write "<br>"
Next 

Sub checkICQStatus(uin,typ,nick) 

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP") 
objHTTP.Open "GET", "http://wwp.icq.com/scripts/online.dll?icq=" & uin & "&img=1", False 
objHTTP.Send 
Filesize = LenB(objHTTP.ResponseBody) 
Set objHTTP = Nothing 

Select Case Filesize 
Case 446 
status = "Online" 
Case 475 
status = "Offline" 
Case 1278 
status = "Disabled" 
Case Else 
status = "Unknown" 
End Select 

If typ = 1 then 
Response.Write UIN & " <img src=""" & status & ".gif"">" 
else 
Response.Write nick & " är " & status 
End IF 
End Sub
```

Resultatet ska se ut ungefär så här(om statusen nu stämmer vill säga):

Peeer är online
Mappe är online
bergman är disabled

Hur gör jag?

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

## #2 — SPiN, 2002-06-21T10:32Z

```
For i = 0 To Ubound(myArray)
call checkICQStatus(myArray(i)) 
Response.write "<br>"
Next
```

Borde vara:

```
For i = 0 To Ubound(myArray)
tmpArray = Split ( myArray( i ), "," )
call checkICQStatus( tmpArray( 0 ), tmpArray( 1 ), tmpArray( 2 ) ) 
Response.write "<br>"
Next
```

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

## #3 — Peeer, 2002-06-21T10:51Z

Perfekt! Tackar ödmjukast! :D

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/46381-array-i-sub