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