no se si lo habre puesto bien pero no me escribe nada dentro del textbox :
<% dim conn,rs,nombre,mensaje,fecha
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("basesdedatos\libvis.mdb"))
consulta_SQL= "SELECT TOP 1 mensajes.Nombre, mensajes.Mensaje, mensajes.Fecha FROM mensajes ORDER BY mensajes.Fecha DESC;"
Conn.execute consulta_SQL
RS.Open consulta_SQL ,conn,1,3
%>
<form name="form1" method="post" action="">
<textarea name="textarea"value ="<%=rs("mensaje")%>"></textarea>
</form>
