[Resolvido] Problemas com Array

[feasso 0]

Tenho o seguinte código:

sql = 	" SELECT u.nome, u.email, u.cargo FROM Cargos_Projetos CP" &_
				" INNER JOIN Projetos P on (p.id_projetos = cp.id_projetos) " &_
				" INNER JOIN Empresas E on (e.id_empresas = p.id_empresas) " &_
				" INNER JOIN Usuarios U on (u.id_departamentos = cp.id_departamentos) " &_
				" where CP.id_projetos = "  & ID
		call AbreRs(sql, rsUsuario)
		
		if not rsUsuario.eof then
			cont = 0
			while not rsUsuario.eof
				UsuariosNome = Array(""&rsUsuario("nome")&"")
			rsUsuario.MoveNext
			cont = cont + 1
			wend
		end if

Mas quando vou ler o array ele tem 9 nomes, todos igual ao último que veio do banco. O que está errado ?

[hargon 64]

Acho melhor utilizar GETROWS.

[Ted k' 126]

tente assim:

 

UsuariosNome = UsuariosNome & Array(""&rsUsuario("nome")&"")

[feasso 0]

Deu erro na linha:

UsuariosNome = UsuariosNome & Array(""&rsUsuario("nome")&"")

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

[Ted k' 126]

Verdade, nem vi o post do hargoniado, melhor usar o getrows

 

UsuariosNome = rs.getrows

e você posiciona!

[feasso 0]

Mas como faço para mudar de linha ?

 

<% For x = 1 to treg  %>
	 <td width="50" align="center"><%=response.write(p(1,0))%></td>
<% next %>

Quero mudar a posição de 1,0 PARA 2,0 automáticamente até o FOR terminar.

 

Resolvido:

<% For x = 0 to treg - 1%>
		  <td width="50" align="center"><%=response.write(p(2,x))%></td>
<% next %>

[hargon 64]

Muito bom. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif