%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit Response.Buffer=1 %> <% Dim Conn Set Conn = ConexionAbre Dim listado,cuan set listado = Server.CreateObject("ADODB.Recordset") listado.ActiveConnection = Conn listado.Source = sql_anuns listado.CursorType = 0 listado.CursorLocation = 2 listado.LockType = 3 listado.Open %>