somma di valori

[Kamui83]

ho una pagina che dovrebbe prendere dei campi da un database e sommarmeli per poi calcolare il saldo.
Purtroppo non ho ben capito dove ma il ciclo non mi ritorna nulla, ho provato con dei vari response.Write ma non riesco a capire dove sia l'errore, spero qualcuno riesca ad aiutarmi.

<%
        codice = request.QueryString("codice")
        
        SQL = " SELECT * FROM ordini WHERE codice= '" & codice &"'"
        Set RS = Conn.Execute(SQL)
        prezzotot = 0
        accontotot = 0
        finotot = 0
        finoacctot = 0
        saldotot = 0
        finosaldo = 0
        
        
        do while not RS.eof 
        prezzoa = RS("prezzoa")
        if RS("prezzoa") = "" then prezzoa = 0
        response.Write(prezzoa)
        acconto = RS("acconto")
        if RS("acconto") = "" then acconto = 0
        fino = RS("fino")
        if RS("fino") = "" then fino=0
                 finoacc = RS("finoacc")
        if RS("finoacc") = "" then finoacc=0
        prezzotot = 0+prezzotot +  prezzoa
        response.Write(prezzotot)
        accontotot = 0+accontotot + acconto
        finotot = 0+finotot + fino
        finoacctot = 0+finoacctot + finoacc
        RS.MoveNext
        loop 
        response.Write(saldotot)
        response.Write(prezzotot)
        saldotot = 0+prezzotot - accontotot
        finosaldo = 0+finotot - finoacctot 

[Mems]

a = 0
for x = 1 to 5
a = a + x
next
response.write a