Link mostra consulta na tela...

[Legionario-rs 0]

Boa noite pessoal,

 

A uma semana estou quebrando a cabeça pra fazer funcionar o seguinte...

 

Este script abaixo é de uma página que carrega informações do banco para serem mostradas em outra página mas não sei se o problema é no link ou no select da outra página. Se puderem me ajudar agradeço... abaixo seguem os dois codigos...

 

Code

Agenda.inc

 

<br>

<h4>Agenda Escolar</h4>

<br>

<%

pagina = Request.QueryString("p")

if pagina = "" then

pagina = 1

end if

'Seta a variavel pagina como a página em questão na paginação

registros = 12

'Seta o número de registros por pagina

%>

<table width="140%" border="0" align="center" cellpadding="9" cellspacing="9">

<%

Set Conexao = Server.CreateObject("ADODB.CONNECTION")

Set RSagenda = Server.CreateObject("ADODB.RECORDSET")

Conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Criança Feliz\banco\loja.mdb;"

Conexao.Open

set RSagenda.ActiveConnection = Conexao

RSagenda.cursortype = 3

RSagenda.pagesize = registros

SQLagenda = "SELECT * FROM categorias_eventos WHERE id ORDER BY id"

RSagenda.Open SQLagenda

%>

<%

if RSagenda.EOF then

response.write("<font face=Arial size=2><center><b>" & server.HTMLEncode("Sua pesquisa não retornou nenhum resultado") & "</b></center></font>")

else

RSagenda.absolutepage = pagina

if RSagenda.EOF then

response.write("<font face=Arial size=2 color=red><center><b><br>" & server.HTMLEncode("Não existem mais albuns, clique abaixo e volte ao inicio!") & "</b></center></font><br><br>")

fim = 1

end if

'variaveis para lista em colunas - inicio

contador = 0

inicio = 1

final = 0

auxEntra = 0

coluna = 3

'maxlinha = 4

'variaveis para lsita em colunas - final

xx = 0 'paginacao

While NOT RSagenda.EOF AND xx < RSagenda.pagesize

contador = contador + 1 'lista em colunas

xx = xx + 1 'paginacao

'mais sobre a lista em colunas - inicio

IF int("0"&coluna) = int("0"&contador) THEN

inicio = 0

final = 1

contador = 0

END IF

IF (int("0"&inicio) = 1) AND (int("0"&auxEntra) = 0) THEN

auxEntra = 1

response.write "<tr>"

END IF

if RSagenda("nome") <> "" then%>

<td bgcolor=blue align=center>

<%if RSagenda("nome") <> "" then%>

<a href="detalhe_agenda.asp?cat_id=<%=RSAgenda("nome")%>"><font face=verdana color=white size=2><b><%=RSagenda("nome")%></b></font></a>

<%else%>

<font face=verdana size=1><img border=0 width=100 src='images/sem_foto.jpg'>

<BR><%=server.htmlencode(RSagenda("nome"))%></font>

<%end if%>

</td>

<%else%>

<td>

<center>

<font face=verdana size=1><img border=0 width=100 src='images/sem_foto.jpg'>

<BR><%=server.htmlencode(RSagenda("nome"))%></font>

</center>

</td>

<%end if

IF int("0"&final) = 1 THEN

response.write "</tr>"

inicio = 1

final = 0

auxEntra = 0

END IF

'mais sobre a lista em colunas - final

'response.write "Nº " & xx & " - " & server.HTMLEncode(RSagenda("disp")) & "<br>"

RSagenda.MoveNext

Wend

end if

if fim = "" then

anterior = pagina - 1

proxima = pagina + 1

end if

Conexao.Close

Set RSagenda = Nothing

%>

</table>

<%

if anterior <> 0 then

end if

%>

CODE

detalhe_agenda.inc

<%

'declarando objetos

dim sql_agenda, objConn_agenda, rs_agenda, col_agenda, colu_agenda, imagem_agenda, nome_agenda

SET objConn_agenda = Server.CreateObject("AdoDB.Connection")

objConn_agenda.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Criança Feliz\banco\loja.mdb"

sql_agenda = "SELECT * FROM produtos_eventos WHERE id LIKE cat_id;"

Set rs_agenda = objConn_agenda.Execute(sql_agenda)

'numero de colunas

col_agenda=1

if not rs_agenda.eof then

' esta var armazena o numero de colunas

colu_agenda=1

'começamos a tabela

response.write "<table align=center><tr><td>"

'iniciamos o loop´

while not rs_agenda.eof

%>

<font face="Arial" color="red" size="3"><b><%response.write rs_agenda ("nome")%></a></b></font>

<%

'fazemos a contagem das colunas e se tiver no limite faz outra linha

if colu_agenda=col_agenda then

response.write "</td><tr><td>"

'reinicia contagem

colu_agenda=1

else

' como não alcançou o limite fazemos outra coluna

response.write "</td><td>"

'somamos +1 na variavel colu

colu_agenda=colu_agenda+1

end if

'terminamos o loop

rs_agenda.movenext

wend

response.write "</td></tr></table>"

end if

rs_agenda.close

set rs_agenda=nothing

%>

 

[Ronaldo Bueno 23]

Da algum erro?

O nothing vem antes do close.

 

Mas mostre o erro

[Legionario-rs 0]

Bom dia,

 

Erro não dá o que acontece é que era pra mostrar os dados referentes a um item da tabela "cat_id" tipo se a "cat_id" for Janeiro mostra todos os itens de janeiro mas ao contrario está mostrando todos os itens os de janeiro os de fevereiro e assim por diante todos os meses cadastrados.

[Ronaldo Bueno 23]

Da um response.write sql_agenda e post aqui.

 

Esse like esta estranho. Precisa ver como ver essa variavel cat_id

[Legionario-rs 0]

Obrigado pela ajuda,

 

Resolvi o problema era o link mesmo... ele estava errado...

 

Valeu!!!

[Legionario-rs 0]

Boa tarde pessoal,

 

Me enganei... fiz o registro de um album no banco e tudo estava funcionando mas quando registrei as fotos do segundo album o script mostra as fotos cadastradas no primeiro album e não as do segundo. Alguém pode me ajudar!!!!!!!!!!! Por favorrrrrrrr