%
Dim lngHits
Dim objCounter
Set objCounter = Server.CreateObject("MSWC.PageCounter")
objCounter.PageHit
lngHits = objCounter.Hits
Set objCounter = Nothing
%>
Just wait, the movie will play when it is loaded(~2.52 Megs)
Be Patient - Its a big file
Hit Reload to watch it again