<%@LANGUAGE="VBSCRIPT"%> <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver=MySQL ODBC 3.51 Driver;server=mssql.tapabrasil.org.br;uid=tapa;pwd=654123;database=tapa" sQuery = "SELECT * FROM artigos WHERE YEAR(data) = '2007'" Set RecSet = Connect.Execute(sQuery) %> TAPA - Transported Asset Protection Association
   
Notícias do Brasil !
<% color=2 %> <%if not RecSet.EOF Then While Not RecSet.EOF%> class="Titulo"> <% color = color + 1 %> <% RecSet.MoveNext Wend End If %>
Data
Notícia
Fonte

Cidade

Tipo de Carga
<%=RecSet("Data")%>

"><%=RecSet("Titulo")%>

<%=RecSet("Font")%> <%=RecSet("Cidade")%> <%=RecSet("TipoCarga")%>