<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> WyldLife Video Viewer <% sFolder = Trim(Request.Querystring("Folder")) If sFolder = "" Then sFolder = "Wyldlife" sVideo = Trim(Request.Querystring("Video")) If sVideo = "" Then sVideo = "WyldLife Challenge" Set oFS = CreateObject("Scripting.FileSystemObject") %>
More Videos: 
<% If oFS.FileExists("d:\Inetpub\Media\" & sFolder &"\" & sVideo & ".txt")=True Then 'Info File exists, Display informational text file above video player cInfoFile = "d:\Inetpub\Media\" & sFolder &"\" & sVideo & ".txt" cForReading = 1 sInfoText = oFS.OpenTextFile(cInfoFile,cForReading).ReadAll %> <% End If %>
    <%= sInfoText %>  
     
  Select Connection Speed
Video Information
  <%=sVideo%>
Select a Connection speed to start video


  All WyldLife Videos
<% 'Get video file list If sFolder <> "" Then bVideosExist = "False" Set colFiles = oFS.GetFolder("d:\Inetpub\Media\" & sFolder).Files For each oFile in colFiles If Right(oFile.Name,4)=".wmv" Then sFileDisplay = Left(oFile.Name,Instr(oFile.Name,".")-1) sFileDisplay = Replace(sFileDisplay,"Lo","") sFileDisplay = Replace(sFileDisplay,"Hi","") If sFileDisplay <> sLastFile Then 'Both a Hi and Lo version exist - only display one Response.Write "" Response.Write "" &_ sFileDisplay & "
" End If sLastFile = sFileDisplay bVideosExist = "True" End If Next If bVideosExist="False" Then Response.Write "No videos found" End If %>
 
<% If oFS.FileExists("d:\Inetpub\Media\" & sFolder &"\" & sVideo & "Lo.wmv")=True or oFS.FileExists("d:\Inetpub\Media\" & sFolder &"\" & sVideo & "Hi.wmv")=True Then 'Low speed version exists %> Problems? Here's a direct link to the video.
<% End If %> <% If oFS.FileExists("d:\Inetpub\Media\" & sFolder &"\" & sVideo & "Lo.wmv")=True Then 'Low speed version exists %> DIAL-UP     <% End If %> <% If oFS.FileExists("d:\Inetpub\Media\" & sFolder &"\" & sVideo & "Hi.wmv")=True Then 'Hi speed version exists %> BROADBAND <% End If %>


<% 'Get IPod download file list If sFolder <> "" Then bIPodVideosExist = "False" Set colFiles = oFS.GetFolder("d:\Inetpub\Media\Wyldlife\").Files For each oFile in colFiles If Right(oFile.Name,4)=".m4v" Then sFileDisplay = Left(oFile.Name,Instr(oFile.Name,".")-1) sFileSize = oFile.Size/1024/1024 sFileSize = Left(sFileSize, InStr(sFileSize,".")+1) sFileSize = "  " & sFileSize & " (MB)" 'Response.Write "" Response.Write "" & sFileDisplay & "" & sFileSize & "
" bIPodVideosExist = "True" End If Next If bIPodVideosExist="True" Then %> <% Else %> <% End If End If %>
Older Media Players like version 6.4 and Real Media Player are not supported for this video.