asp pal

<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True %> asp pal <% If (Request("Section") = "Server") Or (Request("Section") = "") Then %> Server Object <% Else %> Server Object <% End If %> <% If (Request("Section") = "Application") Then %> Application Object <% Else %> Application Object <% End If %> <% If (Request("Section") = "Session") Then %> Session Object <% Else %> Session Object <% End If %> <% If (Request("Section") = "Request") Then %> Request Object <% Else %> Request Object <% End If %> <% If (Request("Section") = "Response") Then %> Response Object <% Else %> Response Object <% End If %>
<% Select Case Request("Section") Case "Server", "" %>


Properties Server.ScriptTimeout = <%= Server.ScriptTimeout %>	Methods Server.CreateObject Server.HTMLEncode Server.MapPath Server.URLEncode

Collections -- none --

<% Case "Application" %>


Properties -- none --	Methods Application.Lock Application.UnLock

Collections Application.Contents <% For Each myVar In Application.Contents If (InStr(LCase(myVar), "password") > 0) Then %> Application("<%= myVar %>") ********** <% Else %> Application("<%= myVar %>") <%= Application(myVar) %> <% End If Next %> Application.StaticObjects <% For Each myVar In Application.StaticObjects %> Application.StaticObjects.Item(<%= myVar %>) <%= Application.StaticObjects.Item(myVar) %> <% Next %>

<% Case "Session" %>


Properties Session.CodePage = <%= Session.CodePage %> Session.LCID = <%= Session.LCID %> Session.SessionID = <%= Session.SessionID %> Session.Timeout = <%= Session.Timeout %>	Methods Session.Abandon

Collections Session.Contents <% For Each myVar In Session.Contents If (InStr(LCase(myVar), "password") > 0) Then %> Session("<%= myVar %>") ********** <% Else %> Session("<%= myVar %>") <%= Session(myVar) %> <% End If Next %> Session.StaticObjects <% For Each myVar In Session.StaticObjects %> Session.StaticObjects.Item("<%= myVar %>") <%= Session.StaticObjects.Item(myVar) %> <% Next %>

<% Case "Request" %>


Properties Request.TotalBytes = <%= Request.TotalBytes %>	Methods Request.BinaryRead

Collections Request.ClientCertificate <% For Each myVar In Request.ClientCertificate %> Request.ClientCertificate.Item("<%= myVar %>") <%= Request.ClientCertificate.Item(myVar) %> <% Next %> Request.Cookies <% For Each myVar In Request.Cookies %> Request.Cookies.Item("<%= myVar %>") <%= Request.Cookies.Item(myVar) %> <% Next %> Request.Form <% For Each myVar In Request.Form %> Request.Form.Item("<%= myVar %>") <%= Request.Form.Item(myVar) %> <% Next %> Request.QueryString <% For Each myVar In Request.QueryString %> Request.QueryString.Item("<%= myVar %>") <%= Request.QueryString.Item(myVar) %> <% Next %> Request.ServerVariables <% For Each myVar In Request.ServerVariables %> Request.ServerVariables.Item("<%= myVar %>") <%= Request.ServerVariables.Item(myVar) %> <% Next %>

<% Case "Response" %>


Properties Response.Buffer = <%= Response.Buffer %> Response.CacheControl = <%= Response.CacheControl %> Response.Charset = <%= Response.Charset %> Response.ContentType = <%= Response.ContentType %> Response.Expires = <%= Response.Expires %> Response.ExpiresAbsolute = <%= Response.ExpiresAbsolute %> Response.IsClientConnected = <%= Response.IsClientConnected %> Response.Status = <%= Response.Status %>	Methods Response.AddHeader Response.AppendToLog Response.BinaryWrite Response.Clear Response.End Response.Flush Response.PICS Response.Redirect Response.Write

Collections Response.Cookies <% For Each myVar In Response.Cookies %> Response.Cookies.Item("<%= myVar %>") <% Next %>

<% End Select %>