<Html>
<Head>
<Title> HTTP headERS detection </title>
</Head>
<Body>
<Table border = 1>
<Tr> <td VALIGN = TOP> <B> variable </B> </td>
<Td VALIGN = TOP> <B> value </B> </td> </tr>
<% For Each key In Request. ServerVariables %>
<Tr>
<Td> <% = key %> </td>
<Td>
<%
If Request. ServerVariables (key) = "" Then
If GetAttribute (key) = "" Then
Response. Write ""
Else
Response. Write GetAttribute (key)
End If
Else
Response. Write Request. ServerVariables (key)
End If
Response. Write "</td>"
%>
</Tr>
<% Next %>
</TABLE>
</Body>
<%
Function GetAttribute (AttrName)
Dim AllAttrs
Dim RealAttrName
Dim Location
Dim Result
AllAttrs = Request. ServerVariables ("ALL_HTTP ")
RealAttrName = AttrName
Location = instr (AllAttrs, RealAttrName &":")
If Location <= 0 Then
GetAttribute = ""
Exit Function
End If
Result = mid (AllAttrs, Location + Len (RealAttrName) + 1)
Location = instr (Result, chr (10 ))
If Location <= 0 Then Location = len (Result) + 1
GetAttribute = left (Result, Location-1)
End Function
%>