Dim cn(20)
Dim rs
Dim n
For n = 0 To 20
  Set rs    = CreateObject("ADODB.Recordset")
  Set cn(n) = CreateObject("ADODB.Connection")
  cn(n).Open "DRIVER={SQL Server};SERVER=SQLSERVER;DATABASE=Pubs;UID=sa"
  rs.Open "select * from authors", cn(n)
  rs.Close
  Set rs = Nothing
  cn(n).Close
  Set cn(n) = Nothing
Next

Response.Write "QueryString Variables:<BR>"
For Each QueryVariable In Request.QueryString
   strVariableName  = QueryVariable
   strVariableValue = Request.QueryString(QueryVariable)
   Response.Write(strVariableName & "='" & strVariableValue & "'<BR>")
Next

Response.Write "Form Variables:<BR>"
For Each FormVariable In Request.Form
   strVariableName  = FormVariable
   strVariableValue = Request.Form(FormVariable)
   Response.Write(strVariableName & "='" & strVariableValue & "'<BR>")
Next

Response.Write "Server Variables:<BR>"
For Each ServerVariable In Request.ServerVariables
   strVariableName  = ServerVariable
   strVariableValue = Request.ServerVariables(ServerVariable)
   Response.Write(strVariableName & "='" & strVariableValue & "'<BR>")
Next