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:

<!--#include file="funzioni.asp"-->
<!--#include file="varGenerali.asp"-->
<!--#include file="Upload.asp"-->
<%
Dim oUpload, strNick
Set oUpload = new cUpload
	oUpload.AutoRename = True
	oUpload.Overwrite = False
	oUpload.SetPath "\upload" 'Impostazione del percorso
	oUpload.Load
	[FONT="Comic Sans MS"][B]oUpload.UploadOnly "Images"[/B][/FONT]
        [FONT="Comic Sans MS"][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.