%
'*******************************************************
'* ASP 101 Sample Code - http://www.asp101.com/ *
'* *
'* This code is made available as a service to our *
'* visitors and is provided strictly for the *
'* purpose of illustration. *
'* *
'* http://www.asp101.com/samples/license.asp *
'* *
'* Please direct all inquiries to webmaster@asp101.com *
'*******************************************************
%>
<% sname = Request.ServerVariables("SERVER_NAME") %>
<% sname = ucase(sname)%>
<% if InStr(sname,"WWW.BELLANDNSONS.COM") <> 0 then
response.redirect "http://www.bellandnsons.com/default.htm"
elseif InStr(sname,"WWW.BNSE.BIZ") <> 0 then
response.redirect "http://www.bnsemobility.com/bnsemobility/default.htm"
elseif InStr(sname,"WWW.BNSEMOBILITY.COM") <> 0 then
response.redirect "http://www.bnsemobility.com/bnsemobility/default.htm"
elseif InStr(sname,"WWW.BIGFOOTSDEN.COM") <> 0 then
response.redirect "http://www.bnsemobility.com/bnsemobility/default.htm"
elseif InStr(sname,"WWW.ALPOST127FL.ORG") <> 0 then
response.redirect "http://www.bnsemobility.com/bnsemobility/default.htm"
elseif InStr(sname,"WWW.BSATROOP590FL.ORG") <> 0 then
response.redirect "http://www.BSATROOP590FL.org/TROOP590/default.htm"
elseif InStr(sname,"BELLANDNSONS.COM") <> 0 then
response.redirect "http://www.bellandnsons.com/default.htm"
end if %>
<%
Dim Item
%>
Hello visitor from <%= Request.ServerVariables("REMOTE_ADDR") %>! Your
browser identifies itself as <%= Request.ServerVariables("HTTP_USER_AGENT") %>.
EXTRACTED SERVER NAME IS <%= sname %>
Server Variable | Value |
<%= Item %> | <%= Request.ServerVariables(Item) %> |