Guardar Vários Valores?

[Ezequiel Batista]

ESTOU TENTANDO FAZER UMA COMPARAÇÃO COM UM CAMPO DE UM BD E GUARDAR O VALOR DE OUTRO CAMPO CASO ELE SEJA VERDADEIRO EM UMA VARIAVEL, MAS AI quando TENHO VARIOS VALORES VERDADEIROS EU NÃO CONSIGO MOSTRAR OS DOIS OU MAIS!!!

SEGUE O CODIGO ABAIXO???

<%

Dim conexao,constr,rs,soma

set conexao = createobject("AdoDb.connection")

constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("bancodedados.mdb")

conexao.open constr

set rs = conexao.execute("SELECT * FROM requisicoes order by codigo desc")

%>

<% while not rs.eof %>

<%

if rs("entregue") = "não" then if Session("pendente") = "" then Session("pendente") = rs("serventia") & Session("pendente2") "val"

if rs("entregue") = "não" then if Session("pendente2") = "" then Session("pendente2") = rs("serventia")

%>

<% if rs("entregue") = "não" then soma = soma + 1 %>

<%

rs.MoveNext

Wend

%>

<% if Session("pendente") <> "" then response.write Session("pendente") %>

<% if Session("pendente2") <> "" then response.write Session("pendente2") %>

<% response.write soma%>

</font>

</body>

</html>

EM QUE ESTOU ERRANDO??? POIS SO CONSIGO MOSTRAR DOIS VALORES IGUAIS MESMO SABENDO que TENHO DOIS OU MAIS VALORES!

[webdeveloper]

Não seria melhor usar um Array ao invés de Session?

[Ezequiel Batista]

Pois é! eu tentei usar ele mas não consegui fazer também não, nunca usei o Array e como seria a estrutura??

Obrigado

[webdeveloper]

Mais ou menos assim:

<%
Dim conexao,constr,rs,soma, array(), array2), i, j, a

set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("bancodedados.mdb")
conexao.open constr

set rs = conexao.execute("SELECT * FROM requisicoes order by codigo desc")

i = 0
j = 0
%>

<% while not rs.eof
ReDim Preserve array(i)
ReDim Preserve array2(j)
if rs("entregue") = "não" then if array(i) = "" then array(i) = rs("serventia") & array2(j) "val"
if rs("entregue") = "não" then if array2(j) = "" then array2(j) = rs("serventia")

%>
<% if rs("entregue") = "não" then soma = soma + 1 %>
<%
rs.MoveNext
i = i + 1
Wend

For a = 0 To i Step 1
   if array(i) <> "" then response.write array(i)
Next

For a = 0 To j Step 1
   if array2(j) <> "" then response.write array2(j)
Next

response.write soma%>

</font>
</body>
</html>