Visa bilder ur en mapp, men länkar samt bilder blir fel?

Jaha nu ska jag försöka förklara vad mitt problem är. (kolla den bifogade filen också)

Jag tror att koden fungerar bra lokalt på datorn, men när jag lägger ut den på webben så vill den inte fungera riktigt som den ska,
själva namnet på bilden skriver den ju ut men inte bilderna, och länkarna blir inte heller rätt? vad är felet? :q

<% Mappen	= Server.MapPath("/_am/bilder/pics/" &Request.QueryString("dir"))

Set MappKoll	= Server.CreateObject("Scripting.FileSystemObject")
Set Mapp	= MappKoll.getFolder(Mappen)

PS = 4
       
   If Mapp.Files.Count Mod PS Then 
      Sidor = Mapp.Files.Count \ PS + 1 
   Else 
      Sidor = Mapp.Files.Count \ PS 
   End If
   Sida = Request.QueryString("sida")
   If Sida = "" Then 
       Sida = 1 
   End If  
    
   Start = (Sida - 1) * PS
   Slut = Start + PS

  If Mapp.Files.Count = 0 Then%>
       <tr> 
           <td>Finns inga bilder i denna mappen!</td> 
       </tr> 
   <%Else

   For Each File In Mapp.Files 

       bild = InStrRev(LCase(File.Name), "." ) 
       If bild < 1 Then bild = "" Else bild = Mid(LCase(File.Name),bild+1)

       If X < Start Then 
       ElseIf X < Slut Then%>
           <tr> 
		<td><a href="<%=Mappen%>/<%=File.Name%>" target="_blank"><img src="<%=Mappen%>/<%=File.Name%>" alt="" width="50" height="50" border="0">
		<br /><%=File.Name%></a><br /><%=Round(File.Size/1000, 1)%> kb</td>
           </tr><br /><br />
       <%Else 
          Exit For 
       End If 
       X = X + 1 
   Next
   End If
If Sidor > 1 Then%>

<tr>
  <td><hr width="100%" size="1" color="#000000" style="border:1px dashed #000000; " /></td>
</tr>
<tr>
  <td>
<%For i = 1 To Sidor
    If  i = CInt(Sida) Then
        Response.Write "<b>" & i & "</b>"
    Else
        Response.Write " <a href=index.asp?sida=" & i & ">" & i & "</a> "
    End If
Next%>
</td>
</tr>
    <tr>
      <td><hr width="100%" size="1" color="#000000" style="border:1px dashed #000000; " /></td>
    </tr>
<%End If%>