DebugASP

				
'**************************************
' Name: DebugASP
' Description:Are you getting sick of adding and deleting response.write statements to print variables? Have you ever wished you could just call a function to print out your ENTIRE Request collection, or even just the Form object?
Then this code is for you!
' By: Joe Fiorini
'
' Inputs:PrintRequest:
 gObjectType-
enum for which object in the Request collection you want to process (should be self-explanatory)
PrintVar:
 value-
The value of the variable you are printing
 varName-
String containing the name of the variable you are printing
'
' Returns:All functions return an HTML formatted string which then may be used in a Response.Write statement.
'
' Assumes:You need to use a <!--#include file=debug.asp--> in your asp page, and then set the variable gbDebug to true. If you don't want it to print anymore, then set gbDebug to false.
'
' Side Effects:None that I am aware of
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=6777&lngWId=4'for details.'**************************************

<%
	dim gbDebug
	gbDebug = false
	const eOTForm = 1
	const eOTQueryString = 2
	const eOTBoth = 3
	
	function PrintRequest(gObjectType)
		if not gbDebug then exit function
		dim iMaxFieldIndex, iCurFieldIndex, iMaxValueIndex, iCurValueIndex, sRequestCollection, _
			sFormObject, sQueryStringObject
		iMaxFieldIndex = request.Form.Count
		iCurFieldIndex = 1
		iCurValueIndex = 1
		
		if iMaxFieldIndex = 0 then
			sFormObject = "<p>Form object is empty!</p>"
		else
			sFormObject = "<p>Listing of all " & iMaxFieldIndex & " variables in form object:</p>"
		end if
		
		sFormObject = sFormObject & "<ol>"
		for iCurFieldIndex = 1 to iMaxFieldIndex
			sFormObject = sFormObject & "<li>" & Server.HTMLEncode(Request.Form.Key(iCurFieldIndex))
			iMaxValueIndex = Request.Form(iCurFieldIndex).Count
			sFormObject = sFormObject & "<ol>"
			for iCurValueIndex = 1 to iMaxValueIndex
				sFormObject = sFormObject & "<li>" & Server.HTMLEncode(Request.Form.Item(iCurValueIndex))_
					& "</li>"
			next
			sFormObject = sFormObject & "</li>"
		next
		sFormObject = sFormObject & "</ol>"
			
		iMaxFieldIndex = Request.QueryString.Count
		iCurFieldIndex = 1
		iCurValueIndex = 1
		if iMaxFieldIndex = 0 then
			sQueryStringObject = "<p>QueryString object is empty!</p>"
		else
			sQueryStringObject = "<p>Listing of all " & iMaxFieldIndex & " variables in the Request collection</p>"
		end if		
		
		sQueryStringObject = sQueryStringObject & "<ol>"
		for iCurFieldIndex = 1 to iMaxFieldIndex
			sQueryStringObject = sQueryStringObject & "<li>" & Server.HTMLEncode(Request.QueryString.Key(iCurFieldIndex))
			iMaxValueIndex = Request.QueryString(iCurFieldIndex).Count
			sQueryStringObject = sQueryStringObject & "<ol>"
			for iCurValueIndex = 1 to iMaxValueIndex
				sQueryStringObject = sQueryStringObject & "<li>" & Server.HTMLEncode(Request.QueryString(iCurFieldIndex)(iCurValueIndex))_
					& "</li>"
			next
			sQueryStringObject = sQueryStringObject & "</ol>"
			sQueryStringObject = sQueryStringObject & "</li>"
		next
		sQueryStringObject = sQueryStringObject & "</ol>"
		if gObjectType = eOTForm then
			sRequestCollection = sRequestCollection & sFormObject
		elseif gObjectType = eOTQueryString then
			sRequestCollection = sRequestCollection & sQueryStringObject
		else
			sRequestCollection = sRequestCollection & sFormObject & sQueryStringObject
		end if
		
		PrintRequest = sRequestCollection
		
	end function
	
	function PrintVar(value, varName)
		if not gbDebug then exit function
		PrintVar = Server.HTMLEncode(varName) & " = " & Server.HTMLEncode(value) & "<br>"
	end function
	
	function PrintErrorCode()
		if not gbDebug then exit function
 	sErrorCode = "Database error #: " & err.number & "<BR>" & chr(13)
 	sErrorCode = sErrorCode & "Description: " & err.description & "<BR>" & chr(13)
 	PrintErrorCode = sErrorCode	
 end function
%>