Aparece o mesmo registro 2 vezes

[crucifier 0]

na minha pagina de consulta de fotos tipw...se tem 7 fotos...ele aparece 14...primero ele exibe todas as 7 fotos daih ele começa a repetir...tipw:

 

foto 1

foto 2

foto 3

foto 4

foto 5

foto 6

foto 7

foto 1

foto 2

foto 3

foto 4

foto 5

foto 6

foto 7

 

a página soh tem um movenext...vo por aki o codigo dessa tabela...mai sei lah...se alguem descobri o erro agradeco muito=\\

 

<TABLE width="80%" border=0 align="center" cellpadding=2 cellspacing=1 bgcolor="#000000">				<TR> 				  <TD colspan="9" bgcolor="#FFCC00"><div align="right" class="body"><a href="inclusao_fotos.asp?categoria=<%=objrs("id_categoria")%>">Incluir 					  foto nesta categoria</a></div></TD>				</TR>				<TR> 				  <TD width="13%" align="center" bgcolor="#FFCC00"><b>Miniatura</b></TD>				  <TD width="22%" align="center" bgcolor="#FFCC00"><strong>Categoria</strong></TD>				  <TD width="18%" align="center" bgcolor="#FFCC00"><strong>Subcategoria</strong></TD>				  <TD width="19%" align="center" bgcolor="#FFCC00"><strong>Visualizações</strong></TD>				  <TD colspan="3" align="center" bgcolor="#FFCC00"><strong>Administração</strong></TD>				</TR>				<%pag = Request.QueryString("pagina")If pag = "" Thenpag = 1End if ObjRs.AbsolutePage = pag  While Not ObjRs.Eof and i < ObjRs.PageSizei = i + 1id = objRs("id")clicks = objRs("clicks")foto = objRs("foto")id_categoria = objRs("id_categoria")miniatura = objRs("miniatura")nome = objRs("nome")id_subcat = objrs("id_subcat")if subcat = "" thensubcat = "<b>Sem Sub-categoria</b>"elsesubcat = objrs("id_subcat")end if%>				<TR bgcolor="f3f3f3"> 				  <TD align="center"><span class="style3 style4 style3"><a href="java script:;"><img src="<%=miniatura%>" width="47" height="31" border="0" onClick="openPictureWindow_Fever('undefined','<%=foto%>','400','300',':::FoxpPlay:::','200','200')"/></a></span></TD>				  <TD align="center"><span class="style3 style4 style3"> 					<% =nome%>					</span> </TD>				  <TD align="center"><span class="style3 style4 style3"><a href="consulta_sub.asp">					<%		sql_nome = "Select * from subcategoria where id_sub = '"& objrs("id_subcat") &"'"		Set rs_nome = Server.CreateObject("ADODB.Recordset")		rs_nome.CursorLocation = 3		rs_nome.CursorType = 2		rs_nome.LockType = 1		rs_nome.Open sql_nome, strCon		if rs_nome.eof or rs_nome.bof = true then			response.write "sem sub-categoria"		else		if rs_nome("subcategoria") = "" then			response.write "0"		else			response.write rs_nome("subcategoria")		end if		end if%></a></span></TD>				  <TD align="center"><span class="style3 style4 style3"> 					<% =clicks %>					</span></TD>				  <TD align="center" bgcolor="f3f3f3"><a href="alteracao_fotos.asp?id=<%=id%>"><img src="imagens/edit.gif" width="16" height="15" border="0" class="style3 style3"></a></TD>				  <TD align="center"><a href="#"><img src="imagens/mover.jpg" width="15" height="15" border="0" onClick="displayWindow('mudar_foto_cat.asp?id_categoria=<%=id_categoria%>&pagina=<%=pag%>&id=<%=id%>','fotos','200','110','')"></a><a href="alteracao_fotos.asp?id=<%=id%>"></a></TD>				  <TD align="center" bgcolor="f3f3f3"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 					</font><strong><font size="2"pt><a href="#" ><img src="imagens/excluir.gif" alt="Excluir categoria <%=nome%>" width="14" height="14" border="0" OnClick="entrance_onClick('delete_fotos.asp?id=<%=id%>&id_categoria=<%request.querystring("id_categoria")%>')" ></a></font></strong><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 					</font></b></font></TD>				  <% objRs.MoveNextWend %>				</TR>				<TR> 				  <TD colspan="9" bgcolor="#FFCC00"><div align="center"> 					  <%'-----------------------------------------------------------'Numero de páginas (Paginação) criação de links para a navegaçãoWith Response.Write("<table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""2"" border=""0"">").Write("<tr><td align=""center"" class=""texto"">[ -")For i = 1 to Objrs.PagecountIf i = Cint(pag) then.Write("<b>"& i &"</b> ")Else	if request.querystring("id_categoria") = "" then.Write("<a href='" & Request.ServerVariables("Script_Name") & "?pagina=" & i & "'>" & i & "</a> ")else.Write("<a href='" & Request.ServerVariables("Script_Name") & "?id_categoria="& request.querystring("id_categoria") &"&pagina=" & i & "'>" & i & "</a> ")end ifEnd ifNext.Write("- ]</b></td></tr>")& Vbcrlf.Write("</table>")& VbcrlfEnd With%>					</div></TD>				</TR>				<TR> 				  <TD colspan="9" bgcolor="#FFCC00"><div align="right" class="body"><a href="inclusao_fotos.asp?categoria=<%=id_categoria%>">Incluir 					  foto nesta categoria</a></div></TD>				</TR>			  </TABLE>

[crucifier 0]

achei o erro...era no select...tbm nao sei porq mas tava danu erro...obrigado por ajudar

[dark0 0]

bom..eu ia dizer, que, para nao repetir valores, você poderia usar o Distinct dentro do selectEle não duplica com esse comando..

[crucifier 0]

humm...passa aih porq as vezes eu va usar algum dia aih daih eu nao preciso perguntar de novo=]]]aproveitanu q se tamo falanu dissu...nao sei se tem a ver...mas olha issu que palahaçada

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [MySQL][ODBC 3.51 Driver][mysqld-4.0.26-debug-log]Duplicate entry '0' for key 1 /admin/inclusao_sub.asp, line 281

fala negocio de ta duplicado...mas nao ta kra...putz..como q arruma isso...codigo ta aih:

If campo_duplicado = false Then	Set objRS= Server.CreateObject("ADODB.Recordset")	objRS.CursorLocation = 3	objRS.CursorType = 0	objRS.LockType = 3	strQ = "SELECT * FROM subcategoria Where 1 <> 1"	objRS.Open strQ, objCon, , , &H0001	objRS.Addnew()	If objRS.Fields("subcategoria").properties("IsAutoIncrement") = False Then	  objRS("subcategoria") = Trim(Request.Form("subcategoria"))	End If	objRS.Update  'AKI EH A LINHA 281	objRS.Close	Set objRS = Nothing

se alguem puder me ajudar agradeço=\\

[dark0 0]

Quando eu preciso mostrar valores de um campo no banco de dados, sem repetir, pra access, eu monto a string assimSql = "Select Distinct campo from tabela"o comando distinct nao deixa repetir os registros ;) abraço

[crucifier 0]

seria igual o group by???select unha from dedo group by unha

[Mário Monteiro 179]

neste caso o resultado seria o mesmo mas o group by é usado mais nos casos onde precisamos recuperar outros campos