The parameter in a Dim statement must be a literal constant - variables are not allowed.
You could rearrange your code to use
ReDim as follows:
Code:
openrs rsSeverityCount, "SELECT Count(*) AS severityCount FROM severity;"
Dim severityLen : severityLen = rsSeverityCount("severityCount")
Dim arrDays(0)
ReDim arrDays(severityLen)
Bruce Luckcuck
Director, Applications & Support Services
Wiley Publishing, Inc.