<% '***********************************************8 ' sort files for download '***********************************************8 Dim strThisPage strThisPage = Request.ServerVariables("SCRIPT_NAME") strThisPage = Right(strThisPage, Len(strThisPage) - 1) 'Path To Folder That holds Files To Download Here 'Default is the current Folder FILE_FOLDER = StripFileName(Request.ServerVariables("PATH_TRANSLATED")) 'Constants Const adVarChar = 200 Const adInteger = 3 Const adDate = 7 Const adFileTime = 64 Const adNumeric = 131 %> Downloads @ tonyklejna.com - Download List <%= Date() %> Download @ tonyklejna.com

Download video here

You can download the sample video for your iPhone, iPod, iTunes here. They are essentially the same file. For the techies; you can also download the source code of how this page was coded. Enjoy!
iPhone Filename: iPhone.m4v <% strSortHeader = Request.QueryString("sort") IF strSortHeader = "" Then Call GetAllFiles("") Else Call GetAllFiles(strSortHeader) End IF %>
File Name File Type File Size
iPod Filename: iPod.m4v
   
iTunes

You can subscribe to this video podcast by using iTunes (free).
In iTunes go to the menu item "Advanced" and then choose "Subscribe to Podcast..."
Copy the URL below into iTunes

Copy this address and paste it into your podcast application (like iTunes):
 

If you do not have iTunes and want another free and simple Podcast receiver try Juice at:
http://juicereceiver.sourceforge.net/index.php

 

     

<% '8*****************************************8 ' subroutines '8****************************************8 Sub GetAllFiles(strSortBy) Dim oFS, oFolder, oFile Set oFS = Server.CreateObject("Scripting.FileSystemObject") 'Set Folder Object To Proper File Directory Set oFolder = oFS.getFolder(FILE_FOLDER) Dim intCounter intCounter = 0 IF strSortBy = "" Then 'UnSorted (default) Dim FileArray() ReDim Preserve FileArray(oFolder.Files.Count, 5) For Each oFile in oFolder.Files strFileName = oFile.Name strFileType = oFile.Type strFileSize = oFile.Size ' strFilePath = oFile.Path ' strFileDtMod = oFile.DateLastModified FileArray(intCounter, 0) = strFileName FileArray(intCounter, 1) = "" & strFileName & "" FileArray(intCounter, 2) = strFileType FileArray(intCounter, 3) = strFileSize FileArray(intCounter, 4) = strFilePath FileArray(intCounter, 5) = strFileDtMod intCounter = (intCounter + 1) Next intRows = uBound(FileArray, 1) intCols = uBound(FileArray, 2) For x = 0 To intRows -1 Echo("") For z = 0 To intCols If z > 0 Then BuildTableCol(FileArray(x, z)) End IF Next Echo("") Next Else 'Sorted List Set oRS = Server.CreateObject("ADODB.Recordset") oRS.Fields.Append "Name", adVarChar, 500 oRS.Fields.Append "Type", adVarChar, 500 oRS.Fields.Append "Size", adInteger oRS.Fields.Append "Path", adVarChar, 500 oRS.Fields.Append "Date", adFileTime oRS.Open For Each oFile in oFolder.Files strFileName = oFile.Name strFileType = oFile.Type strFileSize = oFile.Size strFilePath = oFile.Path strFileDtMod = oFile.DateLastModified oRS.AddNew oRS.Fields("Name").Value = "" & strFileName & "" oRS.Fields("Type").Value = strFileType oRS.Fields("Size").Value = strFileSize oRS.Fields("Path").Value = strFilePath oRS.Fields("Date").Value = strFileDtMod Next oRS.Sort = strSortBy & " ASC" Do While Not oRS.EOF Echo("") BuildTableCol(oRS("Name")) BuildTableCol(oRS("Type")) BuildTableCol(oRS("Size")) ' BuildTableCol(oRS("Path")) ' BuildTableCol(oRS("Date")) Echo("") oRS.MoveNext Loop oRS.Close Set oRS = Nothing End IF EchoB("" & oFolder.Files.Count & " Files Available") Cleanup oFile Cleanup oFolder Cleanup oFS End Sub Function Echo(str) Echo = Response.Write(str & vbCrLf) End Function Function EchoB(str) EchoB = Response.Write(str & "
" & vbCrLf) End Function Sub Cleanup(obj) IF isObject(obj) Then Set obj = Nothing End IF End Sub Function StripFileName(strFile) StripFileName = Left(strFile, inStrRev(strFile, "\")) End Function Sub BuildTableCol(strData) Echo("" & strData & "") End Sub 'Not implemented Sub BuildTableRow(arrData) Dim intCols intCols = uBound(arrData) For y = 0 To intCols Echo("" & arrData(y) & "") Next End Sub %>