Giving virtual directory own look and feel

superkooi · December 27th, 2004, 07:26 AM

Hello,

I'm having several virtual directory's which i want to give my websites look and feel. Can anybody help me to get started with this

Thanx in advance

Snib · December 27th, 2004, 03:56 PM

What exactly are you looking for? A site design, aka a template?

I suggest getting Dreamweaver MX or FrontPage (they have many preloaded templates), or perhaps downloading a free CMS like PostNuke and grabbing a good theme.

-Snib - http://www.snibworks.com
Where will you be in 100 years?

superkooi · December 27th, 2004, 08:19 PM

I have this code

Code:

<HTML>
<HEAD>
<TITLE>AM Signalen</TITLE>
</HEAD>
<BODY>
 

<%
  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 cellpadding=5>
<TR align=center>
  <TH align=left>File Name</TH>
  <TH>Type</TH>
  <TH>File Size</TH>
  <TH>Last Modified</TH>
</TR>

<%
  For Each objFileItem in objFolderContents
%>

    <TR>
      <TD align=left>
      <A HREF="<%= objFileItem.Name %>">
      <%= objFileItem.Name %>
      </A>
      </TD>
      <TD align=right>
      <%= objFileItem.type %>
      </TD>
      <TD align=right>
      <%= objFileItem.size %>
      </TD>
      <TD align=right>
      <%= objFileItem.DateLastModified %>
      </TD>
    </TR>

<%
  Next
%>

</TABLE>
</BODY>
</HTML>

but it only show files in the directory where this asp file resides. I need to rewrite this code so i can specify a directory to list, for example http://www.mixz.local/amsignals