<%@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 ORDER BY Fecha DESC, ID 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.ojoandroid.com/" & vbCrlf Encabezado = Encabezado & "OjoANDROID.com, blog sobre juegos, aplicaciones, noticias, tutoriales, root, ROM en la Plataforma ANDROID" & vbCrlf Encabezado = Encabezado & "" & CurrDateT & "" & vbCrlf %> <% Response.ContentType = "text/xml" Response.Write(Encabezado) Response.Write("es-ES " & vbcrlf) Response.Write("COPYRIGHT 2016 OjoANDROID.com" & vbcrlf & vbcrlf) %> <% i = 1 While i < 301 AND Not Datos.EOF %> <% NuevoLink = "http://www.ojoandroid.com/blog_proc.asp?Seleccion=" & (Datos.Fields.Item("ID").Value) NuevoLink = "http://www.ojoandroid.com/" & (Datos.Fields.Item("ID").Value) &"-"& URLamigable(Datos("Titular").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 "
" & Replace((Datos.Fields.Item("Resumen").Value),CHR(10)," ") &"]]>" response.write "" & vbcrlf & vbcrlf %> <% i = i + 1 Datos.Movenext Wend %> <% Response.Write( vbcrlf & "" & vbcrlf & "") %> <% Datos.Close() Set Datos = Nothing %>