<%@LANGUAGE="VBSCRIPT"%> <% Dim Datos Dim Datos_cmd Dim Datos_numRows Set Datos_cmd = Server.CreateObject ("ADODB.Command") Datos_cmd.ActiveConnection = MM_basededatos_STRING Datos_cmd.CommandText = "SELECT * FROM noticias WHERE (Categoria = 1) OR (Categoria = 2) ORDER BY Fecha DESC" Datos_cmd.Prepared = true Set Datos = Datos_cmd.Execute Datos_numRows = 0 %> <% CurrDate = Now() CurrHour = Hour(CurrDate) if CurrHour < 10 then CurrHour = "0" & CurrHour CurrMin = Minute(CurrDate) if CurrMin < 10 then CurrMin = "0" & CurrMin CurrSec = Second(CurrDate) if CurrSec < 10 then CurrSec = "0" & CurrSec CurrDateT = WeekdayName(Weekday(CurrDate), TRUE) & ", " & Day(CurrDate) & " " & _ MonthName(Month(CurrDate), TRUE) & " " & Year(CurrDate) & " " & _ CurrHour & ":" & CurrMin & ":" & CurrSec & " GMT" Encabezado = "" & vbCrlf Encabezado = Encabezado & "" & vbCrlf Encabezado = Encabezado & "" & vbCrlf & vbCrlf Encabezado = Encabezado & "" & vbCrlf Encabezado = Encabezado & "" & vbCrlf Encabezado = Encabezado & "http://www.bolivia4x4.com/" & vbCrlf Encabezado = Encabezado & "Somos un grupo de amigos que disfrutamos de viajes a medida en Bolivia, expediciones en 4x4. Desiertos del altiplano, Salar de Uyuni, Parque Sajama, Lipez, itinerario y turismo exclusivo" & vbCrlf Encabezado = Encabezado & "" & CurrDateT & "" & vbCrlf %> <% Response.ContentType = "text/xml" Response.Write(Encabezado) Response.Write("es-ES " & vbcrlf) Response.Write("COPYRIGHT 2011 Khainata - Web Designers" & vbcrlf & vbcrlf) %> <% i = 1 While i < 101 AND Not Datos.EOF %> <% NuevoLink = "http://www.bolivia4x4.com/noticias_proc.asp?ID=" & (Datos.Fields.Item("ID").Value) CurrDate = (Datos.Fields.Item("Fecha").Value) CurrHour = Hour(CurrDate) if CurrHour < 10 then CurrHour = "0" & CurrHour CurrMin = Minute(CurrDate) if CurrMin < 10 then CurrMin = "0" & CurrMin CurrSec = Second(CurrDate) if CurrSec < 10 then CurrSec = "0" & CurrSec CurrDateT = WeekdayName(Weekday(CurrDate), TRUE) & ", " & Day(CurrDate) & " " & _ MonthName(Month(CurrDate), TRUE) & " " & Year(CurrDate) & " " & _ CurrHour & ":" & CurrMin & ":" & CurrSec & " GMT" %> <% response.write "" response.write "" response.write "" & NuevoLink & "" response.write "" & CurrDateT & "" response.write "" & (Datos.Fields.Item("Resumen").Value) &"...]]>" response.write "" & vbcrlf & vbcrlf %> <% i = i + 1 Datos.Movenext Wend %> <% Response.Write( vbcrlf & "" & vbcrlf & "") %> <% Datos.Close() Set Datos = Nothing %>