Limit Size con Baol

[dtomasini]

Ciao, sono ancora qui per chiedere il vostro aiuto e guarda a caso... sempre con questo Baol.

Ho un file che prende da un form il path e l'username di chi effettua l'operazione.
Da qui il mio file prima prende dal database il nome del file già presente nel record inerente all'username, lo cancella dal db e dal server e effettua l'upload del nuovo file...
Ora, fino quando devo effettuare il semplice upload funziona il tutto, il problema c'è quando voglio imporre il limite di dimensione file (150Kb) e il tipo di File (Images).
Infatti se prendo l'esembio e prendo i comandi necessari, questo file esegue solo le prime due operazioni(ricerca campo nel DB e pulitura DB e Server) poi quando deve eseguire l'upload non funziona...
Le due Righe "incriminate sono quelle scritte in caratter diverso... se uso la prima riga funziona, se la sostituisco con la seconda non funziona più. Esegue tutto quello precedente ma quando arriva lì passa oltre
eccovi il file:

<%
Dim oUpload, strNick
Set oUpload = new cUpload
    oUpload.AutoRename = True
    oUpload.Overwrite = False
    oUpload.SetPath "\upload" 'Impostazione del percorso
    oUpload.Load
    [FONT=courier new][B]oUpload.UploadOnly "Images"[/B][/FONT] 
        [FONT=courier new][B]oUpload.Filter = oUpload.FilterImage() & AND_ & oUpload.FilterSize(102400)[/B][/FONT] 
    
strNick = oUpload.Form("nickName")

'VERIFICO SE IL NICK DEL FORM COINCIDE CON IL NICK DELLA SESSION
'IN CASO CONTRARIO DISCONNETTO
if (strNick<>strUser) then
    response.Redirect(linkhome & "?disc=1")
end if

if (strNick<>"") then

    'RICERCA DEL FILE DA MODIFICARE NEL RECORD DELLA TABELLA ATTIVITA'
    Set Conn=Server.CreateObject("ADODB.Connection")
                    
    Conn.Open (strConn)

    dim strSql
        strSql = "SELECT * FROM users WHERE userName='" & strUser & "'"
    Set rs = Server.CreateObject("ADODB.Recordset")

        rs.Open strSql, Conn ,3,3
        strNomeFile=rs("immagine")
        rs.Close
    set rs = Nothing
    Conn.Close 
    set Conn = Nothing
    
    'TROVATO IL NOME DEL FILE LO VADO A CANCELLARE DAL SERVER
    if (strNomeFile<>"") then
        dim fso, fileDaCancellare
        Set fso = Server.CreateObject("Scripting.FileSystemObject") 
            fileDaCancellare = strPathUploadCv & strNomeFile
            fso.DeleteFile(fileDaCancellare) 
        Set fso = Nothing
    end if
    
    'CANCELLATO IL FILE DAL SERVER ESEGUO L'UPLOAD DEL NUOVO FILE
    dim fileName
    
    While Not oUpload.EOF
        
        oUpload.Save()
        fileName = oUpload.GetFileName()
        oUpload.MoveNext
    Wend    
    
    'DOPO L'UPLOAD DEL FILE ESEGUO L'UPDATE NELLA TABELLA
    Set Conn=Server.CreateObject("ADODB.Connection")
        
    Conn.Open (strConn)
    
    Set rs = Server.CreateObject("ADODB.Recordset")
        rs.Open strSql, conn ,3,3
        
        rs("immagine")=fileName 
        rs.update
        rs.Close
        
    Set rs = Nothing
    Conn.Close
    Set Conn=Nothing    
    Set oUpload = Nothing
    
    linkFileAllegato = "profilo.asp?azione=editAvatar&esito=corretto"
    response.Redirect(linkFileAllegato)
else
    linkFileAllegato = "profilo.asp?azione=editAvatar&esito=negativo"
    response.Redirect(linkFileAllegato)
end if
%> 

Grazie Mille per l'aiuto.