---
title: "Visa å ä ö med showsong från Winamp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/57409-visa-å-ä-ö-med-showsong-från-winamp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "radiomg"
published: "2002-10-29T15:32:38.000Z"
updated: "2005-07-10T23:04:12.000Z"
replies: 1
views: 346
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/57409-visa-å-ä-ö-med-showsong-från-winamp"
---

# Visa å ä ö med showsong från Winamp

## #1 — radiomg, 2002-10-29T15:32Z

Hej!
Jag undrar om det är någon som vet hur jag får tecken å ä ö och visas när man ska se vilken låt som spelars.. Koden ser ut så här:

\<%@ Language=VBScript%\>
\<%
Response.Expires = -1
Response.Buffer=True

Dim strServer1
Dim strTitle1
%\>

\<SCRIPT LANGUAGE=javascript RUNAT=Server\>
var oDate = new Date();
var sDate = Server.URLEncode(oDate.toUTCString());
\</SCRIPT\>
\<%
Function GetSongTitle(RadioServer)

	On Error Resume Next
	Dim objXML
	Dim objTrans
	Dim objElements
	Dim strUrl
	Dim intStart
	Dim intEnd
	Dim strXML

	strUrl = RadioServer & "&mode=viewxml&date=" & sDate

	Set objXML = Server.CreateObject("Microsoft.XMLDOM")
	Set objTrans = Server.CreateObject("Microsoft.XMLHTTP")
	objXML.async = false

	objTrans.Open "GET", strUrl, false
	objTrans.Send objXML
	strXML = objTrans.responseText
	intStart = InStr(1,strXML,"\<SHOUTCASTSERVER\>")
	intEnd = Len(strXML)
	strXML = Mid(strXML,intStart,intEnd)
	objXML.loadXML strXML
	Set objElements = objXML.documentElement

	If Err.number\<\>0 Then
		GetSongTitle = "Förtillfället har vi uppehåll med musiken, välkommen åter!"
	Else
		GetSongTitle = objXML.childNodes.item(0).childNodes.item(8).text
	End If

	Set objXML = Nothing
	Set objTrans = Nothing
	Set objElements = Nothing
	End Function

strServer1 = "IP ADRESS SAMT LÖSENORD"

strTitle1 = GetSongTitle(strServer1)
%\>
\<%
Response.Expires = -1
Response.Buffer=True

Dim strServer2
Dim strLister1
%\>

\<SCRIPT LANGUAGE=javascript RUNAT=Server\>
var oDate = new Date();
var sDate = Server.URLEncode(oDate.toUTCString());
\</SCRIPT\>

Jätte tacksam för svar!

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

## #2 — SprayMaphia, 2005-07-10T23:04Z

Var har du fått scriptet ifrån? Om du har kodat det själv, får jag låna det?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/57409-visa-å-ä-ö-med-showsong-från-winamp