Nessuno mi sa rispondere? 
Vi spiego cosa ho combinato...
ho riadattato il codice per il mio compito e questo è quello che ho scritto:
Codice PHP:
<%
Dim oUpload, FileNameProg, FileNameMate, FileNameAlle
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "/intranet/upload/" 'Impostazione del percorso
oUpload.Load
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "programma"
FileNameProg = oUpload.GetFileName()
Case "materiale"
FileNameMate = oUpload.GetFileName()
Case "allegato"
FileNameAlle = oUpload.GetFileName()
End Select
oUpload.MoveNext
Wend
dim docenteDb, strDocente
docenteDb = oUpload.Form("docente")
array docente
docente = split(docenteDb, " ", -1, 1)
for i = 0 TO Ubound(docente)
strDocente = docente(i)
next
dim data
data= Date()
dim reparto
reparto= oUpload.Form("reparto")
dim num
randomize()
num = CInt(Rnd()*1000)
dim idCorso
idCorso = reparto & "_" & strDocente & "_" & num
dim nomeCat, strCat
nomeCat = oUpload.Form("categoria")
Select Case nomeCat
Case "corInt"
strCat = "Corsi Interni"
Case "conEst"
strCat = "Convegni Esterni"
Case "forCam"
strCat = "Formazione sul Campo"
Case "eveEst"
strCat = "Eventi Esterni"
End Select
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/intranet/areaFormazione.mdb")
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open "attivita",Conn,3,3
Rs.AddNew
Rs("ID") = idCorso
Rs("data") = data
Rs("categoria") = strCat
Rs("titolo") = oUpload.Form("titolo")
Rs("descrizione") = oUpload.Form("descrizione")
Rs("programma") = FileNameProg
Rs("materiale") = FileNameMate
Rs("allegato") = FileNameAlle
Rs("docente") = docenteDb
Rs.update
Rs.Close
Set Rs = Nothing
Set oUpload=Nothing
response.Redirect("vediCorsi.asp")
%>
Ora mi presenta questa problema:
codice:
Informazioni tecniche (per il personale del supporto tecnico)
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'Files'
/intranet/admin/Upload.asp, line 1003
Tipo di browser:
Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/533.4 (KHTML, like Gecko) Chrome/5.0.375.70 Safari/533.4
Pagina:
GET /intranet/admin/insCorsi2.asp
Ora:
martedì 29 giugno 2010, 17.38.54
Ovvero il file intoccabile!
la parte incriminata è una funzione per gestire l'EOF:
Codice PHP:
Public Property Get EOF()
EOF = Files.EOF
end property
Esattamente, che tipo di errore mi si sta presentando?
il form è stato settato per il multipart/form data
il nome dei campi file è corretto...
ma non riesco a capire che cosa sto sbagliando.
Grazie mille per l'aiuto!
Rispondi quotando
