<% '******************************************************* '* 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 %>

<% For Each Item In Request.ServerVariables %> <% Next %>
Server Variable Value
<%= Item %> <%= Request.ServerVariables(Item) %> 
<% ' That's It! Another cool time when a few lines of code go a long way! %>