Problemas com o código!

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...