<% Set RS_fotos2 = Server.CreateObject("ADODB.Recordset") RS_fotos2.CursorLocation = 3 RS_fotos2.CursorType = 0 RS_fotos2.LockType = 3 RS_fotos2.Open "SELECT * FROM categorias", Conexao DO UNTIL RS_fotos2.EOF %> <% Set RS_fotos = Server.CreateObject("ADODB.Recordset") RS_fotos.CursorLocation = 3 RS_fotos.CursorType = 0 RS_fotos.LockType = 3 RS_fotos.Open "SELECT * FROM foto_produto WHERE album = '"&RS_fotos2("codigo_chave")&"' LIMIT 1", Conexao DO UNTIL RS_fotos.EOF %>
  • " alt="portfolio" width="220" height="170"/>

    <%=RS_fotos2("nome_categoria")%>

  • <% RS_fotos.MoveNext Loop %> <% RS_fotos2.MoveNext Loop %>