Sistema de noticias

neotheone · Dezembro 13, 2004

Fala aí pessoal, estou tendo um problema com meu sistema de notícias, to seguind um tutoria que há aqui no site do proprio imaster sobre como fazer um sistema simples de noticias, ele não da erro algum, a unica coisa q ele nao faz é puxar as noticias do banco de dados. Vou estar colocando aqui o meu código do arquivo default.aspDefault.asp - código abaixo<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><% conexao="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("noticia.mdb") Set conn = Server.CreateObject("ADODB.connection") conn.open conexao if not request.QueryString="" then dados="Select noticia.data, noticia.antetitulo, noticia.titulo, noticia.not FROM noticia WHERE noticia.id="Request("id")"" Set rs=conn.Execute(dados) link ok noticia=1 else dados= "Select notica.id, noticia.data, noticia.antetitulo, noticia.titulo, noticia.not FROM noticia ORDER BY noticia.data DESC" Set rs= conn.Execute(dados) End if Function FormatStr(String) on Error resume next String=Replace(String, CHR(13),"") String=Replace(String, CHR(10) & CHR(10),"") String=Replace(String, CHR(10), " ") FormatSTR=String End Function %><Html><Head></head><body bgcolor="#FFFFFF" text="#003366"><%if not noticia=1 then%>Notícias<hr noshade width="200" size="1" align="left" color="#000099"> <%"Criando um loop até que sejam criados links para todas as notícias existentes no banco de dados"Do until rss.EOF%><a href="default.asp?ID=<%=rs("ID")%>"><%=rs("titulo")%></a>(<%=rs("data")%>) <%rs.MoveNextLoop%></body></html> <%else %><%=rs("antetitulo")%> <%=rs("titulo")%> <%=Formatstr(rs("noticia"))%>(<%=day(rs("data"))%>-<%=month(rs("data"))%>-<%=year(rs("data"))%>) <a href="amigo.asp?<%=Server.URLEncode( Request.QueryString)%>">Envie esta notícia a um amigo</a></body></html><%End ifrs.closeMinhaConexao.Close%>

spicoli · Dezembro 13, 2004

mas tipo assim:de onde ele tá pegando o valor do ID ?

FabricioGomes · Dezembro 13, 2004

dados="Select noticia.data, noticia.antetitulo, noticia.titulo, noticia.not FROM noticia WHERE noticia.id=" & Request("id")ok?

neotheone · Dezembro 14, 2004

ele ta selecionando do meu banco de dados, mais ele não consegu puxar as noticas

FabricioGomes · Dezembro 14, 2004

deveria estar acontecendo um erro a menos que a variavel rss exista...no seu while, voce usa RSS, porem pega os dados em RS...coloca RS no while

Mário Monteiro · Dezembro 14, 2004

deveria estar acontecendo um erro a menos que a variavel rss exista...no seu while, voce usa RSS, porem pega os dados em RS...coloca RS no while

isso é verdade...para evitar este tipo de erro é recomendavel declarar todas as variaveis e usar option explicit, pois acusaria o erro de variavel não declarada, ai você veria facilmente que foi erro de digitação

neotheone · Dezembro 14, 2004

Ja corrigi o lande do RS, eu colquei meu sistema no ar para vocês verem o erro que está dando agoraErro:Erro de compilação do Microsoft VBScript erro '800a0401' Fim da instrução esperado /noticia/default.asp, line 8 dados="SELECT * FROM noticia WHERE noticia.id="Request("id")""--------------------------------------------------------------- PS: vou marcar a linha 8 com ******<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><% conexao="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("noticia.mdb") Set conn = Server.CreateObject("ADODB.connection") Set rs=Server.CreateObject("RecordSet") conn.open conexao if not request.QueryString="" then dados="Select noticia.data, noticia.antetitulo, noticia.titulo, noticia.not FROM noticia WHERE noticia.id="Request("id")"" ************** Set rs=conn.Execute(dados) link ok noticia=1 else dados= "Select notica.id, noticia.data, noticia.antetitulo, noticia.titulo, noticia.not FROM noticia ORDER BY noticia.data DESC" Set rs= conn.Execute(dados) End if Function FormatStr(String) on Error resume next String=Replace(String, CHR(13),"") String=Replace(String, CHR(10) & CHR(10),"") String=Replace(String, CHR(10), " ") FormatSTR=String End Function %><Html><Head></head><body bgcolor="#FFFFFF" text="#003366"><%if not noticia=1 then%>Notícias<hr noshade width="200" size="1" align="left" color="#000099"> <%"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>(<%=rs("data")%>) <%rs.MoveNextLoop%></body></html> <%else %><%=rs("antetitulo")%> <%=rs("titulo")%> <%=FormatStr(rs("noticia"))%>(<%=day(rs("data"))%>-<%=month(rs("data"))%>-<%=year(rs("data"))%>) <a href="amigo.asp?<%=Server.URLEncode( Request.QueryString)%>">Envie esta notícia a um amigo</a></body></html><%End ifrs.closeMinhaConexao.Close%>

