Hola:
Pues aquí va el código de principal.asp
Para ver la tabla:
gacetaragon.com/liga/ligas2.asp
Saludos.
<%
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../db/DHcadete/DHcadete.mdb") & ";"
db.Open DB_CONNECTIONSTRING
set rsActual = Server.CreateObject("ADODB.Recordset")
SQLActual = "SELECT JornadaA, FechaA, LocalA, GolesLA, VisitanteA, GolesVA FROM Portada"
rsActual.Open SQLActual,DB_CONNECTIONSTRING
%>
<html>
<head>
</head>
<body>
<div align="center">
<table width="100%" cellpadding="0" cellspacing="1" bgcolor="#003366">
<% do while not rsActual.EOF %>
<tr>
<td bgcolor="#FFFFFF"><p><%=rsActual.Fields("LocalA")% ></p></td>
<td bgcolor="#FFFFFF"><p align="center"><%=rsActual.Fields("GolesLA")%></p></td>
<td bgcolor="#FFFFFF"><p><%=rsActual.Fields("Visitante A")%></p></td>
<td bgcolor="#FFFFFF"><p align="center"><%=rsActual.Fields("GolesVA")%></p></td>
</tr>
<% rsActual.movenext
loop %>
</table>
</div>
</body>
</html>