For Each objItem In Request.Form
If Request.Form(objItem).Count >1 Then 'More than one value in this item
Response.Write objItem & ":<BR>"
For intLoop = 1 To Request.Form(objItem).Count
Response.Write "Subkey" & intLoop & "value = "_
& Request.Form(objItem) (intLoop) & "<BR>"
Next
Else
Response.Write objItem & " = " & Request.Form(objItem) & "<BR>"
End If
Next