Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 3]'

C:\SITES\WWW.REALTYDIRECT.COM\RESOURCES\HOME_AND_GARDEN\../includes/_resource_header.asp, line 51