<%Dim Con, tsql, oRS on error resume next Set Con = Server.CreateObject("ADODB.Connection") estado=request.form("pes_estado") 'if estado="" then ' estado="AC" ' estado="AP" ' estado="AL" ' estado="AM" ' estado="BA" ' estado="DF" ' estado="GO" ' estado="MA" ' estado="MT" ' estado="MS" ' estado="MG" ' estado="PA" ' estado="PR" ' estado="PE" ' estado="PI" ' estado="RJ" ' estado="RS" ' estado="RO" ' estado="RR" ' estado="SP" ' estado="SE" ' estado="TO" 'end if if estado = "SP" then elseif estado = "AC" then elseif estado = "AP" then elseif estado = "AL" then elseif estado = "AM" then elseif estado = "BA" then elseif estado = "RJ" then end if Con.open "guiadeescolas.com.br" continua_sql=" Where estado='" & estado & "'" tsql="select distinct(cidade) from escolas " & continua_sql & " order by cidade" set oRS=Con.execute(tsql) if err.number<>0 then response.write("



Este serviço não está disponivel no momento.
") response.end end if %> Guia de Escolas

Preencha o(s) campo(os) onde você deseja que
nosso sistema realize a busca.

   

  Estado:     <%If estado="AC; AP; AL; AM; BA; DF; GO; MA; MA; MT; MS; MG; PA; PR; PE; PI; RJ; RS; RO; RR; SP; SE; TO" Then %>     <% response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") End If %>

Cidade:

Endereço: 

Escola:

Bairro: 

Cep:

<% On error resume Next Con.Close Set Con=Nothing Set oRS=Nothing if err.number<>0 then response.write("



Este serviço não está disponivel no momento.
") response.end end if %>