% dim dateNum, arrPicPath(5),arrPic(5), folderPic, strFolder, iCount, firstPic dateNum = request.QueryString("dn") if dateNum = empty then dateNum = 1 strFolder = cstr(dateNum) if len(strFolder)<2 then strFolder = "0" & strFolder folderPic = "images/gallery/picture_" & strFolder & "/" for iCount = 1 to 5 arrPic(iCount) = folderPic & "00" & iCount & "_small.gif" arrPicPath(iCount) = folderPic & "00" & iCount & ".gif" next firstPic = arrPicPath(1) %>