<% IdMensaje = Trim(Request.QueryString("Id")) set oConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("libro.mdb") SQL = "SELECT * FROM Mensajes WHERE Control=0 and Respuestas=0 ORDER BY fecha DESC" rs.Open SQL, oConn, 1, 2 %>

<% While Not rs.EOF %> <% rs.movenext Wend %>

MENSAJES SIN RESPUESTA

   

Título Autor Fecha
 "> <%=Rs("Titulo")%>  <%=Rs("Nombre")%>

 <%=Rs("Fecha")%>


<% rs.Close set rs = nothing oConn.Close set oConn = nothing %>

Volver