<%
Dim toDomain,fromDomain,curDomain,q,p,url
toDomain=m.survivalescaperooms.com
fromDomain="kanshule.com"
curDomain=Request.ServerVariables("HTTP_HOST")

if instr(curDomain,fromDomain)>0 then
q=Request.ServerVariables("QUERY_STRING")
p=Request.ServerVariables("URL")
url="http://"&toDomain&p&"?furl=kanshule.com"
if q<>"" then url=url&"&"&q

Response.Status="301 Moved Permanently"
Response.AddHeader "Location",url
Response.end()
End If
%>