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

[optime]

   sRadice = "prova"
   sEstensione = ".asp"
   sPath = "d:\miosito.it\alimentazione-patologie-cavallo\"
   my_num = 0 
   i=0 

   set fs = Server.CreateObject("Scripting.FileSystemObject") 
     
    Do 
        if i = 0 then 
            sFilename = sPath & sRadice & sEstensione 
        else 
            sFilename = sPath & sRadice & "_" & CStr(i) & sEstensione 
        end if 
         
        if fs.FileExists(sFilename) then 
            i = i + 1 
            response.write "il file c'è già...: " & sFilename 
        else 
            response.write "File nuovo!...: " & sFilename 
...

[slay]

nada si ferma sempre
response.write "il file c'è già...: " & sFilename
non mi viene mostrato: response.write "File nuovo!...: " & sFilename

[slay]

risolto:

Do
        if i = 0 then
            sFilename=sPath & sRadice & sEstensione
        else
            sFilename=sPath & sRadice & "_" & CStr(i) & sEstensione
        end if
        
        if fs.FileExists(sFilename) then
            i=i+1
            response.write "il file c'è già...: " & sFilename 
        else
            response.write "il file creato:"&sfilename
            'set newfile = fs.CreateTextFile(sfilename)
            'percent=chr(37) 
            'newfile.WriteLine "<" & percent & "idart="""&sTmp&"""" & percent & ">" & " "
            ' Chiudo
            'newfile.close
            ' Faccio pulizia
            'set newfile = nothing
            my_num = 1 
            Exit Do
        end if
    loop 

grazie optime come sempre ...