upload baol74 errore MidB

[reybluk]

Non so che dire... fino ad oggi funzionava....

ora mi spiego... io ho un form dove devo fare l'upload di dati che vanno poi inseriti in DB e file (sia immagini, sia pdf, sia flash..) uso l'upload di baol74 versione 3.1.1 che fino ad oggi funzionava egregiamente...

oggi però ha deciso di smettere e darmi il seguente errore:

Errore di run-time di Microsoft VBScript error '800a0005' 
Chiamata di routine o argomento non validi: 'MidB' 
/System/upload.asp, line 355

Da cosa può essere dovuto?

questo è il codice del file che fino a stamattina funzionava...

<%

Dimbordo = 1
UPLOADDIR="/public/file/"

 tabella = "SELECT * FROM corso"
 MDBFile= "/MDB-Database/database.mdb"
 'Apertura database - recordset
 strConn="driver={Microsoft Access Driver (*.mdb)}; "
 strConn=strConn & " DBQ=" & Server.MapPath(MDBFile)
 Set Conn=Server.CreateObject("ADODB.Connection")
 Conn.Open (strConn)
 Set rs = Server.CreateObject("ADODB.Recordset")
 
  '#### UPLOAD dei file ####
 'Se voglio autorinominare allora meglio cosi:
 Dim oUpload
 Set oUpload = new cUpload
      With oUpload
  .AutoRename = False
  .Overwrite = true
  .SetPath UPLOADDIR
  .load()
   if .form("access") = 4 then
 'registro il corso
 rs.open tabella, conn,3,3

 'Memorizzazione dati
 rs.addnew
 rs("Nome_corso") = trim(.form("cor_titolo"))
 rs("descrizione") = trim(.form("cor_descrizione"))
 rs("tipo") = trim(.form("tipo"))
 rs("creator") = .form("es_User")
 rs("group") = .form("gruppo")
 
 rs.update
 rs.close
 
 'cerco l'ID del corso
 rs.open tabella, conn,3,3
 while not rs.eof
  IntID_corso =  rs.Fields.Item("Id_Corso")
  rs.movenext
 wend
 'Chiusura database - recordset
 rs.close 
 
 'registro il modulo
 tabella = "SELECT * FROM Modulo"
 rs.open tabella, conn,3,3

 'Memorizzazione dati
 rs.addnew
 rs("Titolo") = trim(.form("mod_titolo"))
 rs("Descrizione") = trim(.form("mod_descrizione"))
 rs("id_Corso") = IntID_corso
 rs.update
 rs.close
 'cerco l'ID del modulo
 rs.open tabella, conn,3,3
 while not rs.eof
  IntID_modulo = rs.Fields.Item("Id_modulo")
  rs.movenext
 wend
 'Chiusura database - recordset
 rs.close
 
 '#########################################
 
 'registro la lezione
 tabella = "SELECT * FROM Lezione"
 rs.open tabella, conn,3,3

 'Memorizzazione dati
 rs.addnew
 rs("Titolo") = trim(.form("unit_titolo"))
 rs("Descrizione") = trim(.form("unit_descrizione"))
 rs("Id_User") = trim(.form("es_User"))
 rs("Descrizione_Esercitazione") = trim(.form("es_descrizione"))
 
 rs("Nome_file") = CInt(IntID_corso) &"_unit_" & .Files("Name") &"."& .files("Ext")
 rs("Tipo")= .files("Ext")
 rs("Dim_nomefile")= .files("Size")
 
 .SaveAs(CInt(IntID_corso) &"_unit_" & .Files("Name") &"."& .files("Ext"))
 
 
 'Se manca esercitazione qui avviene un errore....
 
 .MoveNext
 rs("File_Esercitazione") =  CInt(IntID_corso) &"_es_" & .Files("Name") &"."& .files("Ext")
 rs("Dim_esfile")= .files("Size")
 rs("Type_esfile")= .files("Ext")
 .SaveAs(CInt(IntID_corso) &"_es_" & .Files("Name") &"."& .files("Ext"))
 
 rs.update
 rs.close
 rs.open tabella, conn,3,3
 while not rs.eof
  IntID_lezione = rs.Fields.Item("Id_lezione")
  rs.movenext
 wend
 'Chiusura database - recordset
 rs.close
 
 'registro la lezione
 tabella = "SELECT * FROM Lez_Mod"
 rs.open tabella, conn,3,3

 'Memorizzazione dati
 rs.addnew
 rs("Id_modulo") = IntID_modulo
 rs("Id_Lezione") = IntID_lezione
 rs.update
 rs.close
 
 'memorizzo i menu
 tabella = "SELECT * FROM menu"
 rs.open tabella, conn,3,3
 
 'registro il menu
 'Memorizzazione dati
 rs.addnew
 if .form("Avvisi") = "true" then
  rs("Avvisi") = true
 else
  rs("Avvisi") = false
 end if
 if .form("Agenda") = "true" then
  rs("Agenda") = true
 else
  rs("Agenda") = false
 end if
 rs("Lezione") = true
 if .form("Linkografia") = "true" then
  rs("Linkografia") = true
 else
  rs("Linkografia") = false
 end if
 if .form("Messaggi") = "true" then
  rs("Messaggi") = true
 else
  rs("Messaggi") = false
 end if
 if .form("Forum") = "true" then
  rs("Forum") = true
 else
  rs("Forum") = false
 end if
 if .form("Chat") = "true" then
  rs("Chat") = true
 else
  rs("Chat") = false
 end if
 if .form("utenti_iscritti") = "true" then
  rs("utenti_iscritti") = true
 else
  rs("utenti_iscritti") = false
 end if
 if .form("Esercitazioni") = "true" then
  rs("Esercitazioni") = true
 else
  rs("Esercitazioni") = false
 end if
 
 rs("Test") = trim(.form("abletest"))
 
 rs("Id_Corso") = IntID_Corso
 rs.update
 rs.close 
 
 set rs=nothing
 conn.close
  
 set conn=nothing

 response.write("Il corso di "& trim(.form("cor_titolo"))&" &egrave; stato creato con successo!!!!
")
 response.redirect("/?userpage=/elearn/corsoregistrato&CODE=Djd45sd7y90fgMpI8h1j&UserID="& Session("tmpID_user") &"&crsID="&IntID_Corso &"&menuID="&request.querystring("menuID"))
  
  
 'dovevo essere drogato per scrivere quanto sotto...
 'response.redirect("/default.asp?userpage=/elearn/modulo&menuID=2")
    else
  response.write("accesso non autorizzato")
    end if 

 End With
Set oUpload=Nothing
 
 '#### FINE di UPLOAD dei file ####
%>

[santino83]

prova a fare un controllo sul .eof e vedere se c'è qualcosa da uplodare oppure no...mai visto cmq quell'errore con l'upload di baol...

[reybluk]

ma l'errore me lo da comunque anche se li carico tutti i file...

ehm... provo comunque...

[reybluk]

non riesco sono nel pallone... ho aggiunto:

    if not .eof then
 .MoveNext
 
 rs("File_Esercitazione") =  CInt(IntID_corso) &"_es_" & .Files("Name") &"."& .files("Ext")
 rs("Dim_esfile")= .files("Size")
 rs("Type_esfile")= .files("Ext")
 .SaveAs(CInt(IntID_corso) &"_es_" & .Files("Name") &"."& .files("Ext"))
    end if

ma l'errore rimane... non capisco...

[santino83]

boh io ho la versione 3.1.2 infatti alla linea in cui ti da errore ho un'altra funzione

[reybluk]

Se la provo, non dovrò cambiare molto le mie funzioni... proverò... ti fo sapere.

[reybluk]

Ho provato con il nuovo upload e l'errore me lo da lo stesso:

Errore di run-time di Microsoft VBScript error '800a0005' 
Chiamata di routine o argomento non validi: 'MidB' 
/System/upload.asp, line 780

[reybluk]

non c'è modo?

provo a riscrivere tutto da zero... farò sapere se capisco il problema... se qualcuno trova una soluzione più rapida, gli sarei grato.

intanto mi rimbocco le maniche... VVoVe: