<script Language="VBScript" RUNAT="Server"> Sub ShowPostGet Dim x, Nam response.write ("<hr /><strong>----DEBUG INFORMATION----</strong><br />") response.write ("content_length = " + request.servervariables("content_length")+"<br />") response.write ("request_method = " + request.servervariables("request_method")+"<br />") response.write "------------------------------------<br />" response.write "Form values<br />" if (request.form.count > 0) then For Each x In Request.Form set nam = Request.Form(x) response.write (" " + x +"= " +nam+"<br />") Next else response.write " NO form values<br />" end if response.write "------------------------------------<br />" response.write "Cookie values<br />" if (request.cookies.count > 0) then For Each x In Request.Cookies set nam = Request.Cookies(x) response.write(" " + x +"= " +nam+"<br />") Next else response.write " NO cookie values<br />" end if response.write "------------------------------------<br />" response.write ("Querystring = " + request.querystring+"<br />") response.write "<strong>----END DEBUG INFORMATION----</strong><hr />" End Sub </script> <% If DebugMode = 0 then DebugMode = session ("debug") If DebugMode <> 0 then ShowPostGet %>