---
title: "Visa online med tex. ICQ?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/43565-visa-online-med-tex-icq"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "bigsky"
published: "2002-05-12T15:20:57.000Z"
updated: "2002-05-14T18:45:42.000Z"
replies: 27
views: 1227
page: 1
pages: 2
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/43565-visa-online-med-tex-icq"
---

# Visa online med tex. ICQ?

_Sida 1 av 2._

## #1 — bigsky, 2002-05-12T15:20Z

På vanligt sätt kan man ju visa om en person är inloggad på icq med \<img src="http://wwp.icq.com/scripts/online.dll?icq=100988938&img=5"\> som ju då visar en bild. Men kan jag med en If-sats visa en egen text eller bild geonom att använda nån annan komponent från icq?

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

## #2 — yaz, 2002-05-12T16:57Z

du finner en hel del information på denna sida...

<http://www.icq.com/sitecreator/>

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

## #3 — Peeer, 2002-05-12T18:28Z

Jag söker samma sak. En asp-kod för att visa om man är online/offline på icq, det ska alltså inte vara någon av icq's egna bilder. Sökte lite här på forumet och fann två länkar ([1](http://www.webforum.nu/showthread.php?s=&threadid=15273) och [2](http://www.webforum.nu/showthread.php?s=&threadid=15292)). Men dem är för PHP. Jag har endast möjlighet att köra asp. Någon som kan hjälpa oss?

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

## #4 — solbulle, 2002-05-12T21:36Z

Åsså har man klippt & klistrat...

```
<%
call checkICQStatus(11797197,2)

Sub checkICQStatus(uin,typ)
 
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 UIN & " : " & status
End IF
End Sub

%>
```

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

## #5 — bigsky, 2002-05-12T21:51Z

Får du den koden att fungera? Inte jag...

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

## #6 — solbulle, 2002-05-12T22:01Z

Vad händer för dig då?

Testa hos mig: <https://www.solbulle.com/icq2.asp>

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

## #7 — bigsky, 2002-05-12T22:12Z

Feltyp: (0x800C0005)      verkar vara nåt med "GET"

Jag provade att byta ut 11797197 mot mitt UIN, inte för att det spelar någon roll... Inkluderade adovbs.inc tja det var som allt. Berätta hur du gör? Hur ser sidan ut i sin helhet?

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

## #8 — solbulle, 2002-05-12T22:15Z

Det där är hela sidan...

Hur gick det om du prövade formuläret hos mig?

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

## #9 — bigsky, 2002-05-12T22:19Z

Det händer inget alls. Står bara att sidan inte kan visas. Spelar ingen roll vart i sidan man klistrar in koden.

\<%@ LANGUAGE="VBSCRIPT" %\>
\<!-- #include file="adovbs.inc" --\>
\<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"\>

\<html\>
\<head\>
	\<title\>Untitled\</title\>
\</head\>

\<body\>

\<%
call checkICQStatus(11797197,2)

Sub checkICQStatus(uin,typ)
 
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 UIN & " : " & status
End IF
End Sub

%\>

\</body\>
\</html\>

\----

Sidan kunde inte visas 
Det har uppstått problem med sidan du försökte nå. Den kunde inte visas. 

\--------------------------------------------------------------------------------

Prova att:

Klicka på knappen Uppdatera, eller försök igen senare.

öppna hemsidan localhost och titta efter länkar till informationen du söker. 
HTTP 500.100 - Internt serverfel - ASP-fel
Internet Information Services

\--------------------------------------------------------------------------------

Teknisk information (för supportpersonal)

Feltyp:
(0x800C0005)
/bsa/icq.asp, line 20

Webbläsare:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) 

Sida:
GET /bsa/icq.asp 

Tid:
den 13 maj 2002, 00:17:50 

Mer information:
Microsoft Support

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

## #10 — LR^evil.sid, 2002-05-12T22:22Z

testade sidan jag oxå och det fungerar för mig...

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

## #11 — bigsky, 2002-05-12T22:30Z

ja, nu jävlar. Det funkade inte lokalt på IIS5.1, men däremot på webbhotellet och de kör ju också IIS, jaha

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

## #12 — solbulle, 2002-05-12T22:32Z

Bra, kul! :)

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

## #13 — Peeer, 2002-05-13T16:21Z

Kan ju upplysa er om att det funkade fin-fint här också.  :)  
Men var kan man lära sig sånt här? Jag kan grunderna i asp (genom [webstudio](http://www.idg.se/webstudio/)) men jag vill lära mig mer......var??  :q  :q  :q

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

## #14 — solbulle, 2002-05-13T16:24Z

Här på Wf kanske? ;)

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

## #15 — SPiN, 2002-05-13T16:29Z

bigsky\> Antagligen fick du det inte att fungera för att du helt enkelt inte har komponenten XMLHTTP. Vill du att det ska fungera lokalt, ladda ner MSXML SP3 från Microsoft, så bör det fungera. :)

Eller så kanske du helt enkelt inte var uppkopplad mot Internet?

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

## #16 — bigsky, 2002-05-13T16:58Z

Vart hos MS kan man hitta det SP3? Ser bara SP2, och om man har WinXP och/eller IE6 ska man ju inte behöva ladda ner det?

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

## #17 — SPiN, 2002-05-13T16:59Z

Hm, det kanske bara finns i SP2? :q
Jag har för mig att det ska finnas SP3:a... Aja, ladda ner **någon** version av MSXML, de flesta borde vara stabila. 4:an har ju varit ute rätt så länge. :)

<http://msdn.microsoft.com/downloads/sample.asp?url=/MSDN-FILES/027/001/766/msdncompositedoc.xml&frame=true>

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

## #18 — @nders, 2002-05-13T17:00Z

Jo, MSXML3 SP2 är väl den som gäller.

<http://msdn.microsoft.com/library/default.asp?url=/nhp/Default.asp?contentid=28000438>

Se uppe till höger, *Essential info*.

Mvh,

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

## #19 — SPiN, 2002-05-13T17:03Z

Varför inte 4:an, SP1? Är den releasen vek?

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

## #20 — @nders, 2002-05-13T17:04Z

Jag brukar inte våga installera saker från Microsoft, om det inte kommit minst två service packs. ;)

Jo, version 4 lär fungera bra, men det är ingenting jag vågar installera på våra verksamhetskritiska servrar. :)

Mvh,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/43565-visa-online-med-tex-icq  
Nästa sida: https://www.webforum.nu/amne/asp/43565-visa-online-med-tex-icq/page2.md