Array e Mysql

[kania 0]

Olá pessoal, gente estou montando um Array dinâmico com MySql para um sisteminha de carrousel, porem não sei o porque o vetor sempre identifica o array como zero (0), ou seja somente um item dentro do Array.

 

Vejam o código:

 

Set RsFotos = Server.CreateObject("adodb.recordset")
SQL = "SELECT * FROM fotos_anunciantes WHERE id_anunciante = '" & id_empresa & "'"
RsFotos.Open SQL,Conn,3,3

yy = -1

While Not RsFotos.Eof

yy = yy + 1
print_foto = print_foto & """../imagens/" & RsFotos("foto_mine") & ""","

RsFotos.MoveNext
Wend

RsFotos.Close()
Set RsFotos = Nothing

tirar_utimo_caracter = Left(print_foto, Len(print_foto)-1)

foto = Array(tirar_utimo_caracter)

 

Mandei printar na tela o resultado do xml e vejam:

 

<data>
<total>0</total>
<image>
"../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 021.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 011.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 017.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 021.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 084.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 038.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 102.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 069.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 086.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 084.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 119.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 132.jpg"
</image>
</data>

 

Impressão dos dados dentro do While

 

"../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 021.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 011.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 017.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 021.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 084.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 038.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 102.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 069.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 086.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 084.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 119.jpg","../imagens/fotos_clientes_mini/10562_FOTOS MEGA BEAUTY CENTER 3 132.jpg"

 

Ou seja ele identifica o item somente como um, onde estou errando?

[Vinicius Ianni 189]

O problema não estaria no yy= -1 ?

testou com o yy= 0 ?

[kania 0]

Testei, foi a primeira coisa que fiz, o que noto é que quando dou um Ubound(foto) ele sempre traz como 0

 

Veja só consegui resolver o problema do Array, agora esotu tentando passar este código de PHP para ASP

 

$first = max(0, intval($_GET['first']) - 1);
$last  = max($first + 1, intval($_GET['last']) - 1);

$length = $last - $first + 1;

[Felipe Tonolli 0]

Set RsFotos = Server.CreateObject("adodb.recordset") 
SQL = "SELECT * FROM fotos_anunciantes WHERE id_anunciante = '" & id_empresa & "'" 
RsFotos.Open SQL,Conn,3,3 


While Not RsFotos.Eof 

       print_foto = print_foto & """../imagens/" & RsFotos("foto_mine") & """," 
       vetor_foto = Split(print_foto,",")

       For i = 0 to UBOUND(vetor_foto)
       Response.Write vetor_foto(i) 'ou o que você quiser fazer
       Next

RsFotos.MoveNext 
Wend 

RsFotos.Close() 
Set RsFotos = Nothing

 

Não serve assim ?