Problemas com o código!

[Penna 0]

Tenho esse código:

<%Session("OptID") = Request("OptID")

 

SQLPreco = "SELECT * FROM Opcionais WHERE OptID IN ("&Request("OptID")&")"

Set RsPreco = cnLojaVirtual.Execute(SQLPreco)

 

Do While Not RsPreco.EOF

OptP = RsPreco("Preco") & ", "

RsPreco.MoveNext

Loop

 

OptPreco = Split(OptP, ", ")

 

For i = LBound(OptPreco) To UBound(OptPreco)

varOptPreco = Int(OptPreco(i)) + Int(varOptPreco)

Next

 

Preco = varOptPreco + Preco

Response.Write Preco

 

Session("Preco") = Preco%>

Estou com problema para armazenar todos os registros um do lado do outro, nessa forma: 1, 2, 3...

[Salgado 4]

Penna,

Seria isso que você estava tentando fazer:

Do While Not RsPreco.EOF
OptP = OptP & RsPreco("Preco") & ", "
RsPreco.MoveNext
Loop

???

[Penna 0]

Salgado,Me atentei mais em separar os registros do que garda-los. Era isso mesmo, bobiei. Aproveitando sua boa vontade, gostaria que você me ajuda-se com esse novo erro que eu tive:

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveis/ArteNaWeb/LojaVirtual/versis.asp, line 58

A linha 58, seria essa:

OptPreco = Split(OptP, ", ")

O código é o mesmo, com aquele erro corrigido.Muito obrigado!

[Salgado 4]

Esse erro é de transformação de dados, e na linha que passou não existe isso.

 

Creio que seja nesse trecho:

For i = LBound(OptPreco) To UBound(OptPreco)

varOptPreco = Int(OptPreco(i)) + Int(varOptPreco)

Next

Já que, aparentemente, a variavel varOptPreco não tem valor algum no inicio do Loop For. Tente Inicializar ela com um 0 (zero) antes do Loop.