fejl i asp billedfremviser

Hej

jeg er gået i stå med et stukke kode til at vise billeder frem med. håber i har mod på at hjælpe...

det scriptet skal kunne er at liste de mapper med billeder i som alle er placeret i mappen billeder på serveren hvor stien er: www/web/billeder

dette virker fint. når man så klikker sig ind i mappen skalscriptet vise billederne i små størrelser 3 på hver linie. der skal så her være mulighed ofr at klikke på billedet og se det i stor størrelse...det har virket i en ande sammenhæng engang da jeg laved det år tilbage, men efter ikke at har programmeret i snart 4 år og lidt klipperri virker billedvisningen ikke længere...

koden kommer her. beklager vis det ser rodet ud.

<link rel="stylesheet" type="text/css" href="style.css">
<% if request("side") = "pic" then


folder = request("folder")
ImageDir = "" & folder & "/" ' Mappen med filerne

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

intPage = Request.Querystring("page")
        If isNumeric(intPage) = False Or intPage < 1 Then
        intPage = 1
        End If

intPageSize = 300 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

response.write "<br><h1>hej</h1><br>"
response.write "<br>Klik på billedet for at se det i forstørrelse<br>"
taeller = CInt(0)
For Each Image In objFiles
intFile = intFile +1

If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
  Response.Write "<a href='fil.asp?side=pic&zoom=yes&img=" & image.name & "#1'><img src='" & ImageDir & Image.Name & "' / width='25%' border='0'></a> "
  if taeller = 2 then
  taeller = CInt(-1)
  response.write "<br><br>"
  end if
End If
taeller = CInt(taeller + 1)
Next
response.write "<br><br>"
if request.querystring("zoom") = "yes" then
img = request.querystring("img")
response.write "<a name='1'><img src='" & imageDir & img & "'>"
end if

Response.Write "</p>"

Set objFS = Nothing

else
%>

  <h3>billeder</h3>
  <%
  sti = "billeder/"
  ShowSub = sti

  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 & "?side=pic&folder=" & ShowSubLink & Folder.name & "'><img src='mappe.jpg'border='0'>" & Folder.name & "</a>"
      Response.Write "<br>"
    End if
  Next

  Set objFSO = Nothing
  %>
 



<%
mappe = server.mappath(showsub)

'response.write "<form action='" & Curfile & "?action=create&sti=" & showsub & "' method='post'>"
'response.write "Opret ny fil i denne mappe<br> Filnavn og type: <input type='text' name='filename' class='textbox'>"
'response.write "<input type='submit' value='opret' name='submit'></form>"
'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
      Response.write "<tr><td>"

'if request.querystring("showsub") = "" then
'filen = ShowSublink & "/" & objFileitem.name
'else
'filen = ShowSublink & objFileitem.name
'end if
'        Response.Write "<a href='" & Curfile & "?side=edit&fil=" & filen & "'>" & objFileItem.Name  & "</a><br>"

       
      Response.write "</td></tr>"
'    Next
    Set objFSO = Nothing

 
end if

  %>
 
 
</center>
</html>

på forhånd tak for hjælpen