Ir para conteúdo

POWERED BY:

Arquivado

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

neotheone

Sistema de noticias

Por , em ASP Clássico

Recommended Posts

neotheone    0

neotheone
Postado

Fala aí pessoal, estou tentando aprender um sistema de noticias aqui, sendo que ele não da erro nenhum, ele simplesmente não lista as noticias que foram cadastradas no banco de dados. Abaixo estarei listando o código:<%conexao="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("News.mdb")Set conn= CreateObject("adodb.connection")conn.open conexaoif not request.Querystring="" then" Se o "Query" não for nulo então criará o link"SqlQuery="Select TabNoticias.Data, TabNoticias.Antetitulo, TabNoticias.Titulo, TabNoticias.Noticia FROM TabNoticias where TabNoticias.ID="&Request("id")Set Rs=conn.Execute(SqlQuery)Noticia=1elseSqlQuery="Select TabNoticias.ID, TabNoticias.Data, TabNoticias.Antetitulo, TabNoticias.Titulo, TabNoticias.Noticia FROM TabNoticias ORDER BY TabNoticias.Data DESC"Set Rs=conn.Execute(SqlQuery) End if" Criaremos agora uma função que cria as quebras de linha e os parágrafos no texto"Function FormatStr(String)on Error resume nextString = Replace(String, CHR(13), "")String = Replace(String, CHR(10) & CHR(10), "</P><P> ")String = Replace(String, CHR(10), "<BR> ")FormatStr = StringEnd Function%><Html><Head></head><body bgcolor="#FFFFFF" text="#003366"><%if not Noticia=1 then%><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#000099">Notícias</font><hr noshade width="200" size="1" align="left" color="#000099"><br><%"Criando um loop até que sejam criados links para todas as notícias existentes no banco de dados"Do until Rs.EOF%><a href="default.asp?ID=<%=rs("ID")%>"><%=rs("Titulo")%></a><font size=1>(<%=rs("Data")%>)</font><br><%rs.MoveNextLoop%></body></html> <%else %><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#003366"><%=rs("Antetitulo")%></font><br><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033"><b><%=rs("Titulo")%></b></font><p> <font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000066"><%=Formatstr(rs("noticia"))%></font><p align=right><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000066"><i>(<%=day(rs(""))%>-<%=month(rs(""))%>-<%=year(rs(""))%>)</i></font></p><br><!--Agora vem a parte do enviar a um amigo--><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="amigo.asp?<%=Server.URLEncode( Request.QueryString)%>">Envie esta notícia a um amigo</a></font></b></body></html><%End ifrs.closeconn.Close%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

comenta esta linhaon Error resume next

Compartilhar este post

Link para o post
Compartilhar em outros sites

neotheone    0

neotheone
Postado

Pra falar a verdade nem sei o q é essa linha faz, peguei esse código de sistema de noticias na parte de ASP aqui do imasters, é um tutorial, sendo que ele não funciona. Tem algum sugestão?valew

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

esta linha "esconde" o erro, se você comentar e tiver algum aparecerá...poe apenas uma aspa simples na frente e testa

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