Problema com Array

[Crystal 0]

Recebí sugestões dos amigo do fórum mas continuo com problemas para recuperar valores de um array. O esquema é o seguinte: preciso recuperar os nomes de filmes que estão no Recordset (texto) e relacionar.

Brigadú!

 

 

 

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

%>

[cabral51 0]

Recebí sugestões dos amigo do fórum mas continuo com problemas para recuperar valores de um array. O esquema é o seguinte: preciso recuperar os nomes de filmes que estão no Recordset (texto) e relacionar.

Brigadú!

 

 

 

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

%>

for x=0 to (ubound...

[Washington Morais 0]

<%Dim array()x=0Do While Not rs1.EOFRedim Preserve array(x)array(x)=(rs1.Fields.Item("filme").Value)if not rs1.eof thenrs1.movenextx=x+1elseexit doend ifloop%><%For i=0 to (UBound(array) - 1)response.write str(array(x))if not (array()) thenx=x+1elseend ifnext%>

[Crystal 0]

OK obrigado a todos mas não funcionou de novo veja a mensagem

Brigadú

 

 

Microsoft VBScript runtime error '800a0009'

 

Subscript out of range: 'ubound'

 

/reservas/comprar.asp, line 260

 

 

<%

Dim array()

x=0

Do While Not rs1.EOF

Redim Preserve array(x)

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

if not rs1.eof then

rs1.movenext

x=x+1

else

exit do

end if

loop

%>

<%total=array%>

<%

For x=0 to (ubound(array) - 1)

response.write (array(x))

if not (array()) then

x=x+1

else

end if

next

%>