strSQL = "SELECT TOP 3 * FROM Comercio ORDER BY Fecha DESC"
Set objRS = oConn.Execute(strSQL)
while (not objRS.Eof)
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 width="742">
<TR>
<TD width="97" align="center" bgcolor="#333399"><font color="#FFFFFF"><b>Fecha</b></font></TD>
<td>objRS("Fecha")</td>
</tr>
<tr>
<TD width="141" align="center" bgcolor="#333399"><font color="#FFFFFF"><b>Afiliación</b></font></TD>
<td>objRS("Afiliacion")</td>
</tr>
<tr>
<TD width="120" align="center" bgcolor="#333399"><font color="#FFFFFF"><b>Folio</b></font></TD>
<td>objRS("Afiliacion")</td>
</tr>
<tr>
<TD width="189" align="center" bgcolor="#333399"><font color="#FFFFFF"><b>Comercio</b></font></TD>
<td>objRS("Comercio")</td>
</tr>
<tr>
<TD width="192" align="center" bgcolor="#333399"><font color="#FFFFFF"><b>Asignado a: </b></font></TD>
<td>objRS("Instalador")</td>
</TR>
</table>
objRS.MoveNext
...sip...quedan un par de detalles pero esos te los dejo a ti para que sigas aprendiendo...
ah!...y una recomendación...consiguete un manual de html...