FileSystemObject e ciclo Do

[slay]

ciao a tutti ho questo problema:
vorrei creare dei file al volo ma prima devo controllare l'esistenza ed eventualmente cambio il nome ecco il codice:

    sTmp="prova.asp"
    
    my_num = 0
    spath="d:\miosito.it \ miosito.it \ alimentazione-patologie-cavallo\"
    radice=replace(sTmp,".asp","")
    estensione=".asp"
    i=0
    
    
    set fs = Server.CreateObject("Scripting.FileSystemObject")
    
    Do
        if i = 0 then
            sfilename=spath&radice&estensione
        else
            sfilename=spath&radice&"-"&i&estensione
        end if
        
        if fs.FileExists(sfilename) then
            i=i+1
            response.write "sdsd "&sfilename
        else
            response.write "il file creato:"&sfilename
            'set newfile = fs.CreateTextFile(sfilename)
            ' ecc...            
                                      ' Chiudo
            'newfile.close
            ' Faccio pulizia
            'set newfile = nothing
            my_num = 1 
        end if
        
    Loop While my_num > 0
    
    set fs = nothing 

non riesco mai a far visualizzare response.write "il file creato:"&sfilename