Recuperando valores de array

[Crystal 0]

Estou tentando recuperar valores de um array mas dá a mensagem de erro de tipo. Alguem me ajuda? Tanks

 

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch

 

/reservas/comprar.asp, line 260 (linha marcada em vermelho abaixo)

 

 

<%

dim array

x=0

do while no rs1.eof

array(x)=(rs1.Fields.Item("filme").Value)

if not rs1.eof then

rs1.movenext

x=x+1

else

exit do

end if

loop

%>

 

<%

x=0

do while not (array())

response.write str(array(x))

if not (array()) then

x=x+1

else

exit do

end if

loop

%>

[birobirosk8 0]

"do while not" oque ???depois ainda vai dar erro nessa linha:do while no rs1.eof

[Fernando_Bittencourt 0]

faz o seguinte kra....For i=0 to (UBound(array) - 1)...instrucoesNextvlw..

[Crystal 0]

Mas continua o erro em linha diferente. O esquema é o seguinte: preciso recuperar os nomes de filmes que estão no Recordset (texto) e relacionar.

 

 

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'UBound'

 

/reservas/comprar.asp, line 259

 

 

Veja como ficou a estrutura:

 

 

<%

dim array

x=0

do while no rs1.eof

array(x)=(rs1.Fields.Item("filme").Value)

if not rs1.eof then

rs1.movenext

x=x+1

else

exit do

end if

loop

%>

 

<%

For i=0 to (UBound(array) - 1)

response.write str(array(x))

if not (array()) then

x=x+1

else

end if

next

%>