English Hymn PowerPoints

<% path = Server.MapPath(".") Set fso = CreateObject( "Scripting.FileSystemObject" ) Set theCurrentFolder = fso.GetFolder( path ) Set curFiles = theCurrentFolder.Files sortBy = 0 For Each fileItem in curFiles ftype = fileItem.Type fname = fileItem.Name fext = InStrRev( fname, "." ) If fext < 1 Then fext = "" Else fext = Mid(fname,fext+1) If fext = ("ppt") Then Response.Write "" & fileItem.Name & "" & "
" End If Next %>