Web Development

/* comments by bma, 10/06/2007<br />
    /* here we retrieve the highest value in imgPosition<br />
    /* this determines how many image 'blocks' we're displaying */<br />
    <%<br />
    dim rsMaxImagePosition <br />
    strSQL = "select MAX(imgPosition) as MaxImgPosition from tblImageRotate"<br />
    set rsMaxImagePosition = emSQLGetStaticReadOnlyRS(strSQL, Application("strDSN"))<br />
<br />
    //for every image block, we create a new javascript array, incremented by 1<br />
    dim rsImageRotate<br />
    dim i<br />
    for i = 1 to rsMaxImagePosition("MaxImgPosition")  <br />
        //we pull the imageID from tblImageRotate, and also retrieve the GUIDs from tblImages<br />
        strSQL = "SELECT tblImageRotate.fldImagesID, tblImageRotate.imgPosition, tblImages.fldImageGUID " & _<br />
            "from tblImageRotate, tblImages " & _<br />
            "where tblImageRotate.fldImagesID = tblImages.fldImagesID " & _<br />
            "and tblImageRotate.imgPosition = " & i<br />
        set rsImageRotate = emSQLGetStaticReadOnlyRS(strSQL, Application("strDSN"))<br />
        <br />
        //for every row in a position, or 'block', we write a new row in the array<br />
        response.Write "var fadeimages" & i & "=new Array()" & VBCRlf <br />
            dim x<br />
            x = 0<br />
            while not rsImageRotate.eof<br />
               response.Write "fadeimages" & i & "[" & x & "]=['/images/thumbnail/" & server.urlencode(rsImageRotate("fldImageGUID")) & "', '/searchresults.asp?n=" & rsImageRotate("fldImagesID") & "&enlarge=1', '']" & VBCRlf<br />
                x = x + 1<br />
               rsImageRotate.movenext<br />
            wend<br />
            response.write VBCRlf<br />
    next<br />
    %>