<% For each item in Request.ServerVariables Response.Write("" & vbCrLf) Next %>

" & item & "

") Response.Write(Request.ServerVariables(item)) Response.Write("

<% dim ip ip = Split(Request.ServerVariables("HTTP_X_FORWARDED_FOR") ,",") response.write (" your IP is = ") & ip(0) &"

" %> <% For each item in Request.ServerVariables Response.Write("" & vbCrLf) Next %>

" & item & "

") Response.Write(Request.ServerVariables(item)) Response.Write("