<% '----ligar á base de dados---------------------------------------------------- Dim connection set connection=server.createobject("adodb.connection") connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database) tipo="N" '------------------ escreve comunidades--------------------------------- if request.QueryString("listar").count<1 then %> <%Set rs = connection.Execute("SELECT * FROM comunidades WHERE tipo='"&tipo&"'") do until rs.eof%> <% rs.movenext loop%>

Neste espaço pode encontrar a mostra dos trabalhos desenvolvidos nas Oficinas.

Comunidades
    Comunidade Descrição
  <% response.write("")%> <%="" & rs("designacao")& ""%> <%=rs("descricao")%>
<% '------------------ fim escreve comunidades--------------------------------- else '------------------ lista trabalhos---------------------------------%>

<%response.write(""&"Galeria")%>

 
<% id=request.QueryString("listar") Response.write("
") Set rs = connection.Execute("SELECT * FROM comunidades WHERE id="&id&" ORDER BY id DESC") if not rs.eof then do until rs.eof session("homeDir")=rs("homedir") idr=rs("id") designacao=rs("designacao") Response.write("") EscreveTrabalhosComunidade(idr) rs.movenext response.write("") Loop set rs=nothing connection.close End If Response.write("
"&designacao&"
 
") end if '------------------ escreve todos trabalhos --------------------------------- escrevetodos=false if escrevetodos then Response.write("
") Set rs = connection.Execute("SELECT * FROM comunidades ORDER BY id DESC") if not rs.eof then do until rs.eof idr=rs("id") designacao=rs("designacao") Response.write("") EscreveTrabalhosComunidade(idr) rs.movenext response.write("") Loop set rs=nothing connection.close End If Response.write("
"&designacao&"
 
") end if '------------------ fim escreve todos trabalhos --------------------------------- %> <% function EscreveTrabalhosComunidade(idr) dim rs Set rs = connection.Execute("SELECT * FROM trabalhos WHERE galeria=true AND idr="&idr&" ORDER BY id DESC") do until rs.eof%> <% response.write(rs("titulo") &"
") response.write(rs("descricao") &"
") response.write("Autor:"& " "&rs("autor")&"
") response.write("Data:"& " "& rs("data") &"
") response.write(""& rs("ficheiro")& "") rs.movenext response.write("") loop End function%>