Problema recordset ASP+Mysql

[crashboy]

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

[optime]

.recordcount è impreciso per natura: o effettui prima un .movelast per forzare un conteggio, oppure esegui una COUNT(*)

[crashboy]

Grazie tante per la risposta. Gentilissimo !!!!!

Mi dici come posso modificare il codice affinchè possa ovviare questo problema ?

Thank's

[optime]

mi pare di avertelo detto

1. effettui un .movelast prima della lettura del recordcount per forzare un conteggio
oppure
2. esegui una COUNT(*) (è una normale SELECT) che ti dice quanti record ci sono in quella tabella