Hjælp til filsystem, der skal billeder med på!

Nu er det sådan at jeg har lavet en side der kan vise mapper og filer i en bestemt mappe. Nu vil jeg også godt ligge et billede til de fil navne jeg har valgt.

"jpg,txt,bmp,gif,mdb,doc,dot,rtf,ans,xls" <--- det er de filer jeg har valgt ind til videre. Jeg har også billederne til dem, men kan ikke få siden til at ligge det billede på siden som passer til forskellige filtyper.

Her er hele koden:

<%
 
  sti = "/download"
  ShowSub = sti & request("ShowSub")
  ShowSubLink = request("ShowSub")
  strPathInfo = ShowSub
  strPhysicalPath = Server.MapPath(strPathInfo)
 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(strPhysicalPath)
 
  For each Folder in objFolder.SubFolders
    If Left(Folder.Name,1)<>"_" Then
      Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "/"
      Response.Write(Replace(Folder.Name, " ", "%20"))
      response.write """>"
      Response.Write "<img border='0' src='/sider/pics/bag/folder2.gif' width='15' height='13'> "
      Response.Write Folder.Name
      Response.Write "<br>"
    End if
  Next
 
  Set objFSO = Nothing
 
  sti = "/download"
  ShowSub = sti & request("ShowSub")
  ShowSubLink = request("ShowSub")
  strPathInfo = ShowSub
  strPhysicalPath = Server.MapPath(strPathInfo)
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(strPhysicalPath)

    If ShowSub > " " then
    ShowSub = ShowSub
    strPhysicalPath = Server.MapPath(ShowSub)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files

    Response.Write "<table width='100%'>"

    For Each fil in objFolderContents
      if InStr(1,"jpg,txt,bmp,gif,mdb,doc,dot,rtf,ans,xls", LCase(objFSO.GetExtensionName(fil.name))) > 0 then   
        arrayBuild = arrayBuild & fil.name & "|"
      end if
    next
    if arrayBuild <> "" then arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
 
    myArray = Split(arrayBuild, "|")
    antalBillederPrSide = 20
    maxCols = 2
    noCols = 0
    start = Request.Querystring("start")
    if start = "" then start = 0 
    Antalsider = int(ubound(myarray) / antalBillederPrSide)
    for i = start to (start + antalBillederPrSide-1)
      if not i > ubound(myarray) then
        if noCols = 0 then Response.Write "<tr>"
        Response.write "<td>"
        Response.Write "<a href=""" & ShowSub & "/" & myArray(i) &""" target='_blank' title='" & myArray(i) & "'>" & left(myArray(i), 15) & ".....</a>"
        Response.write "</td>"
        noCols = noCols + 1
        if noCols = maxCols then
          noCols = 0
          Response.Write "</tr>"
        end if
      else
        nesteside = 1
      end if
    Next
    if noCols > 0 then Response.Write "</tr>"
    response.write "<tr><td colspan=""3"">"
    if start <> 0 then
      response.write "<a href=""" & siteName & "?start=" & (start - antalBillederPrSide) & "&ShowSub="& request("ShowSub") & """>Forrige</a>"
    end if
    response.write(" ")
    if nesteside <> 1 then
      response.write "<a href=""" & siteName & "?start=" & (start + antalBillederPrSide) & "&ShowSub="& request("ShowSub") & """>Næste</a>"
    end if
    response.write "</td></tr>"

    Set objFSO = Nothing
  End if
%>