Eu Novamente

[bolomaster]

Pessoal estou desenvolvendo um sistema de noticias. e criei um banco de dados (access) com os seguintes campos

cod - um cod p/ a noticia

titulo - titulo da noticia

resumo - uma breve descriçao da noticia

link - o link da noticia

data - data da noticia

noticia - a noticia em si

depois criei os seguintes arquivos

noticias_conexao

<%@ Language=VBScript %>

<%

option explicit       

dim connstring

set conconexao=server.createobject("adodb.connection")

conconexao.provider="microsoft.jet.oledb.4.0"

conconexao.connectionstring=server.mappath("db\noticias.mdb")

conconexao.open

%>

e noticia_confirmar

<!-- #include file="abreconexao.asp" -->

<!-- #include file="ADOVBS.inc" -->

<%

dim conconexao, titulo, data, noticia, link, resumo, rs

titulo = Request.Form("titulo")

data = Request.Form("data")

noticia = Request.Form("noticia")

link = Request.Form("link")

resumo = Request.Form("resumo")

Sub ProcessaPagina

Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")

rs.open "notonline", conconexao, adOpenDynamic, adlockoptimistic, adcmdtable

rs.Addnew

rs.fields("titulo") = titulo

rs.fields("data") = data

rs.fields("noticia") = noticia

rs.fields("link") = link

rs.fields("resumo") = resumo

rs.update

end sub

processapagina

%>

o que queria é o seguinte gostaria de saber se alguém tem uma ideia para me ajudar a mostrar os dados na tela .. lembrando que vou ter q mostrar ele duas vezes.. uma na pagina de noticas .. que vao ser os campos .. data, titulo, link e resumo e em uma outra que vou mostrar data, titulo, notica,

alguma sugestao.. e outra como eu vou fazer para colocar o link de forma correta? devo ir pelo campo do cod??

abraços

[Bertolani]

Cara não sei se entendi muito bem o que você quer mais ae vai.

para exibir todos os dados que estao no bd faça o seguinte:

do while not rs.eof

response.write(rs("titulo"))

response.write("<br>")

response.write(rs("data")

response.write("<br>")

.........................................agora vem o link

response.redirect (rs("link"))

rs.MoveNext

Loop

qualquer coisa escreve novamente.

Espero ter ajudado

Bertolani

[ursolouco]

Brother!!

Tipo, é uma idéia, não das melhores, mas é...

Que você acha de mostrar a materia assim:

- Ursolouco tá afinzão de sair com a Sheila, mas ela tá fazen....... Leia mais...

[urso]

[bolomaster]

ok, eu entendi é exatamente o que eu estou montando , a diferença que to usando dentro de tabelas, mas uma coisa .. eu gostaria de fazer uma paginação na home page tipo mostrar uns 10 registro por pagina . e então o que você acha . Eu já estava tentando fazer so que ta ficando tipo assim

<!-- include file ="abreconexao" -->

<set rs = server.createobject("adodb.recordset")

rs.pagesize = 10

sql = select * from notonline

rs.open sql, conconexao

if rs eof then

response.write "nenhuma noticia está cadastrada"

response.end

else

if request.querystring("pagina")="" then

intpagina=1

else

if cint(request.querystring("pagina"))<1 then

intpagina=1

else

if cint(request.querystring("pagina"))>rs.pagecount then

intpagina=rs.pagecount

else

intpagina=request.querystring("pagina")

end if

end if

end if

end if

rs.absolutepage=intpagina

intrec=0

while intrec < rs.pagesize and not rs.eof

response.write rs("titulo") &"<br>" & rs("data") & "<BR>" & rs("resumo") &"<br>" & rs.("link")

intrec=intrec+1

if rs.eof the

response.write " "

end if

wend

%>

<a href="noticias.asp?pagina=<%intpagina-1%>">Anterior</a>

<%

end if

if strcomp(intpagina.rs.pagecount) <> 0 then

%>

<a href="noticias.asp?pagina=<%intpagina+1%>">Proxima</a>

<%

end if

%>

e ai o que da para melhorar??

[bolomaster]

alguém ??