<%
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 storethe success of
Export your travel map to any Web page travel map.Find and buy used Dodge srt 4 dealers.2008 Chevrolet TrailBlazer Video chevy truck.Ford F150 need to replace ring & pinion 98 4x4 4.6 xlt.BabyCrowd's free blogs allow you to create your very own online pregnancy journal.Mom and son makeout for Tickets to Nascar race mom son.Office Gadgets on Coolest Gadgets a href=http://gadgettoolls.com/hardware-round-up-hottest-gadgets-of-2008.html rel=dofollow>office gadgets.Offer inbound travel tour.Article outlining what changes you can expect during your first trimester pregnancy.Suzuki's website for ATVs, dealers and newssuzuki.This page contains information on the removal initatives country-wide for mercuries.Used 2005 Dodge Neon srt 4 dealership.Ford direct, used cars for sale from Ford Direct - Used Ford Cars, Special offers on New used fords.The official site of the Harley-Davidson Motor Company. View Harley-Davidson motorcyclesdoris wokurka
")
Response.Write ("