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.