Billed gallery hjælp

Hejsa

Jeg mangler hjælp til af lave størrelses format´en om, så den ikke resizer i billede, men derimod åbner op i f.eks. 800x600 uden resize..

<title>Ski ferie 2006</title>
<script language="javascript" type="text/javascript">
    var anumber = 0;
    function popWin(file){
      titel = "Billed: "+(file.substring(file.lastIndexOf("/")+1,file.lastIndexOf(".")));
      newWin=window.open("","ResizeBillede"+(anumber++),"width=800,height=600,status=no");
      txt='<ht'+'ml><he'+'ad><ti'+'tle>'+titel+'<\57ti'+'tle><scri';
      txt+='pt language="javascript" type="text/javascript">';
      txt+='function resPic(){h=document.images[0].scrollHeight;';
      txt+='w=document.images[0].scrollWidth;window.resizeTo(w+6,h+32);}<\57scri';
      txt+='pt><\57he'+'ad><bo'+'dy style="overflow:hidden;';
      txt+='border:0px;margin:0px"><i'+'mg src="'+file+'" style="top:0px;left:0px;border:0px;';
      txt+='" onload="resPic();"><\57bo'+'dy><\57ht'+'ml>';
      newWin.document.write(txt);
      newWin.document.close();
    }
  </script>




<p><font color="BC0800">Vent med at klikke p&aring; billederne f&oslash;r de er loaded i din brower. </font></p>
<div align="center">&nbsp;
  <%
dim image_directory, image_height, image_width, Images_pr_Page, Images_Horizontal
image_directory = "billeder/"
image_height = "120"
image_width = "105"
Images_pr_Page = "12"
Images_Horizontal = "4"

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

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

  count_image = count_image +1
Next

dim Current_Page, Total_Pages, Total_Images, Page_Name

Page_Name = request.servervariables("script_name")
Total_Images = count_image

Current_Page  = request.querystring("page")
If Current_Page = "" or Current_Page = "0" then
    Current_Page = "1"
end if

Total_Pages = (Total_Images/Images_pr_Page)

if Total_Pages > int(Total_Pages) then
    Total_Pages = int(Total_Pages) + 1
end if

Image_Array = split(Image_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)

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

response.write "<table style=""width:100%;"">" & vbCrLf

    dim Count_Image_Prints, td_width
    Count_Image_Prints = 0

    td_width = int(100 / Images_Horizontal)

    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;"">" &_
                "<img src="""& image_directory &"/"& Image_Array(I) &""" border=""0"" style=""width:"& image_width &"px;height:"& image_height &"px;""  onmouseover=""winStatus(this);"" onmouseout=""window.status='';"" onclick=""popWin('"& image_directory &"/"& Image_Array(I) &"');"" />" &_
                    "</td>" & vbCrLf

        If int(Count_Image_Prints) = int(Images_Horizontal) then
            response.write "</tr>" & vbCrLf
            Count_Image_Prints = 0
        end if
    Next

    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="""& Page_Name &"?page="& I &""">" &_
                    I &_
                "</a> "
            else
                response.write " <span style='font-size:14px'>["& I &"]</span> "
            end if
        Next

        response.write "</td>" & vbCrLf &_
    "</tr>" & vbCrLf &_
"</table>" & vbCrLf
%>
</div>
<p>&nbsp;</p>
<p><p align="center">&nbsp;</p>