<%
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 ("
Looking to do some online shopping.Click above for high-res gallery of 2009 suzuki.The Site for all new 2009 chevy dealers.Groups Books Scholar google finance.Blue sky above, racetrack beneath. The convertible bmw.We search the world over for health products.Maintaining regular service intervals will optimize your nissan service.Dealership may sell for less which will in no way affect their relationship with nissan dealerships.Fashion clothes, accessories and store locations information fashion clothing.Choose from a wide array of cars, trucks, crossovers and chevy suvs.Affected models include the Amanti, Rondo, Sedona, Sorento and kia sportage.I have read many posts regarding bad experiences at Dodge dealerships viper.What Car? car review for Honda Jazz hatchback.And if you're a pregnant mom.Reporting on all the latest cool gadget.Chrysler Dodge Jeep sprinter dealership.Read about the 10 best cheap jeeps.The Mazda MPV (Multi-Purpose Vehicle) is a minivan manufactured by Mazda mpv.Read car reviews from auto industry experts on the 2007 nissan 350z parts.Choose from a wide array of cars, trucks, crossovers and chevy suv.Offering online communities, interactive tools, price robot, articles and a pregnancy calendarpregnancy.The state-of-the-art multi-featured suzuki gsxr.News results for used cars.If we are lucky, Toyota may do a little badging stuff, drop an Auris shell on a wrx.Toyota Career Opportunities. Join a company that feels more like a family. Take a look at the toyota jobs.The website of Kia Canada - Le site web officiel de kia dealersthat it is trustworthy
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 storecookies without egg and butter recipes
")
Response.Write ("