Ciao a tutti ragazzi.

Ho un problema e chiedo a voi un aiutino:

Errore :

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'ContaRetV'

/2013/interfaces/pg_IMP.inc, line 48


Code :

function Trovacosapg_(cosa,citta,categoria,regione)
redim vctpg(0)
set objpg=nothing

OpenConnection
SQL="SELECT * from "&regione&" where citta='"&citta&"'AND ((ragsociale like '%"&cosa&"%') or (categoria like '%"&categoria&"%'))"
response.write(sql&"<hr />")

Set RS_pg=Server.CreateObject("ADODB.Recordset")
'RS_pg.cursorlocation=3
RS_pg.Open SQL, myconn_interface,1

If Not RS_pg.EOF Then
retv=1
redim vctpg(RS_pg.recordCount)
Else
retv=0
End If

ContaRetV=0
While Not RS_pg.EOF
Set objpg=New pg
Call riempi_pg
Set vctpg(ContaRetV)=objpg <-- Linea 48
ContaRetV=ContaRetV+1
RS_pg.MoveNext
Wend