Errore 800a0009

[g_arpi2000f]

Mi è comparso questo errore:

Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'items'
/functions/utils.common.asp, line 388

a cosa è dovuto?

Posto anche un pò di codice:

	strSQL = "SELECT * FROM tbl_usato "
	if hidden = false then strSQL = strSQL & "WHERE usato_showitem = 1 "
	strSQL = strSQL & "ORDER BY usato_insert DESC "
	objRs.Open strSQL, objConn, 1

	if not objRs.EOF then
	
	objRs.PageSize = maxitems
	objRs.AbsolutePage = page
	totrec = objRs.RecordCount
		
	' Ridimensiona array in base ai record
	if totrec > maxitems then
	Redim items(8, maxitems)
	elseif maxitems > totrec then
	Redim items(8, totrec)
	end if
	items(0, 0) = totrec

La linea 388 è l'ultima:
items(0, 0) = totrec

[g_arpi2000f]

up