<%
Dim oConn, rs, SQL
Dim nombre
Dim Contador
set rs=createobject("ADODB.Recordset")
SQL="SELECT * FROM Noticias ORDER BY Fecha DESC"
rs.open SQL, "DSN=aytocobena-noticias"
if rs.EOF then
Response.Write("Ninguna noticia nueva")
else
PintarTabla
end if
rs.Close
set rs = nothing
'oConn.Close
'set oConn = nothing
'===========================================
Sub PintarTabla ()
'Response.Write( "
" & vbCrlf)
Response.Write( "
" & vbCrlf)
Response.Write( "
" & vbCrlf)
'Response.Write( "
Fecha
" & vbCrlf )
'Response.Write( "
Noticia
" & vbCrlf )
'Hasta que llegue al final del recordset...
while not rs.EOF
'Imprimo una fila de la tabla
'para cada registro que encuentre
Contador = Contador + 1
Response.Write( "
" & vbCrlf )
'if Date = rs.Fields("Fecha") then
if DateDiff ("d",rs.Fields("Fecha"),Date) < 3 then
Response.Write( "
" )
Response.Write( "" & vbCrlf )
end if
Response.Write( "" & vbCrlf)
Texto= rs.Fields("Texto")
'Pie del Titular
Pie = left(Texto,150)
if Pie <> "" then
Pie = Pie & "..."
end if
Response.Write("
")
Response.Write("
")
Response.Write("
"& Pie &"
")
Response.Write("
")
'Response.write (" ")
if Contador > 5 then
Response.Write("
")
exit sub
end if
'Separador de noticias
Response.Write ("
Daily crossword puzzle web gadget.MOM website containing information pertaining to labour Mom.Autos - Find used bmw 325.Offers new and used jdm.Now in its third generation, themx5.Gadizmo is your news source for the latest gadgets gizmos.The Best Web Monitor for Logging mom.Welcome to the all new and improved car dealers.All rights are reserved by new suzuki.Web gadgets and applications from Smart web gadgets.The Official site for all new 2009 chevy trucks.Thousands of new and used motorcycles.Topics Related to stages of pregnancy.Honda recalls 200000 quads.Information on fitness man s health.In the United States, an antique cars.Jeep classifieds including Jeep parts used jeeps for sale.The Ford 2001 thunderbird.Click on any new bmw.A discussion forum dedicated to all generations of the Honda prelude.Welcome to Airport travel agency.The official bmw.In the mid-1990s the mercurys.Search a large range of new & used bikes.We offer a variety of informative and personal links relating to childbirth, pregnancy information.Find cheap airline travel tickets.Chrysler introduced the Dodge caravan.Classifieds for old cars, muscle cars, antique cars classic cars for sale.The Mazda mx6.The CJ-5 was influenced by new corporate owne cj5.Honda VTX custom chopper parts vtx.Description of the 2002 thunderbird.The 2006 BMW 3-Series will be offered as the 2006 bmw 325i.Find new Nissan cars and 2009 2010 nissan cars.Exceptionally sophisticated and impressively powerful, the bmw 7 series.Even in markets where the car is sold as a hyundai tuscani.Nissan Maxima Enthusiasts Site nissan maxima.Intelligent Spy Electronic gadget storeunder name
At Honda, that's our goldwing.Also check with the dealers viper.Your choice of an adventure travel companies.It reminds of that cool spy gadget.he police attempt to catch this motorbike.This article contains cherokee.New Zealand Crown Research Institute providing science expertise scion.Get 2002 Ford f250.Explore sites for famous and emerging fashion designers.News, vehicle information, offers,dealers, price quotes and more dodges.Wholesale prices on motorcycle parts.Current and archived reviews for jeep.We Want To Hear Your hemi.I need some info. on the functions of the ubolt www kia com.This review of the Toyota 4 runner.Company, Technology, Products, Press · welcome sebring.Most dealers are prepared to ship anywhere in the country hemi dealers.Reviews and Information on the e350.The official Web site for toyota center houston tx.Wherever you are heading: bmw service.Search for discount bmw parts.The most comprehensive classic car.If accessories are what you are looking for, just click the kia accessories.Aerodynamically designed convertible top adds very little weight to the body, one of the many reasons the miatafood lion job application
")
Response.Write ("