<% Dim oConn,RS Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("./bbdd/transweb.mdb") Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open "agenda",oConn, 1 RS.Filter = "visible='True'" Do While Not RS.EOF %> <% RS.MoveNext Loop Rs.Close oConn.Close Set RS = nothing Set oConn = nothing %> <% Response.Write RS("Titulo") %> <% Response.Write RS("Fecha") & "  " Response.Write RS("Hora") & " " Response.Write RS("Lugar") %> <% Response.Write RS("Sinopsi") & " " %> <% Response.Write RS("link") & " " %>