Mário Monteiro · Dezembro 14, 2004

faz assim caradados="SELECT * FROM noticia WHERE noticia.id=" & Request("id") & ""

FabricioGomes · Dezembro 14, 2004

dados="SELECT * FROM noticia WHERE noticia.id=" & Request("id")

ou se ID for caracter

dados="SELECT * FROM noticia WHERE noticia.id='" & Request("id") & "'"

como coloquei no inicio do topico... ;)

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

neotheone · Dezembro 14, 2004

Caraca pessoallllllll, funcionou direitinho, deêm só uma olhada, mas como eu faria pra por o link neles?

brigadão pela ajuda pessoal

http://www.sistemagaudeensino.com.br/noticia/default.asp

Mário Monteiro · Dezembro 14, 2004

tem que colocar onde você exibe os valores...

neotheone · Dezembro 14, 2004

tem essa parte aqui, eu pus o link1.html, sendo que aí quando você clica em qualquer noticias todas elas vão para o link1.html, eu nao tenho muita experiencia, como faço pra por um link pra cada noticias?valew<%'Criando um loop até que sejam criados links para todas as notícias existentes no banco de dadosDo until rs.EOF%><a href="link1.html?ID=<%=rs("id")%>"><%=rs("antetitulo")%></a>(<%=rs("data")%>) <%rs.MoveNextLoop%></body></html> <%else %><%=rs("antetitulo")%> <%=rs("titulo")%> <%=FormatStr(rs("noticia"))%>(<%=day(rs("data"))%>-<%=month(rs("data"))%>-<%=year(rs("data"))%>)

Mário Monteiro · Dezembro 14, 2004

precisa se o nome da pagina que vai exibir as noticias e tem que ser asptiponoticia.asp?ID=<%=rs("id")%>

neotheone · Dezembro 15, 2004

Desculpe a minha ignorancia, mais ainda nao entendi como fazer os linksVamos dizer que quero colocar assimnoticia1.aspnoticias2.aspnoticias3.aspcomo faço para esses arquivos .ASP serem linkados em suas respectivas noticias?

Mário Monteiro · Dezembro 15, 2004

não cara será uma unica page...que pegará o id da noticia e imprimirá na tela a partir do DB...

FabricioGomes · Dezembro 15, 2004

essa pagina nao seria a propria default.asp???

E.o.F · Dezembro 15, 2004

Não entendi pq você tava usando alias "noticia.campo" se só puxa de uma tabela, usa alais assim:n.iSelect n.id, n.data, n.antetitulo, n.titulo, n.not FROM n noticia ORDER BY n.data DESC

neotheone · Dezembro 16, 2004

isso mesmo a pagina é default.asp, mais nao sei como por os links, eu ponho o link no banco de dados? to boiando nesse lance

FabricioGomes · Dezembro 16, 2004

tenta isso

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%conexao="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("noticia.mdb")Set conn = Server.CreateObject("ADODB.connection")Set rs=Server.CreateObject("RecordSet")conn.open conexaoif not request.QueryString="" thendados="Select noticia.data, noticia.antetitulo, noticia.titulo, noticia.not FROM noticia WHERE noticia.id=" & Request("id")Set rs=conn.Execute(dados)'link oknoticia=1elsedados= "Select notica.id, noticia.data, noticia.antetitulo, noticia.titulo, noticia.not FROM noticia ORDER BY noticia.data DESC"Set rs= conn.Execute(dados)End ifFunction 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("data"))%>-<%=month(rs("data"))%>-<%=year(rs("data"))%>)</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.closeMinhaConexao.Close%>

Arquivado

Sistema de noticias

Recommended Posts

neotheone 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

spicoli 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FabricioGomes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

neotheone 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FabricioGomes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

neotheone 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

FabricioGomes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

neotheone 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

neotheone 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

neotheone 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

FabricioGomes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

E.o.F 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

neotheone 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FabricioGomes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeginiter - Orientação para Impressão