%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% ' 2 or more parameters %>
<%
sWebPageRootURL = Request.ServerVariables("SERVER_NAME")
'Response.Write("sWebPageRootURL *"+sWebPageRootURL +"*
")
sWebPagePathURL = Request.ServerVariables("URL")
'Response.Write("sWebPagePathURL *"+ sWebPagePathURL +"*
")
sWebPageDBQueries = Request.Querystring
'Response.Write("sWebPageDBQueries *"+ sWebPageDBQueries +"*
")
sNewWebPageRootURL = "paa-automation.com"
'Response.Write("sNewWebPageRootURL *"+sNewWebPageRootURL +"*
")
sNewWebPagePathURL = Request.ServerVariables("URL")
'Response.Write("sNewWebPagePathURL *"+ sNewWebPagePathURL +"*
")
sRedirectString = "http://" & sNewWebPageRootURL & sNewWebPagePathURL
if len(Request.Querystring) > 0 then
sRedirectString = sRedirectString & "?" & Request.Querystring
end if
'Response.Write("sRedirectString *"+sRedirectString+"*
")
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", sRedirectString
%>