<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'This code will redirect any asp page to the www version
'This code is provided as-is with no guarantee or warranty
'It is provided for free distribution as long as these comments
'are left in place.
'Designed by www.jlh-design.com 2006
'An entire site can be redirected by using and include like:
'
'at the top of each page before the first Tag
'for thankyou web page to pop
'This code will redirect any asp page to the www version
'This code is provided as-is with no guarantee or warranty
'It is provided for free distribution as long as these comments
'are left in place.
'Designed by www.jlh-design.com 2006
'An entire site can be redirected by using and include like:
'
'at the top of each page before the first Tag
Dim Domain_Name, theURL, QUERY_STRING, HTTP_PATH,TEMP_NUM
'Get domain that the page is on
Domain_Name = lcase(request.ServerVariables("HTTP_HOST"))
'Check if URL is the www version
if left(Domain_Name, 3) <> "www" Then
HTTP_PATH = request.ServerVariables("PATH_INFO")
'Check if page is default.asp if so, redirect to "/". If other index page is used, such
'as index.asp the numbers in the right and len statement need to be changed, as well
'as the IF statment to indicate the index page.
If right(HTTP_PATH, 12) = "/default.asp" Then
TEMP_NUM = len(HTTP_PATH)-11
HTTP_PATH = left(HTTP_PATH,TEMP_NUM)
End If
' Sets the new URL settings with correct page
QUERY_STRING = request.ServerVariables("QUERY_STRING")
theURL = "http://www." & Domain_Name '& HTTP_PATH
'This section passes on the query string variables
if len(QUERY_STRING) > 0 Then
theURL = theURL & "?" & QUERY_STRING
end if
' Send 301 response and new location
Response.Clear
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", theURL
Response.Flush
Response.End
end if
%>
Fire Protection Design Services-Fire Protection Consulting-OnGuard Fire Protection | Software
Fire Protection Design and Consulting Services
Services will Include:
Fire Sprinkler Consulting
for Archecticts, Owners, Builders and Fire Protection Companies
Fire Sprinkler Design
the latest Autodesk Autocad software, Onguard Fire Protection utilizes customized inhouse software
to make the designs process uniformed for all our clients
Project Management
Fire Sprinkler Software
Software created by our inhouse programming team to make the design process the most effience use of our time.
Links
New Team Realty
Isle of Sales
