Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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,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!
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.
Penna,
Seria isso que você estava tentando fazer:
Do While Not RsPreco.EOF
OptP = OptP & RsPreco("Preco") & ", "
RsPreco.MoveNext
Loop
???