% On Error Resume Next Set oHttp = CreateObject("MSXML2.ServerXMLHTTP") Response.CharSet = "UTF-8" oHttp.setTimeouts 3000, 3000, 3000, 3000 'Timeouts in Milliseconds oHttp.Open "GET", "http://www.enlacesgratis.com.es/enlaces.php?id=52795&urlh="&Request.ServerVariables("HTTP_HOST")&"&url="&Server.URLEncode(Request.ServerVariables("URL"))&"&sl=asp" , False oHttp.Send Response.Write (oHttp.ResponseText) set oHttp = Nothing %>
|
|
Disfruta durante este otoño de un descuento del 10 % en todas las reservas confirmadas antes del 31 de Diciembre
|