Download Documents and
Forms
- Click on link to view in your browser
- Right click on the link and click on "Save Target As.." to
download
to your computer to Print
<%
' Change this to a virtual path to the folder you want to review for example:
DOCS_FOLDER = "http://www.lopca.org/dwnload.htm"
' Comma separated list of acceptable file types
FILE_EXTENSIONS = UCase("PDF,DOC")
' 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
%>
Glossary
 Adobe
PDF
Adobe PDF is a universal file format that retains all the elements
of a printed document as an electronic image that can be viewed,
navigated, forwarded to others, or printed exactly as it appears
on screen, using the free Adobe Acrobat Reader software.
Download Adobe Acrobat Reader
Microsoft Word
Links indicated by the Word icon will open the document using
the word processing package you have loaded on your computer.With the free Microsoft Word Viewer 97/2000, if you do not have
Word you can open and view Word documents within your browser.
Download Microsoft Word Viewer
|