Ir para conteúdo

POWERED BY:

Arquivado

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

ivoce

Sistema de Notícias não exibe correta as info.

Por , em ASP Clássico

Recommended Posts

ivoce    0

ivoce
Postado

Oi pessoal, tudo bem.Tenho uma dúvida infinita nesse código... Eu dentro do meu conhecimento e com a ajuda de amigos, alguns até deste fórum, tentei resolver o suposto erro da programação abaixo. É uma inde.asp que pega informações de um db e exibe, são 4 campos de exibição das informações, mas apenas 3 é exibido, o 4 fica em branco, não aparece nada, e tem registro no db, inclusive já verifiquei muitas vezes... O que pode ser e como resolver... Alguém pode ajudar...Obrigado.>> Código... >><!--#include file="config.asp"--><%'***********************************************************************'** Sistema de Notícias desenvolvido por wgambini **'** Contatos: William Gambini - ICQ 87330132 **'** wgambini@yahoo.com.br **'***********************************************************************SQL = "SELECT Top 4 noticias.ID, noticias.categoria, noticias.descricao, noticias.data, noticias.foto, categorias.categorias FROM noticias, categorias WHERE categorias.ID=noticias.categoria ORDER BY noticias.ID DESC"Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Dados, 3, 3Cont = RS.RecordCountAux = 1Dim RS_Tema(5), RS_Data(5), RS_Foto(5), RS_Descricao(5), RS_Link(5)While (Aux < Cont) RS_Tema(Aux) = RS("categorias") RS_Data(Aux) = RS("data") RS_Foto(Aux) = "imagens/" & RS("foto") If Ucase(Cstr(RS_Foto(Aux))) = "IMAGENS/N" then RS_Foto(Aux) = "imagens/semfoto.gif" End if RS_Descricao(Aux) = RS("descricao") RS_link(Aux) = "view.asp?id=" & RS("ID")Aux = Aux + 1RS.MoveNextWend%><html><head><title><%=TS%></title><link rel="stylesheet" type="text/css" href="estilo.css"></head><body bgcolor="#FFFFFF" text="#000000" background="#FFFFFF"><table width="140" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="330" align="center" valign="top"> <table width="120" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="120" border="0" cellspacing="0" cellpadding="0"> <tr> <td> </td> </tr> <tr> <td><table width="120" border="0" cellspacing="2" cellpadding="0"> <tr> <td width="108"><font face="Arial, Helvetica, sans-serif" size="2"><b><%=RS_Tema(1)%></b></font></td> </tr> <tr> <td height="240" valign="top" bgcolor="#E0E0E0"> <%If RS_Foto(1) <> "" then%> <a href="<%=RS_Link(1)%>"><img src="<%=RS_Foto(1)%>" width="120" height="90" border="0"></a> <%End if%> <div align="justify"><font face="Arial, Helvetica, sans-serif" size="1"><b><a href="<%=RS_Link(1)%>"><%=RS_Descricao(1)%></a></b></font></div></td> </tr> <tr> <td><TABLE WIDTH=120 BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR> <TD ROWSPAN=2> <IMG SRC="imagens/noticia_04.gif" ALT="" WIDTH=5 HEIGHT=16 border="0"></TD> <TD ROWSPAN=2 background="imagens/noticia_05.gif"><font face="Arial, Helvetica, sans-serif" size="1"><b><a href="<%=RS_Link(1)%>"><%=RS_Data(1)%></a></b></font> </TD> <TD> <a href="<%=RS_Link(1)%>"><IMG SRC="imagens/noticia_06.gif" ALT="" WIDTH=35 HEIGHT=13 border="0"></a></TD> </TR> <TR> <TD> <a href="<%=RS_Link(1)%>"><IMG SRC="imagens/noticia_07.gif" ALT="" WIDTH=35 HEIGHT=3 border="0"></a></TD> </TR> <TR> <TD> <IMG SRC="imagens/noticia_08.gif" ALT="" WIDTH=5 HEIGHT=9 border="0"></TD> <TD> <IMG SRC="imagens/noticia_09.gif" ALT="" WIDTH=80 HEIGHT=9 border="0"></TD> <TD> <a href="<%=RS_Link(1)%>"><IMG SRC="imagens/noticia_10.gif" ALT="" WIDTH=35 HEIGHT=9 border="0"></a></TD> </TR> </TABLE></td> </tr> </table></td> </tr> <tr> <td><img src="imagens/pixel_1.gif" width="1" height="4" border="0"></td> </tr> <tr> <td><table width="120" border="0" cellspacing="2" cellpadding="0"> <tr> <td width="108"><font face="Arial, Helvetica, sans-serif" size="2"><b><%=RS_Tema(2)%></b></font></td> </tr> <tr> <td height="120" valign="top" bgcolor="#E0E0E0"> <div align="justify"><font face="Arial, Helvetica, sans-serif" size="1"><a href="<%=RS_Link(2)%>"><%=RS_Descricao(2)%></a></font></div></td> </tr> <tr> <td><TABLE WIDTH=120 BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR> <TD ROWSPAN=2> <IMG SRC="imagens/noticia_04.gif" ALT="" WIDTH=5 HEIGHT=16 border="0"></TD> <TD ROWSPAN=2 background="imagens/noticia_05.gif"><font face="Arial, Helvetica, sans-serif" size="1"><b><a href="<%=RS_Link(2)%>"><%=RS_Data(2)%></a></b></font> </TD> <TD> <a href="<%=RS_Link(2)%>"><IMG SRC="imagens/noticia_06.gif" ALT="" WIDTH=35 HEIGHT=13 border="0"></a></TD> </TR> <TR> <TD> <a href="<%=RS_Link(2)%>"><IMG SRC="imagens/noticia_07.gif" ALT="" WIDTH=35 HEIGHT=3 border="0"></a></TD> </TR> <TR> <TD> <IMG SRC="imagens/noticia_08.gif" ALT="" WIDTH=5 HEIGHT=9 border="0"></TD> <TD> <IMG SRC="imagens/noticia_09.gif" ALT="" WIDTH=80 HEIGHT=9 border="0"></TD> <TD> <a href="<%=RS_Link(2)%>"><IMG SRC="imagens/noticia_10.gif" ALT="" WIDTH=35 HEIGHT=9 border="0"></a></TD> </TR> </TABLE></td> </tr> </table></td> </tr> <tr> <td><img src="imagens/pixel_1.gif" width="1" height="4" border="0"></td> </tr> <tr> <td><table width="120" border="0" cellspacing="2" cellpadding="0"> <tr> <td width="108"><font face="Arial, Helvetica, sans-serif" size="2"><b><%=RS_Tema(3)%></b></font></td> </tr> <tr> <td height="120" valign="top" bgcolor="#E0E0E0"> <div align="justify"><font face="Arial, Helvetica, sans-serif" size="1"><a href="<%=RS_Link(3)%>"><%=RS_Descricao(3)%></a></font></div></td> </tr> <tr> <td><TABLE WIDTH=120 BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR> <TD ROWSPAN=2> <IMG SRC="imagens/noticia_04.gif" ALT="" WIDTH=5 HEIGHT=16 border="0"></TD> <TD ROWSPAN=2 background="imagens/noticia_05.gif"><font face="Arial, Helvetica, sans-serif" size="1"><b><a href="<%=RS_Link(3)%>"><%=RS_Data(3)%></a></b></font> </TD> <TD> <a href="<%=RS_Link(3)%>"><IMG SRC="imagens/noticia_06.gif" ALT="" WIDTH=35 HEIGHT=13 border="0"></a></TD> </TR> <TR> <TD> <a href="<%=RS_Link(3)%>"><IMG SRC="imagens/noticia_07.gif" ALT="" WIDTH=35 HEIGHT=3 border="0"></a></TD> </TR> <TR> <TD> <IMG SRC="imagens/noticia_08.gif" ALT="" WIDTH=5 HEIGHT=9 border="0"></TD> <TD> <IMG SRC="imagens/noticia_09.gif" ALT="" WIDTH=80 HEIGHT=9 border="0"></TD> <TD> <a href="<%=RS_Link(3)%>"><IMG SRC="imagens/noticia_10.gif" ALT="" WIDTH=35 HEIGHT=9 border="0"></a></TD> </TR> </TABLE></td> </tr> </table></td> </tr> <tr> <td><img src="imagens/pixel_1.gif" width="1" height="4" border="0"></td> </tr> <tr> <td><table width="120" border="0" cellspacing="2" cellpadding="0"> <tr> <td width="108"><font face="Arial, Helvetica, sans-serif" size="2"><b><%=RS_Tema(4)%></b></font></td> </tr> <tr> <td height="120" valign="top" bgcolor="#E0E0E0"> <div align="justify"><font face="Arial, Helvetica, sans-serif" size="1"><a href="<%=RS_Link(4)%>"><%=RS_Descricao(4)%></a></font></div></td> </tr> <tr> <td><TABLE WIDTH=120 BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR> <TD ROWSPAN=2> <IMG SRC="imagens/noticia_04.gif" ALT="" WIDTH=5 HEIGHT=16 border="0"></TD> <TD ROWSPAN=2 background="imagens/noticia_05.gif"><font face="Arial, Helvetica, sans-serif" size="1"><b><a href="<%=RS_Link(4)%>"><%=RS_Data(4)%></a></b></font> </TD> <TD> <a href="<%=RS_Link(4)%>"><IMG SRC="imagens/noticia_06.gif" ALT="" WIDTH=35 HEIGHT=13 border="0"></a></TD> </TR> <TR> <TD> <a href="<%=RS_Link(4)%>"><IMG SRC="imagens/noticia_07.gif" ALT="" WIDTH=35 HEIGHT=3 border="0"></a></TD> </TR> <TR> <TD> <IMG SRC="imagens/noticia_08.gif" ALT="" WIDTH=5 HEIGHT=9 border="0"></TD> <TD> <IMG SRC="imagens/noticia_09.gif" ALT="" WIDTH=80 HEIGHT=9 border="0"></TD> <TD> <a href="<%=RS_Link(4)%>"><IMG SRC="imagens/noticia_10.gif" ALT="" WIDTH=35 HEIGHT=9 border="0"></a></TD> </TR> </TABLE></td> </tr> </table></td> </tr> <tr> <td> </td> </tr> </table></td> </tr> <tr> <td bgcolor="#006699"> </td> </tr> </table> </td> </tr></table></body><STYLE type="text/css"><!--BODY {scrollbar-face-color: FFFFFF;scrollbar-highlight-color: 6060FF;scrollbar-3dlight-color: 404080;scrollbar-darkshadow-color: 404080;scrollbar-shadow-color: 6060FF;scrollbar-arrow-color: 404080;scrollbar-track-color: FFFFFF;}--></STYLE></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

deve ter algum erro nos indices aquiWhile (Aux < Cont)mas você pode fazer da forma tradicional que deve pegar todostente trocar por While NOT RS.EOF

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