Data displayed from dropdown moving down the page

Below is the code in my sub that is displaying the inventory when a color is chosen from a dropdown menu.  When you select the first color in the list it lists the inventory directly next to 'Available Inventory:' When you select the second color it moves down 2 lines, the third color moves down 3 lines.  I assume it has to do with my loop, any ideas?

    intrecordcount = objRS.recordcount
    stylecount = 0

    response.Write "<tr><td><font size=""2pt"">Available Inventory: </font></td>"
    
    while not objRS.eof
    
    stylecount = stylecount + 1
    
    response.Write "<td>"& vbCRLF

    if request.QueryString("Color_id") <> "" then    'if there is a color selected show that colors inventory
        if clng(objrs.fields("color_id")) = clng(request.QueryString("Color_id")) then
            if isnull(objRS.fields("Color_value")) then
            else
            response.write ("<font size=""2pt"">"&objRS.fields("Color_value")&" - </font>")
            end if
            if isnull(objRS.fields("Size_value")) then
            else
            response.write ("<font size=""2pt"">"&objRS.fields("Size_value")&" - </font>")
            end if
            response.Write ("<font size=""2pt"">"&objRS.fields("Inventory")&"</font>")    
            end if
         end if


    if intrecordcount = stylecount then
        response.Write "</td></tr>"
    else
       response.Write "</td></tr><tr><td>"
    end if
   
    objRS.movenext
    wend

    response.Write "<tr><td colspan=""2""><hr color=""dfdfdf"" /></td></tr>"& vbCRLF

Select allOpen in new window