[Resolvido] Todas QueryString do formulário

[xanburzum 169]

todas QueryString passado nos formulários.

 

Sub WriteOutCode
   vbQuot = "''"
For each objItem in Request.Querystring
                   Response.Write "str" &objItem &" = Request.Querystring(" &vbQuot &objItem &vbQuot &")" _
                   &"<BR>"  &"Value  - " &Request.Querystring(objItem) &"<HR>"
                 Next  
End Sub