server info

Lidt af det:

<%
  function GetScriptEngineInfo
    dim s
    s = ScriptEngine & " Version "
    s = s & ScriptEngineMajorVersion & "."
    s = s & ScriptEngineMinorVersion & "."
    s = s & ScriptEngineBuildVersion
    GetScriptEngineInfo = s
  end function
  response.write GetScriptEngineInfo
%>

Det må være denne:

<%
' LISTER SERVERVARIABLER
Response.Write "ServerVariabler:" & vbCrLF
For Each Item In Request.ServerVariables
  Response.Write "<p><strong>" & Item & "</strong><br>"
  If isArray(Request.ServerVariables(Item)) = False Then
      Response.Write "<em>" & Request.ServerVariables(Item) & "</em></p>"
  End If
Next

' LISTER SESSIONVARIABLER
Response.Write "SessionVariabler:" &vbCrLf
For Each Item In Session.Contents
  Response.Write "<p><strong>" & Item & "</strong><br>"
  If isArray(Session(Item)) = False Then
      Response.Write "<em>" & Session(Item) & "</em></p>"
  End If
Next
%>

Gud... Tak