<% set conexion=createobject ("ADODB.connection") set recor=createobject ("ADODB.recordset") set recor2=createobject ("ADODB.recordset") set recor3=createobject ("ADODB.recordset") set recor4=createobject ("ADODB.recordset") fecha = date() conexion.open "provider=microsoft.jet.oledb.4.0;Data source=" & server.MapPath("dbgolf.mdb") strSQL= "select * from noticias where ppal=true " strSQL3= "select * from competi where fecha <#"& fecha & "#" strSQL4= "select * from competi where fecha >#"& fecha & "#" set recor=conexion.execute(strSQL) set recor3=conexion.execute(strSQL3) set recor4=conexion.execute(strSQL4) %>