Criar página para exibir dados.

[criacaoi7 0]

hargon e mário, agora listou a cidade, mas dentro de um erro:

 

Dracena

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário

/cidades/exibe_escolas2.asp, line 28

 

Na linha 28>>

rsDados.movenext

 

Código parcial:

 

<%
'Abrimos a Conexão com o Banco
Dim caminho
Dim conexao
Dim id_cidade
Dim escolas
Dim cidade
id_cidade = request.querystring("id_cidade")
if not isnumeric(id_cidade) then
	 id_cidade = 0
end if
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source=c:\web\olimpiadaconsespcombr\database\BD_DADOS.mdb"
conexao.open

		'Selecionamos todos os Produtos da Tabela
Set rsDados = Server.CreateObject("ADODB.Recordset")
strDados = "SELECT * FROM Cadastro_Escolas WHERE id_cidade = " & id_cidade & " ORDER BY id_escola"
		rsDados.open strDados, conexao, 3, 3
		
while not rsDados.eof
   set rsCidade = Conexao.Execute ("SELECT * FROM cidades where id_cidade=" & id_cidade)
   if not rsCidade.eof then
		 response.write rscidade("cidade")
   end if
   rsDados.close
   set rsDados = nothing
   rsDados.movenext
wend

'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset
rsDados.PageSize = 10

'Criamos as Validações
if rsDados.eof then
   Mensagem = "Nenhum Registro Encontrado"
   Response.End
else
   'Definimos em qual pagina o visitante está
   if Request.QueryString("pagina")="" then
	  intpagina = 1
   else
	  if cint(Request.QueryString("pagina"))<1 then
intpagina = 1
	  else
if cint(Request.QueryString("pagina"))>rsDados.PageCount then  
	intpagina = rsDados.PageCount
		 else
	intpagina = Request.QueryString("pagina")
end if
	  end if   
   end if   
		end if
%>

[hargon 64]

Como você fecha um recordset e depois tenta mover para o próximo registro?

while not rsDados.eof

set rsCidade = Conexao.Execute ("SELECT * FROM cidades where id_cidade=" & id_cidade)

if not rsCidade.eof then

response.write rscidade("cidade")

end if

rsDados.close

set rsDados = nothing

rsDados.movenext

wend

 

Onde está em negrito, deveria está fechando rsCidade e não rsDados.

[criacaoi7 0]

hargon corrigi o erro, mas agora só está listando o nome da cidade e mais nada...

 

veja como está exibindo:

http://www.olimpiadaconsesp.com.br/cidades...?id_cidade=4973

 

As demais informações como os dados da escola não são exibidas.

 

O que pode ocorrer...

[hargon 64]

Mas a única informação que você pede para listar dentro do while é a cidade...