billed system fejl

www.s-web.dk/TMS/screen.asp

her er koden,  prøv at kigge på page 4 på linket, der fucker det lige som lidt op. den skal kun vise to billeder pr side.


dim image_directory, image_height, image_width, Images_pr_Page, Images_Horizontal


image_directory = "screen/S"

image_height = ""
image_width = "200"
Images_pr_Page = "2"
Images_Horizontal = "3"
'*** Definere de forskellige variable...

dim count_image, image, Image_Array
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath(image_directory))
'*** Definere objekter

For each image in allfiles.files
  Image_Array = Image_Array + image.Name & ","

  count_image = count_image +1
Next
'*** Tæller antallet af filer, samt ligger alle deres navne ind i en kommasepereret streng..

dim Current_Page, Total_Pages, Total_Images, Page_Name

Page_Name = request.servervariables("script_name")
Total_Images = count_image
'*** Sætter forskellige variable.. Page_name er navnet på siden, Total_Images er antallet af billeder

Current_Page  = request.querystring("page")
If Current_Page = "" or Current_Page = "0" then
    Current_Page = "1"
end if
'*** Sikre at hvis Current_Page der er den valgte side ikke eksistere, så sættes den til side 1..

Total_Pages = (Total_Images/Images_pr_Page)
'*** Beregner antallet af sider

if Total_Pages > int(Total_Pages) then
    Total_Pages = int(Total_Pages) + 1
end if
'*** Sikre at der er plads til alle billederne

Image_Array = split(Image_Array,",")
'*** Splitter strengen til et array.

dim First_Image, Last_Image
First_Image = ((Current_Page-1)*(Images_pr_Page))+1
If First_Image =  "0" then
    First_Image = "1"
end if
Last_Image = (Total_Images-First_Image)
'*** Finder første og sidste billedenr. i arrayet ud fra den valgte side, samt antallet af billeder pr. side

if cint(Last_Image) > cint(Images_pr_Page) then
    Last_Image = round(First_Image-1) + round(Images_pr_Page)
else
    Last_Image = (First_Image + Last_Image)
End if
'*** Sikre at sidste billede findes...

response.write "<form name=""myform"" method=""post"" action""mmm""><table style=""width:100%;"">" & vbCrLf

    dim Count_Image_Prints, td_width
    Count_Image_Prints = 0

    td_width = int(100 / Images_Horizontal)
'*** Opskriver tabellen.
    dim I
    For I = (First_Image-1) to (Last_Image-1)
        Count_Image_Prints = Count_Image_Prints + 1

        If int(Count_Image_Prints) = int("1") then
            response.write "<tr>" & vbCrLf
        end if

        response.write "<td style=""width:"& td_width &"%;text-align:center;"">" &_
            "<a href=""screen/L/"& Image_Array(I) &""" target=""_blank"">" &_
                "<img src="""& image_directory &"/"& Image_Array(I) &""" border=""0"" style=""width:"& image_width &"px;;height:"& image_height &"px;"" />" &_
            "</a></td>" & vbCrLf

        If int(Count_Image_Prints) = int(Images_Horizontal) then
            response.write "</tr>" & vbCrLf
            Count_Image_Prints = 0
        end if
    Next
'*** For-løkke der skriver billederne ud på siden..

    response.write "</tr>" & vbCrLf &_
    "<tr>" & vbCrLf &_
        "<td colspan="""& Images_Horizontal &""" style=""width:100%;text-align:center;"">" & vbCrLf

        For I = 1 to Total_Pages
            If NOT Cint(Current_Page) = Cint(I) then
                response.write " <a href=""screen.asp?page=" & I & """>" &_
                  I &_
                "</a> "
            else
                response.write " ["& I &"] "
            end if
        Next
'*** For-løkke der skriver antallet af sider, samt markere den aktuelle side..

        response.write "</td>" & vbCrLf &_
    "</tr>" & vbCrLf &_
"</table></form>" & vbCrLf