<%
dim aurl
if request.ServerVariables("HTTP_HOST")="net0510.com" then
if Request.ServerVariables("QUERY_STRING") ="" then
if Request.ServerVariables("url")="" then
aurl="http://www.net0510.com"
else aurl="http://www.net0510.com"& Request.ServerVariables("url")
end if
else aurl="http://www.net0510.com"& Request.ServerVariables("url")& "?" & Request.ServerVariables("QUERY_STRING")
end if
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location",aurl
Response.End
end if
%>