<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Video Viewer <% On Error Resume Next sFolder = Trim(Request.Querystring("Folder")) If sFolder = "" Then sFolder = "Young Life" 'sVideo = Trim(Request.Querystring("Video")) 'If sVideo = "" Then sVideo = "Camp Promotional Video" Set oFS = CreateObject("Scripting.FileSystemObject") 'Get the video name from querystring or most recent video if it exists If Trim(Request.Querystring("Video")) = "" Then sVideo = "Camp Promotional Video" Else sVideo = Trim(Request.Querystring("Video")) End If If oFS.FileExists("d:\Inetpub\Media\Camps\" & sFolder & "\" & sVideo & "Hi.wmv")=False and _ oFS.FileExists("d:\Inetpub\Media\Camps\" & sFolder & "\" & sVideo & "Lo.wmv")=False Then sVideo = "False" End If %>
More Videos: 
<% If oFS.FileExists("d:\Inetpub\Media\Camps\" & sFolder & "\" & sVideo & ".txt")=True Then 'Info File exists, Display informational text file above video player cInfoFile = "d:\Inetpub\Media\Camps\" & sFolder & "\" & sVideo & ".txt" cForReading = 1 sInfoText = oFS.OpenTextFile(cInfoFile,cForReading).ReadAll %> <% End If %>
    <%= sInfoText %>  
     
  <% If sVideo <> "False" Then %> Select Connection Speed

<% Else %> Select a Video

<% End If %>
<%= sFolder %> Camp
   <% If sVideo = "False" Then Response.write "Select a Video" Else Response.write sVideo End If %>
Select a Connection speed to start video


  All Videos for This Camp
<% 'Get video file list If sFolder <> "" Then bVideosExist = "False" Set colFiles = oFS.GetFolder("d:\Inetpub\Media\Camps\" & 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 %> No videos found <% End If End If %>
 
<% If oFS.FileExists("d:\Inetpub\Media\Camps\" & sFolder & "\" & sVideo & "Lo.wmv")=True or oFS.FileExists("d:\Inetpub\Media\Camps\" & 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\Camps\" & sFolder & "\" & sVideo & "Lo.wmv")=True Then 'Low speed version exists %> DIAL-UP     <% End If %> <% If oFS.FileExists("d:\Inetpub\Media\Camps\" & 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\Camps\" & sFolder).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.