surra de lopping em tabela

Alguem poderia me ajudar ae:

Com o codigo abaixo eu listo 9 produtos por pagina em uma tabela de 3 linhas com 3 colunas cada linha dentro de cada coluna um produto.

Mas me perdi na paginação, e esta aparecendo o mesmo produto 9 vezes repetido por pagina.

Alguem ai poderia me dar uma luz devo estar errando na posição do while

<%

lCatID = FVal(RequestValue("CatID"))

If Fval(giItemsPerPage) > 0 Then

iPageSize = 1

Else

End If

If FVal(RequestValue("page")) <= 0 Then

iPageCurrent = 1

Else

iPageCurrent = CInt(RequestValue("page"))

End If

OpenDBConn

DoPageHeader

Response.Write "<TABLE WIDTH=""352"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""2"">"

sSQL = "SELECT catID, catName FROM tblQCCategories WHERE catID = " & SQLVal(lcatID)

Set rsCat = GobjConnect.Execute(sSQL)

If NOT rsCat.eof then

End If

rsCat.close

Set rsCat = Nothing

sSQL = "Select cadID, cadTopicID, cadTitle, cadContent, cadPrice, cadImage, " & _

 "cadName, cadAddress, cadCity, cadZip, cadState, cadCountry, cadPhone, " & _

 "cadEmail, cadcora, cadcorb, cadcorc, cadDatePosted, cadlink " & _

 "FROM tblQCAds WHERE cadTopicID = " & SQLVal(lcatID) & " " & _

 "ORDER BY cadDatePosted DESC"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.PageSize = iPageSize

rs.CursorLocation = 3 'adUseClient

rs.Open sSQL, gobjConnect, 3, 1, &H0001 'adOpenStatic, adLockReadOnly, adCmdText

If rs.eof then

Else

iPageCount = rs.PageCount

If iPageCurrent > iPageCount Then

iPageCurrent = iPageCount

End If

rs.AbsolutePage = iPageCurrent

iswitch = TRUE

Do While Not rs.eof AND rs.AbsolutePage = iPageCurrent

// CENTRO

for x = 1 to 3 'loop para linha

Response.Write "<tr>"

for y = 1 to 3 'linha para coluna

Response.Write "<td width=""107"" height=""170"">"

Response.Write "<table width=""117"" border=""0"" cellpadding=""0"" cellspacing=""0"" id=""produtos"">"

Response.Write " <tr> "

Response.Write " <td height=""72"" colspan=""3"" align=""center"" valign=""middle""><img src=""img/produtos/cozinha/" & rs.Fields("cadImage") & """ width=""107"" height=""71""></td>"

Response.Write " </tr>"

Response.Write " <tr> "

Response.Write " <td width=""16"" height=""85"" valign=""top"" rowspan=""2""> </td>"

Response.Write " <td width=""83"" valign=""top"" class=""paginacao"" height=""72""> "

Response.Write " <p>REF: " & rs.fields("cadCity") & "<br>"

Response.Write LEFT(rs.Fields("cadContent"), 150) & "... "

Response.Write " </td>"

Response.Write " <td width=""8"" valign=""top"" height=""85"" rowspan=""2""> </td>"

Response.Write " </tr>"

Response.Write " <tr>"

Response.Write " <td width=""83"" valign=""top"" class=""paginacao"" height=""13""><span class=""paginacao2""><a href=""#null"" onClick=""newWindow('QCViewDetail_cozinha.asp?id=" & rs.fields("cadID") & "','','660','460','resizable,status')"" class=""paginacaobanho""><font color=""#FF6010"">+ "

Response.Write " detalhes</font></a></span></td>"

Response.Write " </tr>"

Response.Write " <tr> "

Response.Write " <td height=""13"" align=""right"" valign=""bottom""> </td>"

Response.Write " <td height=""13"" align=""right"" valign=""top""><img src=""img/detalhe_produtos2.jpg"" width=""13"" height=""13""></td>"

Response.Write " <td height=""13"" align=""right"" valign=""bottom""> </td>"

Response.Write " </tr>"

Response.Write "</table>"

Response.Write "</td>"

next

Response.Write "</tr>"

next

//CENTRO

rs.MoveNext

	Response.Write "</tr>"

 

 

 Response.Write "</tr>"

 Response.Write "<tr> "

 Response.Write "<td height=""2"" colspan=""9"" valign=""top""><img src=""img/regua_cozinha.jpg"" width=""338"" height=""1""></td>"

//next

Loop

End If

rs.close

Set rs = Nothing

//Response.Write "</TABLE>"

TableFoot lCatID

PageNavigation

CloseDBConn

Sub PageNavigation

If iPageCount > 0 Then

Response.Write "<TABLE WIDTH=""352"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""2"">"

Response.Write "<TR bgcolor=""#FFFFFF"">"

 Response.Write "<BR><CENTER>" & gsPageNavOpen

 

 If iPageCurrent <> 1 AND iPageCurrent <> 0 Then

 Response.Write "<A HREF=""QCViewAds_cozinha.asp?CatID=" & lCatID & "&page="

 Response.Write iPageCurrent - 1

 Response.Write """>" & GLS_Previous & "</A>" & vbCrLf

 

 Else

 Response.Write GLS_Previous

 End If

 

 sPageNav = "" & Replace(GLS_PageNav,"%CURRENTPAGE%", iPageCurrent)

 sPageNav = Replace(sPageNav,"%TOTALPAGES%",iPageCount)

 Response.Write "    " & sPageNav & "    "

 

 If iPageCurrent < iPageCount Then

 Response.Write "<A HREF=""QCViewAds_cozinha.asp?CatID=" & lCatID & "&page="

 Response.Write iPageCurrent + 1

 Response.Write """>" & GLS_Next & "</A>" & vbCrLf

 Else

 Response.Write GLS_Next

 End If

 Response.Write gsPageNavClose & "</CENTER>"

 Response.Write "</TR>"

Response.Write "</TABLE>"

 

	End If

End Sub

Response.Write "</TABLE>"

%>

Teria de aparecer como abaixo mas 9 produtos diferentes por pagina

/applications/core/interface/imageproxy/imageproxy.php?img=http://www.plastigel.com.br/sos_produtos.gif&key=2bef717935b0593544cf7df090acd07c063ef7d07b3f4ef75eb34b36607c0267" alt="Imagem Postada" />