<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% sql = "SELECT * FROM adm_link_categ ORDER BY nome" Set RS = Server.CreateObject("ADODB.RecordSet") Rs.open sql, conn, 1,3 %> MenEngage
 

 
Resources
Links
 
<% while not RS.eof%>

<%= RS("nome") %>

<% ssql = "SELECT * FROM adm_link WHERE cod_link_categ = "& RS("cod_link_categ") &" ORDER BY nome" Set RSs = Server.CreateObject("ADODB.RecordSet") Rss.open ssql, conn, 1,3 while not rss.eof %> <% if RsS("logo") <> "" then%><% end if %>
" border="0">

" target="_blank"><%= rss("nome")%>

<% Rss.Movenext wend RS.movenext wend %>
 
 
<% Rs.close Set RS = nothing Conn.close Set conn = nothing %>