webForumDet fria alternativet

Visa å ä ö med showsong från Winamp

ASP

1 svar · 337 visningar · startad av radiomg

Medlem sedan okt. 200218 inlägg
Frågan#1

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!

Medlem sedan jan. 2004128 inlägg
#2

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

252 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)