Sarà ...ma non riesco a vedere cosa e perchè ...

codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


<%
Dim oUpload
Set oUpload= new cUpload
With oUpload

immagine = oUpload.Form("foto")
cartella = request.QueryString("ctr")

.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = False
.Overwrite = True

.SetPath "\public\"&session("cartella")&"\"&cartella&"\"


.Load
.UploadOnly "Images"
While Not .Eof
.Save
.MoveNext
Wend
End With

Set oUpload = Nothing
%>

errore:

codice:
Microsoft VBScript runtime  error '800a0411'
Name redefined: 'adLongVarChar'
/upload.asp, line 20
di sicuro l'errore non è nel file UPLOAD <---