%@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
 |
 |
|
|
|
|
|
|
|
|
|
| Data |
|
Fonte |
Cidade |
Tipo de Carga |
<% color=2 %>
<%if not RecSet.EOF Then
While Not RecSet.EOF%>
class="Titulo">
| <%=RecSet("Data")%> |
"><%=RecSet("Titulo")%> |
<%=RecSet("Font")%> |
<%=RecSet("Cidade")%> |
<%=RecSet("TipoCarga")%> |
<% color = color + 1 %>
<%
RecSet.MoveNext
Wend
End If
%>
|
|
|