Two functions that make the ASP's Debug!

<% '----------------------------------------------- ---------------------------- 'Program: Print all values ​​entered by Request.Form' --------- -------------------------------------------------- ---------------- Response.Write FormData () function FormData () Dim llngMaxFieldIndex Dim llngFieldIndex Dim llngMaxValueIndex Dim llngValueIndex Dim lstrDebug 'Count Form llngMaxFieldIndex = Request.Form.Count' Let user know if Form Do Not exist if llngMaxFieldIndex = 0 Then FormData = "Form data is empty." Exit function End if 'Begin building a list of all Form lstrDebug = "

"' Loop through Each Form For llngFieldIndex = 1 To llngMaxFieldIndex lstrDebug = lstrDebug & "
1. " & Server.HTMLEncode (Request.Form.Key (llngFieldIndex)) 'Count the values ​​llngMaxValueIndex = Request.Form (llngFieldIndex) .Count' if the Field does not have multiple values ​​... if LLNGMaxValueIndex = 1 THEN lstrDebug = lstrDebug & "=" lstrDebug = lstrDebug & Server.HTMLEncode (Request.Form.Item (llngFieldIndex)) 'Else Loop through Each value Else lstrDebug = lstrDebug & "
   " For llngValueIndex = 1 To llngMaxValueIndex lstrDebug = lstrDebug & "
   1. " lstrdebug = LSTRDEBUG & Server.htmlencode (relngfieldIndex) (LLNGValueIndex)) LSTRDEBUG = LSTRDEBUG & "" Next LSTRDEBUG = LSTRDEBUG & ""

      End ifl lstrdebug = lstrdebug & "" Next LSTRDEBUG = LSTRDEBUG & "" 'Return The Data Formdata = LSTRDEBUG END FUNCTION%> <%' ------------- -------------------------------------------------- ---------- 'Functional Function: Output All Enter the Request.QueryString value for debugging! '------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------

      Response.Write QueryStringData () function QueryStringData () Dim llngMaxFieldIndex Dim llngFieldIndex Dim llngMaxValueIndex Dim llngValueIndex Dim lstrDebug 'Count QueryString llngMaxFieldIndex = Request.QueryString.Count' Let user know if QueryString Do Not exist if llngMaxFieldIndex = 0 Then QueryStringData = "QueryString data is empty. "Exit function End if 'Begin building a list of all QueryString lstrDebug ="

      "' Loop through Each QueryString For llngFieldIndex = 1 To llngMaxFieldIndex lstrDebug = lstrDebug &"
      1. "& Server.HTMLEncode (Request.QueryString .Key (llngFieldIndex)) 'Count the values ​​llngMaxValueIndex = Request.QueryString (llngFieldIndex) .Count' if the Field does not have multiple values ​​... if llngMaxValueIndex = 1 Then lstrDebug = lstrDebug & "=" lstrDebug = lstrDebug & Server .Htmlencode (Request.QueryString.Item (llngfieldIndex)) 'Else Loop through Each value Else lstrDebug = lstrDebug & "
         " For llngValueIndex = 1 To llngMaxValueIndex lstrDebug = lstrDebug & "
         1. " lstrDebug = lstrDebug & Server.HTMLEncode (Request.QueryString (llngFieldIndex) (llngValueIndex)) lstrDebug = LSTRDEBUG & "" Next LstrDebug = LSTRDEBUG & ""

            Return the data querystringdata = lstrdebug end function%>