<%@ Language=VBScript %>
<%

<!--dim URL-->
URL = LCase("http://"+Request.ServerVariables("Server_NAME")+Request.ServerVariables("PATH_INFO"))

URL=Replace(URL, "index.shtml", "")

   Response.Write(URL)
'   URL=Replace(URL, "//holidaycity","//www.holidaycity")
   URL=Replace(URL, "default.asp", "")
   Response.Status="301 Moved Permanently"
   Response.AddHeader "Location", URL
   Response.End

%>