La que esta en Negrita es la linea 15
<HEAD>
</HEAD>
<BODY>
<%
'Instanciamos y abrimos nuestro objeto conexion
Dim Conn,strSQL, objRS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Ctro Mensajes.mdb"))
Dim Temp
strSQL = "SELECT TOP 5 * FROM Skytels ORDER BY Fecha DESC"
Set objRS = Conn.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("Nombre")%></td>
</tr>
<tr>
<TD width="141" align="center" bgcolor="#333399"><font color="#FFFFFF"><b>Afiliación</b></font></TD>
<td><%objRS("Apellido")%></td>
</tr>
<tr>
<TD width="120" align="center" bgcolor="#333399"><font color="#FFFFFF"><b>Folio</b></font></TD>
<td><%=objRS("pin")%></td>
</tr>
<tr>
<TD width="189" align="center" bgcolor="#333399"><font color="#FFFFFF"><b>Comercio</b></font></TD>
<td><%=objRS("pal")%></td>
</tr>
<tr>
<TD width="192" align="center" bgcolor="#333399"><font color="#FFFFFF"><b>Asignado a: </b></font></TD>
<td><%=objRS("pin")%></td>
</TR>
</table>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
%>
</BODY>