<% str = "select * from tbl_projetos where id="&request.QueryString("projeto") set rs = conn.execute(str) ' receber dados mapa m_mapa = rs("mapas") %>
    <% projeto = request.QueryString("projeto") str_fotos = "select * from tbl_fotos_albuns where projeto="&projeto set rs_fotos = conn.execute(str_fotos) 'response.Write(str_fotos) album = rs_fotos("id") Set rs2 = Server.CreateObject("adodb.recordset") RS2.PageSize = 12 str2 = "select * from tbl_fotos where album="&album 'response.Write(str) rs2.cursorlocation = 3 rs2.open str2,conn,3,3 if not rs2.eof then if cint(Request.QueryString("pagina"))<1 then intpagina=1 elseif cint(Request.QueryString("pagina"))> rs2.PageCount then intpagina=rs.PageCount else intpagina=Request.QueryString("pagina") end if RS2.AbsolutePage=intpagina intrec=0 else response.Write("Nenhuma foto neste projeto!") end if %> <% While intrec < RS2.PageSize and not RS2.EOF %>
  • " rel="lytebox[<%=album%>]" title="<%=rs2("legenda")%>">" width="40" height="40" alt="Pró-Carnívoros" />
  • <% rs2.movenext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS2.EOF then response.write " " END IF Wend 'fim do loop loop %>
<%if rs("finalizado")=0 then %>
Projetos
<%else%>
Projetos Finalizados
<%end if%>

<%=rs("nome")%>

<%=rs("equipe")%>
Descrição do Projeto

<%=rs("descricao")%>

< voltar