Function Openwin(mradiolink,mRadioStation)
		'mradiolink = Replace(Replace(Replace(Replace(mradiolink,"zyxzx","a"),"147.747","."),"kmnvk","e"),"junnopier","&")
		mradiolink = Replace(Replace(Replace(mradiolink,"zyxzx","a"),"147.747","."),"kmnvk","e")
		'msgbox mradiolink
		window.open "uplayer.asp?radiolink=" & mradiolink & "&radiostation=" & mRadioStation ,"ePlanetRadio","top=50,left=50,width=470,height=240,menubar=no,scrollbars=no,status=yes,location=no,directories=no,copyhistory=no"
    End Function

    Function ChangeBGColor(tID,nBGCol)
        document.getElementById(tID).style.background = nBGCol
    End Function

    Function RestoreBGColor(tID,oBGCol)
        document.getElementById(tID).style.background = oBGCol
    End Function