<% Response.expires=-1000 Response.Buffer=True Dim idp_,categoria_,ClasseVazia,qt_categorias,qt_eventos qt_categorias=0 qt_eventos=0 categoria_="" '---------------------------------------------------- idp_="GER" '--------- verifica de onde é a chamada ------------- if Request.QueryString("idp").Count=1 then idp_=Request.QueryString("idp") end if '---------------------------------------------------- %> <%'%> Escolas
 
Neste espaço pode encontrar listagens de websites das escolas que fizeram aqui a sua divulgação.
A actualização é feita online pelos utilizadores.
<% if Request.QueryString("id").Count=1 then Response.write("
") MostraMensagem (Request.QueryString("id")) end if %>

<%response.write(""&"Adicionar Escola")%>

 

<% Call Listar() If qt_eventos=0 then Response.write("Ainda não foi submetido nenhum evento nesta categoria,
") Response.write("se desejar pode ser o primeiro, para tal, utilize o 'Link' acima.") Else%>
<%response.Write(qt_eventos&" Escolas listadas, em "&qt_categorias&" Categorias")%>
<%End If%>
<%'%> <%'------------------------------------------------------------------------ Sub Listar() set conn1=server.createobject("adodb.connection") conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & database ssql="SELECT * FROM "&lista1 Set rs = conn1.Execute(ssql) response.write(" ") response.write ("") response.write ("") response.write ("") response.write ("") do until rs.eof categoria_=rs("txt") ListaCategoria (categoria_) rs.movenext loop response.write("
"& "Escola"&"" & "Localidade"&"" & "URL"&"" & "E-mail"&"
") end sub %> <%'------------------------------------------------------------------------ Sub ListaCategoria(ByVal tipo) Dim connection set conn1=server.createobject("adodb.connection") conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & database ssql="SELECT * FROM escolas WHERE id_classe='" & idp_ & "' AND tipo='" & tipo & "' order by escola ASC" Set rs1 = conn1.Execute(ssql) if not rs1.eof then qt_categorias=qt_categorias+1 response.write("" & tipo&"") End If do until rs1.eof qt_eventos=qt_eventos+1 response.write ("") response.write("") response.write( rs1("escola")) response.write("") response.write("") response.write( rs1("localidade")) response.write("") response.write( rs1("url")) response.write("") response.write( rs1("email")) response.write("") rs1.movenext loop End Sub '------------------------------------------------------------------------ Sub MostraMensagem(ByVal id) Dim connection set conn1=server.createobject("adodb.connection") conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & database ssql="SELECT * FROM escolas WHERE id="&id&"and id_classe='"&idp_&"'" Set rs1 = conn1.Execute(ssql) if not rs1.eof then 'estranhamente ao aplicar a função Len ao memo, o mesmo fica vazio, usa-se uma variável descricao_=rs1("descricao") response.write(" ") if Trim(rs1("escola"))<>"" then response.write("") if Trim(rs1("localidade"))<>"" then response.write("") if Trim(rs1("descricao"))<>"" then response.write("") if Trim(rs1("url"))<>"" then response.write("") end if if Trim(rs1("email"))<>"" then response.write("") end if if Trim(rs1("tipo"))<>"" then response.write("") response.write("
"& "Escola:" & rs1("escola")&"
" & "Localidade:" & rs1("localidade")&"
" & "Descricao:" & rs1("descricao")&"
" & "Página WWW:" ) response.write("" & rs1("url")&"
" & "E-mail:") Response.write(""& rs1("email")&"
" & "Tipo de Escola:" & rs1("tipo")&"
") End If End Sub '------------------------------------------------------------------------%>