'*********************************************************
'Referenced by published pages with Multimedia elements(windows media player type only).
'The reason to have both vbscript and javascript is that videos encoded by wmp version 7 
'and above will not play in lower versions. Therefore, we need to detect wmp version.
'However, the javascript detection from microsoft support site was generating errors,
'so we decided to use vbscript for wmp version detection. But Netscape didn't like vbscripts,
'so we still need to keep javascript for Netscape.
'*********************************************************
Sub wmpVB(width, height, sourceFile, uiMode, autoPlay, showControl, repeat)
	On Error Resume Next
	lngMP70 = IsObject(CreateObject("WMPlayer.OCX"))
	dim html
	html = "<object id=MediaPlayer "
		If (lngMP70) Then
			html = html & "classid=CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6" & " standby=""Loading Microsoft Windows Media Player components..."" "
			html = html & "type=""application/x-oleobject"" width=""" & width & """ height=""" & height & """>"
			html = html & "  <param name=""url"" value=""" & sourceFile & """>"
			html = html & "  <param name=""AutoStart"" value=""" & autoPlay & """>"
			html = html & "  <param name=""Loop"" value=""" & repeat & """>"
			html = html & "  <param name=""ShowControls"" value=""" & showControl & """>"
			html = html & "  <param name=""uiMode"" value=""" & uiMode & """>"
			html = html & "  <div style=""position: absolute; top: 25px; left: 0px;"">"
			html = html & "    <a href=""http://www.microsoft.com/windows/windowsmedia/download/"">Windows Media Player Required</a>"
			html = html & "  </div>"
			html = html & "</object>"
		Else
			html = html & "<object id=MediaPlayer " & "classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"
			html = html & "  codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,5,715"
			html = html & "  standby=""Loading Microsoft Windows Media Player components..."" "
			html = html & "  type=""application/x-oleobject"" width=""" & width & """ height=""" & height & """>"
			html = html & "  <param name=""FileName"" value=""" & sourceFile & """>"
			html = html & "  <param name=""AutoStart"" value=""" & autoPlay & """>"
			html = html & "  <param name=""Loop"" value=""" & repeat & """>"
			html = html & "  <param name=""ShowControls"" value=""" & showControl & """>"
			html = html & "  <div style=""position: absolute; top: 25px; left: 0px;"">"
			html = html & "    <a href=""http://www.microsoft.com/windows/windowsmedia/download/"">Windows Media Player Required</a>"
			html = html & "  </div>"
			html = html & "</object>"
		End If
	document.write html
END Sub