<%
'*******************************************************
'* 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)%>
<%
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
<% For Each Item In Request.ServerVariables %>
<%= Item %>
<%= Request.ServerVariables(Item) %>
<% Next %>
<% ' That's It! Another cool time when a few lines of code go a long way! %>