---
title: "Stockholmsbörsen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/48311-stockholmsbörsen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "K++"
published: "2002-07-21T12:59:37.000Z"
updated: "2005-02-08T16:13:22.000Z"
replies: 6
views: 7725
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/48311-stockholmsbörsen"
---

# Stockholmsbörsen

## #1 — K++, 2002-07-21T12:59Z

Enkelt script för att få fram hur det gått på börsen idag.

```
<%

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.privataaffarer.se/default_frame.asp", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<font face=""Geneva, Arial, Helvetica"" size=""6"" class=index1><b>.*</b></font>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText) 
	strText = replace(strtext,"<font face=""Geneva, Arial, Helvetica"" size=""6"" class=index1><b>"," ")
	strText = replace(strtext,"</b></font>"," ")

	red = strText
End Function

For each item in hittade
With response
	.write("Stockholmsb&ouml;rsen: ")
	.write red(item.value) 
End with
Next

%>
```

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

## #2 — Jesper T, 2002-10-30T16:41Z

För närvarande så skall det väl stå: 

```
<%

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.privataaffarer.se/default_frame.asp", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<font size=5 face=""Arial,Helvetica""><b>.*</b></font>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText) 
	strText = replace(strtext,"<font size=5 face=""Arial,Helvetica""><b><b>"," ")
	strText = replace(strtext,"</b></font>"," ")

	red = strText
End Function

For each item in hittade
With response
	.write("Stockholmsbörsen: ")
	.write red(item.value) 
End with
Next

%>
```

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

## #3 — KalsongCesar, 2002-12-03T11:14Z

Om man vill ha med pilen så..

```
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.privataaffarer.se/default_frame.asp", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<td>.*<font size=5 face=""Arial,Helvetica""><b>.*</b></font>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText) 
	strText = replace(strtext,"<td><img src=""","<img src=""http://www.privataaffarer.se")
	strText = replace(strtext,"<font size=5 face=""Arial,Helvetica""><b><b>"," ")
	strText = replace(strtext,"</b></font>"," ")

	red = strText
End Function

For each item in hittade
With response
	.write("Stockholmsbörsen: ")
	.write red(item.value) 
End with
Next
```

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

## #4 — medialabs, 2003-07-22T22:49Z

Jesper T

Du har ett litet fel i din du har en \<b\> för mycket!

```
<%

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.privataaffarer.se/default_frame.asp", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<font size=5 face=""Arial,Helvetica""><b>.*</b></font>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText)
strText = Replace(strText, "<font size=5 face=""Arial,Helvetica""><b>&nbsp;", " ")
strText = Replace(strText, "</b></font>", " ")

red = strText
End Function

For each item in hittade
With response
	.write("Stockholmsbörsen: ")
	.write red(item.value) 
End with
Next

%>
```

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

## #5 — K++, 2004-09-20T14:25Z

Oj.. jävlar vad det här scriptet blev populärt :D

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

## #6 — erika, 2005-02-01T14:31Z

Får inte scriptet att fungera, finns det någon nyare version som fungerar?

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

## #7 — Jesper T, 2005-02-08T16:13Z

Japp, då uppdatar vi igen då.

```
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.privataaffarer.se", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<font class=saxBig>.*</font>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText)
strText = Replace(strText, "<font class=saxBig>", "")
strText = Replace(strText, "</font>", "")
red = strText
End Function

For each item in hittade
	val = red(item.value)
	if instr(val,"-") then val="&amp;#9660; "& val else val="&amp;#9650; "& val
	Response.Write("Stockholmsbörsen: " & val)
Next
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/48311-stockholmsbörsen