Weekly Sermon - 2011
 |
Date |
Sermon Title
|
Preacher
|
|
|
|
January |
|
|
Listen |
01/02 |
The Sinners Jesus Loved: Peter |
Ortiz |
|
Listen |
01/09 |
The Sinners Jesus Loved: Levi |
Ortiz |
|
Listen |
01/16 |
The Sinners Jesus Loved: The Sinful
Woman |
Ortiz |
|
Listen |
01/23 |
The Sinners Jesus Loved: The Lost Sons |
Ortiz |
|
|
01/30 |
What Jesus Continues To Do |
Cargo |
|
|
|
|
|
<%
' Change this to a virtual path to the folder you want to review for example:
DOCS_FOLDER = "."
' Comma separated list of acceptable file types
FILE_EXTENSIONS = UCase("MP3")
' creates an HTML list
strLinkList = "
"
' create the Windows Scripting Host object
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
'For each file in the folder, check its extension
For Each objFile In objFso.GetFolder( Server.MapPath(DOCS_FOLDER) ).Files
If CheckExtension(objFile.Name) Then
strLinkList = strLinkList & "- " & objFile.Name & "
"
End If
Next
strLinkList = strLinkList & "
"
' Actually spit out the links now:
Response.Write(strLinkList)
' User-defined function that strips the file extension from the file and
' determines if it is okay for use.
Function CheckExtension(strFileName)
blnRetVal = False
' Make sure there is an extension we can use:
If InStr(1,strFileName,".") > 0 Then
arrExtensions = Split(FILE_EXTENSIONS,",")
strFileExtension = UCase(StrReverse(Left(StrReverse(strFileName),InStr(1,StrReverse(strFileName),".")-1)))
For Each strExtension In arrExtensions
If strExtension = strFileExtension Then
blnRetVal = True
Exit For
End If
Next
End If
CheckExtension = blnRetVal
End Function
%>
