Soma simples

Ola bom dia não sei o que está acontecendo com uma pagina que estou fazendo aqui tenho que somar um campo de uma tabela mysql total de valores mas o valor não aprece veja como estou fazendo. Veja o codigo:

		soma = 0
		for j = 0 to objTable.tables.count - 3
			nomeAba1=mid(Ucase(replace(objTable.tables(j).Name,"'","")),1 ,len(nomeaba))
			''response.write(nomeAba1&"<BR>")
			if NomeAba1=nomeAba then
				if objRs.state=1 then objRs.close

				
				set objRs = Server.CreateObject("ADODB.Recordset")
				objRs.CursorLocation = 3
				
				objRs.Open "SELECT * FROM ["&Cstr(Ucase(objTable.tables(j).Name))&"] ",oConn
				intColunas  = objRs.Fields.Count
							
				do while not objRs.eof
					For i = 0 To (intColunas-1)
						'' objRs(0)<>"" then
						Conta = objRs(0)
						CentrodeCusto = objRs(1)
						celular = objRs(2)
						SecaodeChamada = objRs(3)
						TipodaChamada = objRs(8) 
						CidadvedeOrigem = objRs(9)
						UFderigem = objRs(10)
						CidadedeDestino = objRs(11)
						valor = objRs(19)
						soma=soma+objRs(19)
						response.write(soma&"<br>")
						''Busca descricação de seção de chamados com status accenture
						StatusAccenture = BuscaDescricaoVivo(SecaodeChamada, TipodaChamada, UFderigem, CidadedeDestino)
						
						Pacote = "Pacote de Dados"	
						If Trim(Mid(objRs(4), Len(Pacote), 4)) = "3GB" Then
							PacoteDados = "3"
						ElseIf Trim(Mid(objRs(4), Len(Pacote), 4)) = "5GB" Then
							PacoteDados = "5"
						ElseIf Trim(Mid(objRs(4), Len(Pacote), 4)) = "10GB" Then
							PacoteDados = "10"
						ElseIf Trim(Mid(objRs(4), Len(Pacote), 4)) = "20GB" Then
							PacoteDados = "20"
						End If
						if entra=>2 then
							if valor>0 then valor=Replace(valor,"," ,".")
							SQL = "INSERT INTO CONSOLIDADO (Conta,CentrodeCusto,Celular,SecaodeChamada,StatusAccenture,"
							SQL = SQL & "Pacotededados,valor,mes,operadora) values ('" & Conta & "','" & CentrodeCusto & "','"
							SQL = SQL & celular & "','" & SecaodeChamada & "','" & StatusAccenture & "','" & PacoteDados & "',"
							SQL = SQL & valor & ",'" & mes & "','" & operadora & "')"
							Conexao.Execute (SQL)
							

							mostraImportacao="<tr><td>" &  Conta & "</td><td>" & celular & "</td><td>" & SecaodeChamada & "</td><td>" & StatusAccenture
							mostraImportacao= mostraImportacao & "</td><td>" & Mes_Ano & "</td><td>" & DataChama & "</td><td>" & HoraChamada & "</td><td>" & TipodaChamada
							mostraImportacao= mostraImportacao & "</td><td>" & CidadedeOrigem & "</td><td>" & UFDeOrigem & "</td><td>" & NChamado & "</td><td>" & Tarifa
							mostraImportacao= mostraImportacao & "</td><td>" & Duracao & "</td><td>" & sMinutos & "</td><td>" & Quantidade & "</td><td>" & valor & "</td></tr>"
							''response.write(mostraImportacao)

						end if
						''d if
						Response.Flush				
					next	
					objRs.movenext
					entra=entra+1					
				loop
			end if
		next