problemer med script (Foto album)

Hej
Dette er et script på et foto album.
Kan I gennemskue dette...
Der hvor mit problem er at jeg skal starte med at skrive hvor mange billeder jeg har i en mappe med billeder. Og når jeg gør det, så kan jeg ikke i starten få den til at vise det første billede.. Der er afmærket at der skulle være et billede, men det er først når man bladre videre at billederne dukker op. Hvad sker der ??

Og kan man lave et skript som ændre på billedet størrelse så alle er ens ???

Jeg håber der er en EKSPERT der kan hjælpe mig..

Morten

--------------------------------------------------------
<%@ Language=VBScript %> 
<%
response.buffer="true"

'NUMBER OF PHOTOS - change only this - rest stays the same
num_photos = "4"


'START FUNCTIONS

'-----------------------------

FUNCTION procPage(byVal numPhotos)
  photoNum = request.querystring("photoNum")
  IF photoNum = "2" THEN
      nextPage = "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?photoNum=3"">Next</a>"
      prevPage = "<a href=""java script:window.close()"">Back</a>"
  ELSEIF photoNum = numPhotos THEN
      nextPage = "<a href=""java script:window.close()"">End</a>"
      prevPage = "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?photoNum=" & (photoNum - 1) & """>Back</a>"
  ELSE
      nextPage = "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?photoNum=" & (photoNum + 1) & """>Next</a>"
      prevPage = "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?photoNum=" & (photoNum - 1) & """>Back</a>"
  END IF
  procPage = "<p align=""center""><font face=""Verdana"" size=""2"">&lt;" & prevPage & "&nbsp;&nbsp; |&nbsp;&nbsp; " & nextPage & " &gt;</font>"
END FUNCTION

'------------------------------

FUNCTION showPhoto(byVal imgFolder, byVal imgType)
  showPhoto = "<img src=""" & imgFolder & "/" & request.querystring("photoNum") & "." & imgType & """>"
END FUNCTION

'------------------------------
%>
<html>
<head>
<title>Billede <%= request.querystring("photoNum") %></title>


<style fprolloverstyle>A:hover {color: #cccccc}
</style>
</head>

<body bgcolor="#cccccc" text="#336699" link="#336699" vlink="#336699">
        <div align="center">
            <table border="0" width="355">
                <tr>
                    <td width="100%" valign="top">
                        <table border="0" width="355" height="264" cellspacing="0" cellpadding="0">
                            <tr>
                                <td width="352" colspan="3" valign="middle" height="263">
                                    <p align="center"><%= showPhoto("images", "jpg") %></p>
                                </td>
                            </tr>
                            <tr>
                                <td width="100" height="26" valign="bottom"><strong><font size="2" face="Arial">&copy; Klub 3</font></strong></td>
                                <td width="152" align="center" valign="bottom"><%= procPage(num_photos) %></td>
                                <td width="100" height="26" valign="bottom">
                                    <p align="right"><a href="../../Billeder.htm"><img src="x.gif" alt="Close (X) Window" border="0"></a>
                                </td>
                            </tr>
                        </table>
                    </td>
                </tr>
            </table>
        </div>
    </body>
</html>
--------------------------------------------------------