problem med file objects

Hejsa

Her er lidt kode til at starte med:

Response.Write "<font color='#000000' face='Arial' size='1'>&nbsp;&nbsp;<a href=""" & objfolder &  "/"  &  objFileItem.Name &""""">" & objFileItem.Name  & "</a>"

Meningen er at "objfolder" lister stien til filen og "objFileItem.Name" er selve filen. Det virker på sin vis fint på selve serveren men ikke udefra...grunden til dette er at "objfolder" lister den fysiske sti og det går jo ikke udefra....kan I se hvad der skal ændres??


Her er lidt mere kode:
<%
'Response.Write ShowSub  & "<br>"
'Response.Write strPhysicalPath
'Response.End

  SiteName = request.servervariables("script_name")
  strPhysicalPath = Server.MapPath(ShowSub)
  If ShowSub > " " then
    ShowSub = Replace(ShowSub, " ", "%20")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files
   

For Each objFileItem in objFolderContents
      ShowPic = Replace(objFileItem.Name, " ", "%20")
      Response.write "<tr><td>"
      Response.Write "<font color='#000000' face='Arial' size='1'>&nbsp;&nbsp;<a href=""" & objfolder &  "/"  &  objFileItem.Name &""""">" & objFileItem.Name  & "</a>"
      Response.write "</td></tr>"
    Next
    Set objFSO = Nothing
  End if
  %>