<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit 'Option Explicit requires that you declare all variables
Dim strDocsPath, strDocsPhysicalPath
Dim objFSO, objFolder, objFiles, objFile
Dim strName, strFile, strType, lngSize
' NOTE: set the following line to the folder to display
strDocsPath = "STXDocuments" 'NOTE: Change this setting to the folder in your directory that contains
'the files you want to list
' map the folder to a physical path
strDocsPhysicalPath = Server.MapPath(strDocsPath)
' create a system file object
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' create an object for the folder
Set objFolder = objFSO.GetFolder(strDocsPhysicalPath)
%>
Sponsers
