Video Testimonials

Click on any one of the links to view the video. Please note that it may take a few minutes for the video to download to depending on the size.

<% dim path, directory directory = request.QueryString("d") directory = "/videos/"&directory&"/" 'response.write directory & "
" path = Server.MapPath(directory) ListFolderContents path sub ListFolderContents(path) dim fs, folder, file, item, url, itemname set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) 'Display the target folder and info. ' Response.Write("

" & vbCrLf) ' 'Display a list of sub folders. ' for each item in folder.SubFolders ' 'ListFolderContents(item.Path) ' next 'Display a list of files. Response.Write("
" & vbCrLf) If folder.Files.count <>0 then for each item in folder.Files url = MapURL(item.path) itemname = StripExt(item.Name) Response.Write("
• " _ & itemname & " - " _ & FormatNumber((item.Size/1000000),2) & " (mb)" _ & "
" & vbCrLf) next Else Response.write "There are currently no videos available
" End If Response.Write("
" & vbCrLf) end sub function MapURL(path) dim rootPath, url, intpos 'Convert a physical file path to a URL for hypertext links. rootPath = Server.MapPath("/") url = Right(path, Len(path) - Len(rootPath)) MapURL = Replace(url, "\", "/") end function function StripExt(url) intpos = InStrRev(url,".") StripExt = Left(url, (intpos-1)) end function %>