Blogs y testimonios en ABC.es

<% On error resume Next Dim lResolve, lConnect, lSend, lReceive lResolve = 5000 lConnect = 5000 lSend = 15000 lReceive = 15000 Dim RandomFractionalNumber Dim Actual, Ayer, Fechaddmmaa, aFecha, FechaBusca Actual= Now() Ayer = FormatDateTime(Actual, 2) Fechaddmmaa = DateAdd("d", -1, Ayer) aFecha = split(Fechaddmmaa,"/") FechaBusca = aFecha(2)&aFecha(1)&aFecha(0) 'response.write "La Fecha de Ayer para Buscador: "&FechaBusca&"
" Randomize RandomFractionalNumber = Rnd Set xmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") 'xmlHttp.setTimeouts lResolve, lConnect, lSend, lReceive xmlHttp.Open "GET", "http://www-origin.abc.es/generarmodulo/lector.asp?url=http%3A%2F%2Fmodgen.abc.es%2Fv1%2Fbrightcove%2FidPlaylist%3D2869143803001%26edicionLocal%3Dabc%26plantilla%3DABC_ultimosVideos_6x1_AB" 'xmlHttp.setRequestHeader "Content-Type", "text/xml; charset=UTF-8" xmlHttp.Send salida = xmlHttp.responseText xmlHttp.abort() set xmlHttp = Nothing response.write Salida function EncodeUTF8(s) dim i dim c i = 1 do while i <= len(s) c = asc(mid(s,i,1)) if c >= &H80 then s = left(s,i-1) + chr(&HC2 + ((c and &H40) / &H40)) + chr(c and &HBF) + mid(s,i+1) i = i + 1 end if i = i + 1 loop EncodeUTF8 = s end Function Function DecodeUTF8(s) dim i dim c dim n i = 1 do while i <= len(s) c = asc(mid(s,i,1)) if c and &H80 then n = 1 do while i + n < len(s) if (asc(mid(s,i+n,1)) and &HC0) <> &H80 then exit do end if n = n + 1 loop if n = 2 and ((c and &HE0) = &HC0) then c = asc(mid(s,i+1,1)) + &H40 * (c and &H01) else c = 191 end if s = left(s,i-1) + chr(c) + mid(s,i+n) end if i = i + 1 loop DecodeUTF8 = s end function function Graba_fichero(salida, directorio_salida) set fileSys = CreateObject("Scripting.FileSystemObject") set textStream1 = fileSys.CreateTextFile(directorio_salida, True, False) 'salida = mid (salida,2,Len(salida)-2) textStream1.Write(salida) textStream1.Close Set textStream1 = Nothing Set fileSys = Nothing end function %>