<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Young Life Video Viewer <% sFolder = Trim(Request.Querystring("Folder")) If sFolder = "" Then sFolder = "Other" sVideo = Trim(Request.Querystring("Video")) If sVideo = "" Then sVideo = "Summer Staff Promo" 'sets default video is one is not specified Set oFS = CreateObject("Scripting.FileSystemObject") %>
More Videos: 
     
  Select Connection Speed
Video Information
  <%=sVideo%>
Select a Connection speed to start video
  <% If oFS.FileExists("e:\Inetpub\Media\" & sFolder & "\" & sVideo & ".txt")=True Then 'Info File exists, Display informational text file above video player cInfoFile = "e:\Inetpub\Media\" & sFolder & "\" & sVideo & ".txt" cForReading = 1 sInfoText = oFS.OpenTextFile(cInfoFile,cForReading).ReadAll Response.Write sInfoText & "

" End If %>
<% If oFS.FileExists("e:\Inetpub\Media\" & sFolder & "\" & sVideo & "Lo.wmv")=True or oFS.FileExists("e:\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("e:\Inetpub\Media\" & sFolder & "\" & sVideo & "Lo.wmv")=True Then 'Low speed version exists %> DIAL-UP     <% End If %> <% If oFS.FileExists("e:\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("e:\Inetpub\Media\" & sFolder).Files For each oFile in colFiles If Right(oFile.Name,4)=".m4v" and InStr(oFile.Name, sVideo) 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.