% Dim sInDom Dim sPath Dim sQstring Dim sReDom Const sMyDom = "www.craftparts.com" sInDom = Request.ServerVariables("HTTP_HOST") sPath = Request.ServerVariables("PATH_INFO") sQstring = Request.ServerVariables("QUERY_STRING") If sQstring <> "" Then sQstring = "?"&sQstring End If sReDom = "http://"&sMyDom&sPath&sQstring If inStr(sInDom,sMyDom) = 0 Then Response.Redirect sReDom End If %>
|
|
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||