<% projeto = request.QueryString("cod") str_fotos = "select * from tbl_fotos_albuns_a where projeto="&projeto 'response.Write(str_fotos) set rs_fotos = conn.execute(str_fotos) album = rs_fotos("id") Set rs2 = Server.CreateObject("adodb.recordset") RS2.PageSize = 12 str2 = "select * from tbl_fotos_a 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 deste animal!") end if %> <% While intrec < RS2.PageSize and not RS2.EOF %>
  • " rel="lytebox[<%=album%>]">" width="40" height="40" />
  • <% 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 %>
Animais

 

<% Set rs = Server.CreateObject("adodb.recordset") str = "select * from tbl_animais where id="& request.QueryString("cod") rs.cursorlocation = 3 rs.open str,conn,3,3 %>

<%=rs("nome")%> (<%=rs("cientifico")%>)

    <% if len(rs("rastro"))>=1 then %>
    " width="200" height="200" />
    <%end if%>
  • <%=rs("texto")%>
< voltar