Path i script

Jeg har dette script, der skal vise alle billede-filerne i mappen:

--- start ---
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.GetFile(strPhysicalPath)
set objFolder = objFile.ParentFolder
set objFolderContents = objFolder.Files

for each objFileItem in objFolderContents
fname = objFileItem.Name
fext = LCase( Mid( fname, InStrRev( fname, "." ) ) )
if fext = ".jpg" or fext = ".gif" or fext = ".jpeg" then
%>
  <% Response.Write objFileItem.Name %>
<%
end if
next
%>
--- Slut ---

Men hvordan kan jeg angive en anden mappe end at det er mappen som selve filen ligger i? F.eks. ville jeg gerne have at siden ligger på www.domain.dk/billeder.asp og at den viser en liste over alle billederne i mappen www.domain.dk/images/


//Troels (FuZZy2)