<%
dim domainname, i, s
domainname = request.servervariables("HTTP_HOST")
i = instr(1, lcase(domainname), "www")
if i=0 then
Response.Status = "301 Moved Permanently"
If Request.ServerVariables("SCRIPT_NAME") = "/index.asp" Then
s = "http://www.acestar.co.uk/"
Else
s = "http://www.acestar.co.uk" & Request.ServerVariables("SCRIPT_NAME")
End If
If Request.ServerVariables("QUERY_STRING") <> "" Then
s = s & "?" & Request.ServerVariables("QUERY_STRING")
End If
Response.addheader "Location", s
Response.End()
end if
%>
Acestar Solutions Ltd
