• 0
Sign in to follow this  
bolomaster

Eu Novamente

Question

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

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

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

Share this post


Link to post
Share on other sites
  • 0

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??

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this