Ir para conteúdo

Arquivado

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

marvazoler

[Resolvido]  no sistema de notícias

Por , em ASP Clássico

Recommended Posts

marvazoler    0

marvazoler
Postado

Olá galera beleza?

 

bom seguinte eu listei no meu banco as minhas notícias

 

só que quando eu chamo a notícia detalhadamente,

 

sempre me mostrar a mesma notícia, estou usando isso:

 

<a href="nomedapagina.asp? id=<%=Rs("Codigo")%>">

 

o que devo fazer para ficar certo?

 

Desde já agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

esta listando dentro de um laço?

 

esta dando o movenext para mudar de registro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Sim estou, olha isso

 

 

ASP
<%

Dim oConn

Dim oRs

Dim filePath

filePath = Server.MapPath("..webbancobanco.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

Set oRs = oConn.Execute("select * from tbl_noticia where Tipo='REGIONAL' order by Codigo desc")

Do while not oRs.eof

%>

......

......

<%

oRs.MoveNext

Loop

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce tem isso online para eu ver o codigo fonte que é gerado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

O meu camarada esse esquema de uma intranet

 

olha eu faço assim:

 

eu lista as notícias

 

e depois eu coloco isso <a href="nomedapagina.asp? id=<%=Rs("Codigo")%>">

 

para chamar a notícia completa

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

isso está dentro do laço de repetição?

 

poe o trecho do laço aqui

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Olha isso:

 

ASP
<%

Dim oConn

Dim oRs

Dim filePath

filePath = Server.MapPath("bancobanco.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

Set oRs = oConn.Execute("select * from tbl_noticia where Tipo='REGIONAL' order by Codigo desc")

Do while not oRs.eof

%>

         

        <table width="450" border="0" align="center" cellpadding="0" cellspacing="2" >

          <tr>

              <td width="26" height="21" > <div align="right"><font color="#000000" size="2" face="Verdana">

                  <input type="hidden" name="txtcontrole" id="txtcontrole3" value="<%=oRs("Codigo")%>">

                  </font></div></td>

              <td width="84" valign="top"> <div align="left"></div>

                <div align="left"></div>

                <div align="left"></div>

                <div align="left"><font color="#000000" size="2" face="Verdana"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=oRs("Data_pub")%></font>

                  - </font></div></td>

              <td width="327" valign="bottom"><font size="2" face="Verdana"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="pgn_noticia.asp? id=<%=oRs("Codigo")%>">

<%=oRs("titulo")%> </a>

                ... </font></font></td>

              <td width="13"> </td>

            </tr>

          </table>

        <%

oRs.MoveNext

Loop

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce diz que os codigos sao repetidos em todos os links?

 

e la em cima no campo de controle tambem?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Olha isso, nomes corretos

 

Olha isso:

 

ASP
<%

Dim oConn

Dim oRs

Dim filePath

filePath = Server.MapPath("bancobanco.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

Set oRs = oConn.Execute("select * from tbl_noticia where Tipo='REGIONAL' order by Codigo desc")

Do while not oRs.eof

%>

 

<table width="450" border="0" align="center" cellpadding="0" cellspacing="2" >

<tr>

<td width="26" height="21" > <div align="right"><font color="#000000" size="2" face="Verdana">

<input type="hidden" name="codigo" id="codigo" value="<%=oRs("Codigo")%>">

</font></div></td>

<td width="84" valign="top"> <div align="left"></div>

<div align="left"></div>

<div align="left"></div>

<div align="left"><font color="#000000" size="2" face="Verdana"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=oRs("Data_pub")%></font>

- </font></div></td>

<td width="327" valign="bottom"><font size="2" face="Verdana"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="pgn_noticia.asp? id=<%=oRs("Codigo")%>">

<%=oRs("titulo")%> </a>

... </font></font></td>

<td width="13"> </td>

</tr>

</table>

<%

oRs.MoveNext

Loop

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

essa parte

 

<a href="pgn_noticia.asp? id=<%=oRs("Codigo")%>">

 

monta sempre o mesmo link?

 

posta aqui um trecho do html gerado

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

ASP
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0">

  <tr>

    <td width="299"><img src="img_not_externas.gif" width="190" height="19"></td>

    <td width="110"> </td>

    <td width="41"> </td>

  </tr>

  <tr>

    <td valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><u>REGIONAIS</u></strong></font></td>

    <td> </td>

    <td> </td>

  </tr>

  <tr valign="top">

    <td height="99" colspan="3">

      <div align="center">

        <%

Dim oConn

Dim oRs

Dim filePath

filePath = Server.MapPath("bancobanco.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

Set oRs = Server.CreateObject("ADODB.RecordSet")

oRs.Open "select * from tbl_noticia where Tipo='REGIONAL' order by Codigo desc", oConn, 3, 3

Do while not oRs.eof

%>

        <table width="450" border="0" align="center" cellpadding="0" cellspacing="2" >

          <tr>

              <td width="25" height="21" > <font color="#000000" size="2" face="Verdana">

                </font></td>

              <td width="78" valign="top"> <div align="left"></div>

                <div align="left"></div>

                <div align="left"></div>

                <div align="left"><font color="#000000" size="2" face="Verdana"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=oRs("Data_pub")%></font>

                  - </font></div></td>

              <td width="323" valign="bottom"><div align="justify"><font size="2" face="Verdana"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="pgn_noticia.asp? id=<%=oRs("Codigo")%>"><%=oRs("titulo")%></a>... </font></font></div></td>

              <td width="14"> </td>

            </tr>

          </table>

        <%

oRs.MoveNext

Loop

%>

      </div></td>

  </tr>

  <tr valign="top">

    <td height="25" colspan="3"> <div align="center"><strong> </strong> <a href="gerente.htm" title="Ir para tela principal"></a>

      </div></td>

  </tr>

</table>

</body>

</html>

<%

        oRs.close

%>

 

OLHA PARA ONDE VAI

 

ASP
<%

Dim oConn

Dim oRs

Dim filePath

Dim id

filePath = Server.MapPath("bancobanco.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

id = Request.form("id")

set oRs = oConn.execute ("SELECT * FROM tbl_noticia WHERE Codigo =" &id)

%>

 

<table width="450" border="0" align="center" cellpadding="0" cellspacing="0">

  <tr>

    <td><table width="450" border="0" cellspacing="0" cellpadding="0">

        <tr>

          <td><p><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=oRs("Titulo")%>

              </font></strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>

              <br>

              por <%=oRs("Altor")%> <br>

              <%=oRs("Data_Pub")%></font></p>

            <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=replace (oRs("Noticia"),vbcrlf, "<br>")%></font></p>

      </td>

        </tr>

      </table></td>

  </tr>

</table>

</body>

</html>

<%

        oRs.close

%>

 

QUANDO EU PASSO O MOUSE NO LINK GERADO

 

me mostra na barra de status sempre um id diferente "relativo a noticia"

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

acho que entendi, o link está montando certo, o que dá errado é quando você clica pra ver os detalhes da noticia que você clicou...é isso?

se é, verifique se o nome da qyuerystring está correta, comparada com o request que você faz na página de detalhes, possivelmente tenha uma constante que você esqueceu de colocar o valor do link

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

resolveu seu problema? o que tava errado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Olá galera bom dia pra todos

 

o problema era o nome do id, como ele está recebendo um valor eu não me

atentei para nome "ID" e não o valor, foi mal.

 

Deixa eu perguntar:

 

Tenho dez notícias e só quero que me aparece para o usuário

somente as 5 primeiras, como é isso no SQL?

 

Desde já agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

use o TOP em seu SELECT

 

SELECT TOP 5 * FROM TABELA

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