<% 'RELAÇÃO DE EQUIPAMENTOS EM DESTAQUE '-------------------------------------------------------------------------- Randomize R = clng(1E6 * rnd) SQL = "select TOP 3 equId,subCatId,equNome,equPublicado,equDestaque from EQUIPAMENTOS where equPublicado = true and equDestaque = true order by rnd(-(1000*equId)* " & R & ")" set rsDes = createObject("adodb.recordset") rsDes.Open(SQL), DB, 1 '-------------------------------------------------------------------------- %> OPERMAK ... Produtos
<% while not rsDes.EOF 'RELAÇÃO DE FOTOS '-------------------------------------------------------------------------- SQL = "select TOP 1 * from EQU_FOTOS where equId = " & rsDes("equId") & " order by equFotId" set rsFot = createObject("adodb.recordset") rsFot.Open(SQL), DB, 1 '-------------------------------------------------------------------------- if not rsFot.eof then %> <% else %> <% end if rsDes.movenext wend %>
   
" target="_top">" width="90" height="70" border="0"> " target="_top"><%= rsDes("equNome") %>
   
" target="_top"><%= rsDes("equNome") %>

   
<% rsFot.close() set rsFot = nothing rsDes.close() set rsDes = nothing %>