Array Error: Variable Is Undefined

Can someone point out why this is giving me the error "Variable is
undefined: 'arrProducts' "

<begin_code>

Dim m_arrProducts()

Sub SerializeCart()
ReDim m_arrProducts(m_intCartCount -1)
response.Write("ARRAY: " & IsArray(m_arrProducts) & " Cart Count: " &
m_intCartCount)
For intCounter = 0 to m_intCartCount - 1
response.Write("product 1" & "<br/>")
Next
End Sub

<end_code>

the Response.Write prints "True" for IsArray and "2" for m_intCartCount.