Loopa till en viss höjd!!

Har en sida där jag ska loopa ut banners.
Banners kan vara antingen gif/jpg eller flash och jag har en max höjd på 800 där jag lagt in höjden på repsektive banner i db rs555("hojd").

Resultatet som denna kod genererar innebär att den loopar ut banners som tillsammans är högre än de 800 som är max höjd....

Har fetmarkerat min "räknare" som är x...hoppas det inte är för GRÖTIG KOD

Nu är det ett tag sedan som jag kodade.....kan vara som så att jag e lite ute och cyklar....

Hoppas ni kan hjälpa mig!!!

        <%
	aktiv = "1"
	stadID = request.querystring("stadID")

	sql555 = "SELECT * FROM tbl_reklam Where aktiv="&aktiv&" and  stadID="&stadID&" ORDER BY rand();"
	set rs555=conn.execute(sql555)
	%>

	<td valign="top" align="center">
	    <table width="200" border="0" bordercolor="red" cellpadding="0" cellspacing="0">
				<tr align="center" valign="top">
				     <td valign="top" height="110"><img src="../build/spacer.gif" width="1" height="110"></td>
				</tr>			
                                <tr>
				     <td valign="top" height="20"><img src="../build/spacer.gif" height="20" width="1"></td>
				</tr>
												
						
                        [B]<%x=0%>                     
			<%Do While Not rs555.EOF And  cInt(x) < 800 %>            [/B]           
			     <%filformat=RIGHT(rs555("bildNamn"), 4)%>
                        
                  [B]<%If Not filformat = ".swf" Then %>        [/B]          
                     <tr>
                  	<td align="center" valign="top">
                           <table bgcolor="#FFFFFF" height="<%=rs555("hojd")%>" width="<%=rs555("bredd")%>" border="0" cellpadding="0" cellspacing="0">
                  	      <tr align="center" valign="top">
					<td align="center" valign="top" height="<%=rs555("hojd")%>" width="<%=rs555("bredd")%>" valign="top">	
						<a href="<%=rs555("url")%>" target="_blank"><img src="/reklam_upload/<%=stadID%>/<%=rs555("bildNamn")%>" height="<%=rs555("hojd")%>" width="<%=rs555("bredd")%>" border="0"></a>
						<br><br>                                       	  
                                        </td>
			      </tr>	
                          </table>
                       </td>
                    </tr>
                    
		[B]<%Else%>	[/B]				
					 
                   <tr>
                      <td align="center" valign="top">
                         <table bgcolor="#FFFFFF" height="<%=rs555("hojd")%>" width="<%=rs555("bredd")%>" border="0" cellpadding="0" cellspacing="0">
                           <tr align="center" valign="top">
			      <td align="center" valign="top" height="<%=rs555("hojd")%>" width="<%=rs555("bredd")%>" valign="top">
                                  <OBJECT height="<%=rs555("hojd")%>" width="<%=rs555("bredd")%>" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
                                     codebase="http://download.macromedia.com/ pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"> 
                                     <PARAM NAME=movie VALUE="/reklam_upload/<%=stadID%>/<%=rs555("bildNamn")%>?clickTAG=<%=rs555("url")%>"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#ffffff> <EMBED src="/reklam_upload/<%=stadID%>/<%=rs555("bildNamn")%>?clickTAG=<%=rs555("url")%>" quality=high bgcolor=#ffffff height="<%=rs555("hojd")%>" width="<%=rs555("bredd")%>" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/ shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>
                                  </OBJECT>
                                  <br><br>                     	
                 	      </td>
                           </tr>
                         </table>
                     </td>
                  </tr>	
            
                   
                  <%End If%>              
                    
               [B]  <% x = cInt( x) + cInt(rs555("hojd"))%>
		 <%rs555.movenext%>	                        	
		 <%Loop%>	[/B]	
	  </table>		
       </td>