Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

chiper

surra de lopping em tabela

Por , em ASP Clássico

Recommended Posts

chiper    0

chiper
Postado

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

Imagem Postada

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

iPageSize = 1pra começar esta linha deve ser novenem vi o resto não sei se vai funcionar mas isso ja eh o inicio...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

axo que esse mesmo problema foi respondido em outro forum

isso eu não sei, eheheh

 

mas se o cara ainda precisa de ajuda pode colocar aqui...

Compartilhar este post

Link para o post
Compartilhar em outros sites

chiper    0

chiper
Postado

Boa tarde, agradeço muito a força até aqui, consegui acertar o lopping e a paginação mas da erro quando tem menos de nove produtos por pagina, erro:error '80020009' /admin/produtos/QCViewAds_cozinha.asp, line 123 o fonte que estou usando é o abaixo, alguem pode me ajudar onde estou errando o que falta?Obrigado!<%lCatID = FVal(RequestValue("CatID"))If Fval(giItemsPerPage) > 0 Then iPageSize = giItemsPerPageElse iPageSize=30End IfIf FVal(RequestValue("page")) <= 0 Then iPageCurrent = 1Else iPageCurrent = CInt(RequestValue("page"))End IfOpenDBConnDoPageHeaderResponse.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 thenEnd IfrsCat.close Set rsCat = NothingsSQL = "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 = iPageSizers.CursorLocation = 3 'adUseClientrs.Open sSQL, gobjConnect, 3, 1, &H0001 'adOpenStatic, adLockReadOnly, adCmdText// COMEÇA AQUIIf rs.eof thenElse iPageCount = rs.PageCount If iPageCurrent > iPageCount Then iPageCurrent = iPageCount End If rs.AbsolutePage = iPageCurrent iswitch = TRUEDo While Not rs.eof AND rs.AbsolutePage = iPageCurrent If iswitch = TRUE then sColor = gsColorONE iswitch = False Else sColor = gsColorTWO iswitch = TRUE End If sLocation="" If len("" & trim(rs.fields("cadCity"))) > 0 then sLocation = sLocation & rs.fields("cadCity") & ", " End If If len(sLocation) = 0 then sLocation = GLS_NA End If// 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=""http://www.plastigel.com.br/img/produtos/cozinha/" & rs.Fields("cadImage") & """ width=""100"" height=""78""></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=""http://www.plastigel.com.br/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>"rs.MoveNextnext Response.Write "</tr>" Response.Write "<td height=""2"" colspan=""9"" valign=""top""><img src=""http://www.plastigel.com.br/img/regua_cozinha.jpg"" width=""338"" height=""1""></td>" Response.Write "</tr>"next LoopEnd Ifrs.closeSet rs = Nothing TableFoot lCatIDPageNavigationCloseDBConnSub PageNavigation If iPageCount > 0 ThenResponse.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 IfEnd SubResponse.Write "</TABLE>" %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o erro esta nos laços FOR...você deve tratar o caso de não ter 9 elementos na pagina...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

primeiro bora tentar acabar com o errono lugar ders.MoveNextponhaIF NOT rs.EOF THENrs.MoveNextEND IFisso vai fazer com que so tente pular registro se ainda tiver registro...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

graaaandeeee !!!

 

deu certo kra

 

Obrigado mesmo !!!

 

Abraços!!!

oba...

 

de nada tiozinho...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito