<% Set rs = Server.CreateObject("ADODB.Recordset") %> ADP

cases
vitrine temas noticias
luminaria bossa Designer vs
Empresa:
O caminho das pedras.
portfolios
portfolios
eventos
<% SQL = "Select imgmenu from minicurso where imgmenu <> '' and publicar = 'S' order by data desc" rs.open SQL,conexao if not rs.eof then %> " width="110" align="left" border="0" alt="eventos ADP">
<% end if rs.close %>
<% count = 0 SQL = "Select top 4 * from noticias where publicar = 'S' order by data desc" rs.open sql, conexao while not rs.eof and count < 4 if cor = "#FFFFFF" then cor = "#000000" else cor = "#FFFFFF" end if count = count + 1 %>

<%= ucase(rs("titulo"))%>

<% rs.movenext wend rs.close %>