sistema de noticias

[bolomaster 0]

Eu gostaria de fazer o meu sistema de noticias funcionar mas nao to conseguindo, eu nao queria ter q trabalhar com session. mas to achando que vou ter sera que alguem pode me ajudar a fazer ele funcionar agora da forma que esta aieste é o arquivo que vai conter os resumoschama noticias.asp<table width="100%" border="0" cellspacing="0" cellpadding="0" class="fonte"><tr> <td width="26%" bgcolor="#3399FF"> </td><td width="45%"><div align="center"><img src="Imagens/Titulo_pag_art.gif" width="350" height="43"></div></td><td width="29%" bgcolor="#3399FF"> </td></tr><tr> <td colspan="3"></td></tr><tr> <td colspan="3"> </td></tr><tr> <td colspan="3"><img src="Imagens/Icon_tocha.gif" width="34" height="40"> <strong>Notícias.</strong> </td></tr><tr> <td colspan="3"><hr></td></tr><tr> <td colspan="3"><p><br></p></td></tr></table><% dim db, rsset db = Server.CreateObject("ADODB.Connection")set rs = Server.CreateObject("ADODB.recordset")db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")rs.open "notonline", dbdo while not rs.eof %><table width="100%" border="0" class="fonte"><tr> <td width="11%"><strong>Titulo:</strong></td><td width="89%"> <%Response.Write rs.fields("titulo")%> </td></tr><tr> <td><strong>Data:</strong></td><td> <%Response.Write rs.fields("data")%> </td></tr><tr> <td><strong>Resumo:</strong></td><td> <%Response.Write rs.fields("resumo")%> </td></tr><tr><td> </td><td><a href="vernoticias.asp?id=<%=rs.fields("cod")%>">Ver Noticia</a></td></tr></table><p> </p><p> <%rs.MoveNextLoop%>e este é o arquivo que vai mostrar a noticia chama vernoticia.asp<% id = request.QueryString("id")dim db, rsset db = Server.CreateObject("ADODB.Connection")set rs = Server.CreateObject("ADODB.recordset")db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")rs.open "notonline", db%><table width="100%" border="0" class="fonte"><tr> <td width="11%"><strong>Titulo:</strong></td><td width="89%"> <%Response.Write rs.fields("titulo")%> </td></tr><tr> <td><strong>Data:</strong></td><td> <%Response.Write rs.fields("data")%> </td></tr><tr> <td><strong>Noticia:</strong></td><td> <%Response.Write rs.fields("noticia")%> </td></tr></table><p> </p><p><img src="Imagens/PixelTrasp.gif" width="15" height="5"><a href="java script:history.back(-1)" class="link2">voltar...</a></p>entendeu nao to conseguindo fazer ele mostrar a noticia referenteao resumo

[nostrinkes 0]

tente assim:

chama vernoticia.asp

 

Troque esta parte do codigo.

<% id = request.QueryString("id")dim db, rsset db = Server.CreateObject("ADODB.Connection")set rs = Server.CreateObject("ADODB.recordset")db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")sql = "SELECT * FROM notonline WHERE cod like '%"&id&"%' "Rs.open sql,db,3,3%>