problem med første record...

jeg har nedenunder et stykke kode som udskriver en række billeder på en lang række, alle sammen med højden 100 og relativ bredde. Det virker fint, bortset fra at den første post (rs1(1)) første gang retunerer 0.

Dette vil sige at det første billede har en bredde på 0, mens resten virker. Hvor går det galt. Nogen løsningsforslag ?


<TABLE BORDER=\"0\"><TR><TD>

<%
  Dim Img
  sub CheckFile (strFileName)
    set Img = Server.CreateObject (\"ImgSize.Check\")
    Img.FileName = strFileName
    if Img.Error <> \"\" then
      Response.Write \"An error occurred in processing this image.<br>\"
      Response.Write \"The error was: <b>\" & Img.Error & \"</b>\"
    else
      scaledimagesize = int(Img.Width /(Img.Height/100))
    end if
    set Img = nothing
  end sub

SQL1 = \"SELECT id, filename, mediatype FROM image WHERE mediatype =\'image\'\"
set rs1 = cn.execute(SQL1)
rs1.movefirst
do while not rs1.eof
imagesize = (rs1(1))
CheckFile (server.mappath(\"/webeditor/imageupload/\"&imagesize))
%>

<A HREF=\"../mediapreview.asp?imageid=<%response.write (rs1(0))%>\">
<IMG SRC=\"imageupload/<%response.write (rs1(1))%>\" WIDTH=\"<%response.write scaledimagesize%>\" HEIGHT=\"100\" BORDER=\"0\">
</A>

<FONT FACE=\"Arial, Helvetica, sans-serif\" SIZE=\"1\"><%response.write (rs1(1))%></FONT><BR><BR>
<FONT FACE=\"Arial, Helvetica, sans-serif\" SIZE=\"1\">
filnavn:
<BR>
<BR>
inds&aelig;t &oslash;verst p&aring; siden<BR><BR>inds&aelig;t nederst p&aring; siden<BR>
<BR>
slet<BR>
</FONT>
</TD><TD>
<%
rs1.movenext
loop
%>
</TD><TD>
</TABLE>