Can I not loop through Case statements in VBscript?

I'm trying to do the following but keep getting an "expected statement"
error on the line where the case is looped.  I can't figure out why.
Curiously, if I remove the for-next loop, I don't get an error.

First, I have an array called "products" that I split.  I then want to loop
through those products

Here's the code below.  It gives the above error where it reads : "Case
Products_Array(x)":

   Select Case ProductBC.GetFieldValue("Part Number")
        Products_Array = SPLIT(Products, ", ")
        product_count = UBOUND(Products_Array)
        For x = 0 to product_count
             Case (Products_Array(x))
                  If ProductBC.GetFieldValue("End Date") >= Date Then
                       Session(Products_Array(x) & "Valid") = "VALID"
                           If ProductBC.GetFieldValue("End Date") >
Session(Products_Array(x) & "Expire") Then
                                Session(Products_Array(x) & "Expire") =
ProductBC.GetFieldValue("End Date")
                           End if
                  End if
            Next
     End Select


Any ideas?

HWG: hwg-languages mailing list archives, maintained by Webmasters @ IWA