<% dim texto,noticias,cual set conexion=Server.CreateObject("ADODB.Connection") conexion.provider="Microsoft.Jet.OLEDB.4.0" conexion.open(Server.MapPath("noticias.mdb")) set base=Server.CreateObject("ADODB.Recordset") sql="SELECT * FROM noticias order by fecha desc" base.open sql,conexion while base.eof<>true response.write "" for each campos in base.fields if campos.name="titulo" then cual=campos.value response.write "" response.write "" response.write "" end if if campos.name="enlace" then response.write "" response.write "" response.write "" end if if campos.name="fecha" then response.write "" response.write "" response.write "" end if next response.write "

	"&campos.value&"
	"&campos.value&"|
	"&campos.value&"|

" base.movenext wend base.close set base=nothing set conexion=nothing %>