README.md

Description

Just used for debugging querystring data. Creates an orderd list of field names and the values assigned to each one.

More Info

Submitted On
By	Lewis E. Moten III
Level	Beginner
User Rating	4.8 (19 globes from 4 users)
Compatibility	ASP (Active Server Pages)
Category	Debugging and Error Handling
World	ASP / VbScript
Archive File

API Declarations

Copyright (c) 2001, Lewis Moten. All rights reserved.

Source Code

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 doesn't 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 & "
   " End If lstrDebug = lstrDebug & "
" Next lstrDebug = lstrDebug & "

" ' Return the data QueryStringData = lstrDebug End Function