Ir para conteúdo

POWERED BY:

Arquivado

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

Daniel Paes

Mostrar registro em uma tabela

Por , em ASP Clássico

Recommended Posts

Daniel Paes    0

Daniel Paes
Postado

Estou tentando colocar um sistema de notícias em meu site, o prblema é que eu não consigo colocar as ultimas 6 notícias em uma tabela de 2 colunas. Já fiz de tudo (quase tudo... pelo menos a parte errada da coisa) mas não consegui.

 

Vou postar o código para vocês.

 

 

<%

AbreConexao

SQL = "SELECT TOP 6 * FROM tblnews ORDER BY mes DESC"

Set rs = Conexao.Execute(SQL)

While not rs.EOF

headline = Rs("headline")

headline = mid(headline,1,80)

%><Table>

<%Colunas=2 'Defina o número de colunas

While not rs.EOF

response.write"<tr>"

for x= 1 to Colunas

if rs.EOF or rs.BOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet faça

response.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"

else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet faça

response.write "<TD>"

response.write "<table width=""206"" height=""55"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"

response.write "<tr>"

response.write "<td width=""63"">"

response.write "<a href=""ler.asp?codigo=&rs("id_new")&""><img src=""&rs("img_principal")&"" border=""0"" width=""55"" height=""55""></a>"

response.write "</td>"

response.write "<td width=""143"" class="fonte">"

response.write "<a href=""ler.asp?codigo=&rs("id_new")&""><font color=""#999999""><strong>&rs("titulo")&</strong>"

response.write "<br>&rs("headline")&</font></a></td>"

response.write "</tr>"

response.write "</table>"

response.write "</TD>"

rs.movenext

end if

next

response.write linha&"</TR>"

wend%>

</table>

<%

Wend

rs.close

FechaConexao

Set rs = nothing %>

 

 

Alguem consegue me ajudar??? :rolleyes:/>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daniel Paes    0

Daniel Paes
Postado

tente mudar o sql para:

 

SQL = "SELECT TOP 6  FROM tblnews ORDER BY mes DESC"

 

Valeu

Não deu esse erro:

 

Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'

 

[Microsoft][Driver ODBC para Microsoft Access] A instrução SELECT inclui uma palavra reservada ou um nome de argumento que está incorreto ou faltando, ou a pontuação está incorreta.

 

/asp/lol.asp, line 57

Compartilhar este post

Link para o post
Compartilhar em outros sites

daniloprates    0

daniloprates
Postado

Sou novato e posso estar falando uma grande m..., mas tenta isso:

 

SQL = "SELECT TOP 6 * FROM tblnews ORDER BY 'mes' DESC"
Ou

