Var har du fått scriptet ifrån? Om du har kodat det själv, får jag låna det?
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!
