problemi con adovbs

[nataq]

Salve a tutti ho questa pagina :

<%@language=vbscript%>


<%
 
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "file\"
.Load
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=80 or .Files("Width")>=60 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
"  )

else
d=.GetFileName()
dim objconn, strconn
set objconn= server.createobject("adodb.connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath("/turismo/pino.mdb")
objconn.open strconn  
strquer="update tblex set i='"& d &"' where id= (select max(id) from tblex)"   
objconn.execute(strquer)
objconn.close
set objconn=nothing
 .Save

end if
.MoveNext
Wend
End With
Set oUpload = Nothing


%>

tuttavia il broswer mi visualizza questo errore perchè?
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0411)
Nome ridefinito
/adovbs.inc, line 64, column 6
Const adSmallInt = 2
-----^


Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; FastWeb; snprtz|dialno)

Pagina:
POST 11869 bytes to /turismo/imagine.asp

POST Data:
. . .

Ora:
lunedì 21 novembre 2005, 12.36.11


Informazioni aggiuntive:
Supporto Microsoft
come posso risolverlo? grazie

[fraude]

Controlla quante e quali variabili dichiara (Dim).