%@LANGUAGE="VBSCRIPT"%> <% Option Explicit Dim strDocsPath, strDocsPhysicalPath Dim objFSO, objFolder, objFiles, objFile Dim strName, strFile, strType, lngSize, strDate ' NOTE: set the following line to the folder to display strDocsPath = "docs" ' 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) %> <%If Session("sesUserAccess") <> 1 Then Response.Redirect "http://www.erakeyteam.com/riclog/form.asp"%>
|
Welcome - ERA Key Realty Services Extranet - Hello <% Response.Write Session("user") %> |