Con questo codice

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "..\public\"
StrIco1 = oUpload.Form("ico1")
StrImg1 = oUpload.Form("img1")
StrIco2 = oUpload.Form("ico2")
StrImg2 = oUpload.Form("img2")
StrIco3 = oUpload.Form("ico3")
StrImg3 = oUpload.Form("img3")
StrIco4 = oUpload.Form("ico4")
StrImg4 = oUpload.Form("img4")
StrIco5 = oUpload.Form("ico5")
StrImg5 = oUpload.Form("img5")
StrIco6 = oUpload.Form("ico6")
StrImg6 = oUpload.Form("img6")
StrIco7 = oUpload.Form("ico7")
StrImg7 = oUpload.Form("img7")
StrIco8 = oUpload.Form("ico8")
StrImg8 = oUpload.Form("img8")
StrIco9 = oUpload.Form("ico9")
StrImg9 = oUpload.Form("img9")
StrIco10 = oUpload.Form("ico10")
StrImg10 = oUpload.Form("img10")
StrId = oUpload.Form("idprog")
.Load
.UploadOnly "images"
%>
<tr>
<td class="homenodot">
<%
dim sw00,sw01,sw03

sw03 = false
if ((oUpload.Form("ico1") = "") OR (oUpload.Form("img1") = "")) then

sw01 = false
else
sw01 = true
end if
While Not .Eof

.Save
sw00 = true
Response.write ("Il file <font class='colore'>" & .GetFileName() &"</font> è stato caricato con successo.

" )

.MoveNext
Wend



mi restituisce questo errore...
Tipo di errore:
ADODB.Recordset (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/XXX/pannello/uploadimg.asp, line 90 (il Wend)

visto che comincio ad essere un po' stanco non vedo il problema, magari ci riuscite voi?