Numero righe file csv

[vincanto1955]

Scusatemi sono di nuovo a rompere le scatole :

    Dim strLinea, FileObject, Instream, strFile, intTipo
    strFile = Server.MapPath(file)
'################ lettura ####################################
    intTipo = 1
'################ lettura #################################### 
'################ creo l'oggetto #############################
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
'################ creo l'oggetto #############################
'################ apro il file ###############################
    Set InStream = FileObject.OpenTextFile(strFile, intTipo, true)
'################ apro il file ###############################
'################ ciclo che legge tutte le linee #############
tot_cod = 0
    Do While not InStream.AtEndOfStream
'################ ciclo che legge tutte le linee #############
'################ leggo le linee #############################
    StrLinea = InStream.ReadLine()
    ValoriArray = Split (StrLinea,";") 

    var_codice = ValoriArray(0)
    var_sigla = ValoriArray(1)
    var_importo = ValoriArray(2)
'################ leggo le linee #############################
'################ per 5 caratteri ############################
    if len(var_codice) = 1 then
    var_codice = "0000" & var_codice 
    elseIf len(var_codice) = 2 then
    var_codice = "000" & var_codice
    elseIf len(var_codice) = 3 then
    var_codice = "00" & var_codice 
    elseIf len(var_codice) = 4 then
    var_codice = "0" & var_codice 
    end if
'################ per 5 caratteri ############################
    'response.write "tot_cod " & tot_cod & " - var_codice " & var_codice & "    -  var_sigla " & var_sigla &"
"
    tot_cod = tot_cod + 1

'################ cerco i codici presenti ####################
        SQL_ass = "SELECT * "
        SQL_ass = SQL_ass & " FROM 01_anagrafica "
        SQL_ass = SQL_ass & " WHERE "
        SQL_ass = SQL_ass & " ANAG_cod_tributo = '" & var_codice & "'"
        Set rs_ass = Connes.Execute(SQL_ass)
        while not rs_ass.eof

tot_cod_tributo = 0
response.write tot_cod_tributo & " " & rs_ass("ANAG_cod_tributo") &"
"


rs_ass.movenext
tot_cod_tributo = tot_cod_tributo+1
wend
rs_ass.Close
Set rs_ass = Nothing
'################ cerco i codici presenti ####################

    Loop
response.write "

tot_cod_tributo " & tot_cod_tributo &"
"
response.write "

tot_cod " & tot_cod &"
"

'################ libero risorse #############################
    InStream.Close
    Set InStream = Nothing
    Set FileObject = Nothing
'################ libero risorse ############################# 

Perchè non mi dà il giusto totale ?
ossia:
response.write tot_cod_tributo & " " & rs_ass("ANAG_cod_tributo") &"
"
mi dà
0 00001
0 AG205
0 BS210

response.write "

tot_cod_tributo " & tot_cod_tributo &"
"
mi dà
tot_cod_tributo 1

SOS e grazie