SQL = "SELECT TOP 6 * FROM tblnews ORDER BY " & 'mes' & "DESC"
Ou ainda (novato é f***, tem q ficar testando mesmo....

SQL = "SELECT TOP 6 * FROM tblnews ORDER BY " & "'mes'" & "DESC"

Espero que dê certo.... :D/>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daniel Paes    0

Daniel Paes
Postado

Sou novato e posso estar falando uma grande m..., mas tenta isso:

SQL = "SELECT TOP 6 * FROM tblnews ORDER BY 'mes' DESC"
Ou
SQL = "SELECT TOP 6 * FROM tblnews ORDER BY " & 'mes' & "DESC"
Ou ainda (novato é f***, tem q ficar testando mesmo....
SQL = "SELECT TOP 6 * FROM tblnews ORDER BY " & "'mes'" & "DESC"
Espero que dê certo.... :D/>
Não... ainda não é isso.... mas valeu assim mesmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daniel Paes    0

Daniel Paes
Postado

SELECT * TOP 6

Da esse erro:

 

Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'

 

[Microsoft][Driver ODBC para Microsoft Access] A instrução SELECT inclui uma palavra reservada ou um nome de argumento que está incorreto ou faltando, ou a pontuação está incorreta.

 

/asp/lol.asp, line 57

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Dá algum erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daniel Paes    0

Daniel Paes
Postado

Vou tentar especificar melhor o que está acontecendo.Eu tenho um sistema de notícias e quero colocar em tabelas assim:Noticia1 - Noticia2Noticia3 - Noticia4Noticia5 - Noticia6Eu peguei um código que o salgado postou aqui e coloquei, mas na hora de mostrar o conteudo ele só mostra as variaveis.. tipo .... assim:Noticia1 &rs("titulo")& - Noticia2 &rs("titulo")& &rs("headline")& &rs("headline")&Noticia3 &rs("titulo")& - Noticia4 &rs("titulo")& &rs("headline")& &rs("headline")&Noticia5 &rs("titulo")& - Noticia6 &rs("titulo")& &rs("headline")& &rs("headline")&Mas eu naum sei onde está o erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Aspas, tá faltando aspas.

Vou mostrar a correção em uma linha e você faz o resto:

response.write "<a href=""ler.asp?codigo="& rs("id_new") &""""><img src=""""& rs("img_principal") &"""" border=""0"" width=""55"" height=""55""></a>"

Ou então:

response.write "<a href='ler.asp?codigo="& rs("id_new") &"'><img src='"& rs("img_principal") &"' border=""0"" width=""55"" height=""55""></a>"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daniel Paes    0

Daniel Paes
Postado

Esse é o do salgado:

<Table><%Colunas=4 'Defina o número de colunas

While not rs.EOF

response.write"<tr>"

for x= 1 to Colunas

if rs.EOF or rs.BOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet faça

response.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"

else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet faça

response.write "<TD>"&rs("campo")&"<BR>"&rs("outro_Campo")&"<BR>"&rs("Mais_um_campo")&"</TD>"

rs.movenext

end if

next

response.write linha&"</TR>

wend%></table>

Esse é o meu:

<Table>

<%Colunas=2 'Defina o número de colunas

While not rs.EOF

response.write"<tr>"

for x= 1 to Colunas

if rs.EOF or rs.BOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet faça

response.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"

else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet faça

response.write "<TD>"

response.write "<table width=""206"" height=""55"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"

response.write "<tr>"

response.write "<td width=""63"">"

response.write "<a href=""ler.asp?codigo=&rs(""id_new"")&""><img src=""&rs(""img_principal"")&"" border=""0"" width=""55"" height=""55""></a>"

response.write "</td>"

response.write "<td width=""143"" class=""fonte"">"

response.write "<a href=""ler.asp?codigo=&rs(""id_new"")&""><font color=""#999999""><strong>&rs(""titulo"")&</strong>"

response.write "<br>&rs(""headline"")&</font></a></td>"

response.write "</tr>"

response.write "</table>"

response.write "</TD>"

rs.movenext

end if

next

response.write linha&"</TR>"

wend%>

</table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daniel Paes    0

Daniel Paes
Postado

Aspas, tá faltando aspas.

Vou mostrar a correção em uma linha e você faz o resto:

response.write "<a href=""ler.asp?codigo="& rs("id_new") &""""><img src=""""& rs("img_principal") &"""" border=""0"" width=""55"" height=""55""></a>"
Ou então:
response.write "<a href='ler.asp?codigo="& rs("id_new") &"'><img src='"& rs("img_principal") &"' border=""0"" width=""55"" height=""55""></a>"
O primeiro da esse erro:

Erro de compilação do Microsoft VBScript erro '800a0401'

 

Fim da instrução esperado

 

/asp/lol.asp, line 74

 

response.write "<a href=""ler.asp?codigo=&rs("id_new")&""""><img src=""&rs("img_principal")&"" border=""0"" width=""55"" height=""55""></a>"

----------------------------------------------^

 

E o segundo da esse:

Erro de compilação do Microsoft VBScript erro '800a0401'

 

Fim da instrução esperado

 

/asp/lol.asp, line 74

 

response.write "<a href='ler.asp?codigo=&rs("id_new")&'><img src=""&rs("img_principal")&"" border=""0"" width=""55"" height=""55""></a>"

---------------------------------------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
response.write "<a href='ler.asp?codigo=& rs("id_new") &"'><img src='"& rs("img_principal") &"' border=""0"" width=""55"" height=""55""></a>"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daniel Paes    0

Daniel Paes
Postado

response.write "<a href='ler.asp?codigo=& rs("id_new") &"'><img src='"& rs("img_principal") &"' border=""0"" width=""55"" height=""55""></a>"

mesma coisa:

 

Erro de compilação do Microsoft VBScript erro '800a0401'

 

Fim da instrução esperado

 

/asp/lol2.asp, line 70

 

response.write "<TD><a href='ler.asp?codigo=& rs("id_new") &"'><img src='"& rs("img_principal") &"' border=""0"" width=""55"" height=""55""></a></TD>"

--------------------------------------------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Faltou essas aspas:

response.write "<a href='ler.asp?codigo="& rs("id_new") &"'><img src='"& rs("img_principal") &"' border='0' width='55' height='55'></a>"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daniel Paes    0

Daniel Paes
Postado

deu certo.. mas tem um porém... eu queria colocar tipo em tabela... tipo assim..Entra aqui pra ver o que eu quero fazero jeito que voce fez ficou assimserá que dá pra fazer do meu jeito???????

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daniel Paes    0

Daniel Paes
Postado

Se liga... eu consegui fazer seguindo a sua ultima postagem.... coloquei as aspas que faltavam e deu certo. Valeu salgado..... Brigadão pela força

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