Salve; uso upload di Baol in ambiente ASP-VB + MySQL.
Ho provato ad inserirlo in un semplice contesto: un form con cui un utente può modificare molte delle sue opzioni. Tra questa, può anche 'uppare' un avatar personale.
Tuttavia, durante l'esecuzione della pagina, ecco il bizzarro errore che presenta - e che non mi so spiegare:
Microsoft VBScript runtime error '800a01f9'

Invalid or unqualified reference
Ecco il codice - in rosso grassettato la stringa in cui avviene l'errore:
codice:
<html> 
<head> 
<title>Modifika</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 
<link rel="stylesheet" href="hostyle.css"> 

<%
Dim oUpload
Set oUpload= new cUpload
.EnabledAspUpload = True
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "avatar/"
.Load
.UploadOnly "Images"
If .Files("Height")>200 or .Files("Width")>200 then
 Response.write ("<font face='Verdana' size=2>Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
</font>"  )
else
 .Save
 Response.Write "<font face='Verdana' size=2>Upload di " & .GetFileName() & " avvenuto con successo!!
</font>"
end if
.MoveNext
Set oUpload = Nothing
	
'Recupero valori form
	id 	= oUpload.Form("id")
	If oUpload.Form("avy")=1 Then
	avatar 	= oUpload.Form("avatar")
	else
	avatar = oUpload.Form("avatar2")
	end if
	firma	= oUpload.Form("firma")
	bg 	= oUpload.Form("bg")
	msn 	= oUpload.Form("msn")
	newowls 	= oUpload.Form("newowls")
	If newowls <> 1 Then
	newowls = 0
	end if
	music_yn 	= oUpload.Form("music_yn")
	If music_yn <> 1 Then
	music_yn = 0
	end if
	If Right(music, 4) <> ".mid" AND len(music)=>1 Then
	response.write "<font face='Verdana' size=2>Il file musicale deve essere un midi (estensione .mid)!</font>"
	response.end
	end if

'Replace di Bg e Firma
	bg 	= Replace(bg, "<", "&lt;")
	bg 	= Replace(bg, ">", "&gt;")
	firma 	= Replace(firma, "<", "&lt;")
	firma 	= Replace(firma, ">", "&gt;")
	bg 	= replace(bg,"'","''")
	bg 	= replace(bg,vbCrLf,"
")
	msn 	= Replace(msn, "<", "&lt;")
	msn	=  Replace(msn, ">", "&gt;")
	msn 	= replace(msn,"'","''") 
	music_yn 	= replace(music_yn,"'","''") 
	firma 	= replace(firma,"'","''")
	firma 	= replace(firma,vbCrLf,"
")
	
'Stop al ciclo
	If perm = 0 Then
	response.end
	end if

'Impostazione di Lrg
	lrg = 0
	If large = "1" Then lrg = 1
 
'Se seleziono l'avatar allora salvo il file
	If avy = 2 and Not oUpload.EOF Then
		nym = "av" & id
		oUpload.SaveAs nym & "." & oUpload.Files("Ext") 
avatar = "avatar/" & nym & "." & oUpload.Files("Ext")
	end if

'Inserimento nel Database
	strSQL = "UPDATE info SET avatar = '"&avatar&"', newowls = "&newowls&", firma = '"&firma&"', music_yn = "&music_yn&", bg = '"&bg&"', msn='"&msn&"' WHERE id ="&id
	Conn.Execute strSQL %>
<font face='Verdana' size='1'>Modifica effettuata con successo.

Torna alla scheda.</font>



<font face="Verdana"><font size="2">Importante!</font><font size="2"> Se hai inserito un avatar direttamente dal tuo computer, alla 
prossima modifica l'avatar settato sarà quello su Internet. Lascialo settato, 
perché il percorso Internet porta all'avatar che hai lanciato online</font></font>.
<%
'Chiusura
Set oUpload=Nothing 
%>
</html>