I have Marketing folder. Inside Marketing folder i have Jan folder, Feb folder, March folder.
I want to create a hyperlink that can display the folders inside Marketing folder.
Can you help?
<table width="596" border="0" cellpadding="0" cellspacing="0">
<tr><td bgcolor="003668">
<big><b</b></big></center>
</table>
<%
dim strpathinfo, strphysicalpath
strpathinfo = request.servervariables("PATH_INFO")
strphysicalpath = server.mappath(strpathinfo)
dim objfso, objfile, objfileitem, objfolder, objfoldercontents
set objfso = createobject("Scripting.FileSystemObject")
set objfile = objfso.getfile(strphysicalpath)
set objfolder = objfile.parentfolder
set objfoldercontents = objfolder.files
%>
<table width="596" border="0" cellpadding="0" cellspacing="0">
<tr align=center><td bgcolor="#E0E0E0"><font color="#CC6600" face=Verdana size=1>|<b>File Name</b>|</td>
<td bgcolor="#E0E0E0"><font color="#CC6600" face=Verdana size=1>|<b>Last Modified</b>|</td>
<td bgcolor="#E0E0E0"><font color="#CC6600" face=Verdana size=1>|<b>Last Accessed</b>|</td></tr>
<tr><td><br></td></tr>
<% For each objfileitem in objfoldercontents %>
<% If not objfileitem.name = "test.asp" then %>
<tr><td align=left bgcolor=white><font face=Verdana size=1>
<%= objfileitem.name %><%
response.write "</td><td align=center bgcolor=white><font face=Verdana size=1 color=660033>"
response.write objfileitem.datelastmodified
response.write "</td><td align=center bgcolor=white><font face=Verdana size=1 color=009900>"
response.write objfileitem.datelastaccessed
response.write "</td></tr>"
End If
Next
%>
<tr><td><br></td>
</table>
I think the code is wrong somewhere.
