Alguien me puede decir por que me manda este error:
Microsoft VBScript compilation error '800a0400'
Expected statement
/bases/prueba.asp, line 48
End If
^
Este es el codigo que e ido cambiando forme me han retroalimentado de hecho practicamente es el codigo de MICKEL que me envio:
<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 3 * 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
End If
%>
</BODY>
Alguien me puede ayudar??