upload e campo file vuoto

[djjunior]

Carissimi,
ho implementato la possibilità di fare upload di un file da un form con successiva modifica etc.
solo che volevo utilizzare l'if then etc se il campo file fosse lasciato vuoto per far modificare solo i dati esistenti, ma ho questo errore:

Microsoft VBScript runtime error '800a01a8' 

Object required: 'Upload' 

/public/admin/pag.asp, line 10

ecco parte dello script che sto utilizzando:

If Upload.Form("file1").Value <> "" then

Dim objFS,objFolder,objFile 
Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
percorso = Server.MapPath("/public/admin/img_libri/") 
Set objFolder = objFS.GetFolder(""&percorso&"") 

Set Upload = Server.CreateObject("Persits.Upload") 

Upload.OverwriteFiles = False

Upload.ProgressID = Request.QueryString("PID")

Count = Upload.Save (percorso) 

' This is needed to enable the progress indicator 
Set File = Upload.Files("file1") 

If Not File Is Nothing Then 
dimensione=File.Size 
filename=File.FileName
estensione=File.ext 

estensione_ammessa=".jpg" 
dimensione_ammessa= 521000000 'questa dimensione è in byte. 

    If dimensione< 1024 Then 
            dimensione_file = Round(dimensione,2) & " Bytes" 
      ElseIf dimensione< 1048576 Then 
            dimensione_file= Round(dimensione/1024,2) & " KB" 
      Else 
            dimensione_file= Round(dimensione/1048576,2) & " MB" 
      End If 

if dimensione>dimensione_ammessa then 
%>
<script language="javascript">
alert("Il file ha una dimensione non ammessa, riprova");
location = "javascript:history.back()";
</script>

<%
else 

if lcase(estensione)<>estensione_ammessa then 
file.delete 

%>

<script language="javascript">
alert("Il file ha una estensione non ammessa, riprova");
location = "javascript:history.back()";
</script>
<%

else 

nuovo_filename1="libro_"& request.querystring("code") & file.ext &"" 

if objFS.FileExists(Server.MapPath("/public/admin/img_libri/"&nuovo_filename1&""))=true then 
objFS.DeleteFile (Server.MapPath("/public/admin/img_libri/"&nuovo_filename1&"")) 
end if

Dim fsoMyFile 
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
fsoMyFile.MoveFile (Server.MapPath("/public/admin/img_libri/"&filename&"")), (Server.MapPath("/public/admin/img_libri/"&nuovo_filename1&"")) 
Set fsoMyFile = nothing 

end if
end if
end if

e proprio alla prima riga quando faccio il if then che ho l'errore.
Potete aiutarmi?
Grazie
G.-

[br1]

Mi pare che tu stia cercando di usare l'oggetto Upload prima di averlo istanziato...


If Upload.Form("file1").Value <> "" then

Dim objFS,objFolder,objFile
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
percorso = Server.MapPath("/public/admin/img_libri/")
Set objFolder = objFS.GetFolder(""&percorso&"")

Set Upload = Server.CreateObject("Persits.Upload")

[djjunior]

quindi come posso fare?
Grazie

[djjunior]

ho istanziato l'oggetto in questo modo:

Dim objFS,objFolder,objFile 
Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
percorso = Server.MapPath("/public/admin/img_libri/") 
Set objFolder = objFS.GetFolder(""&percorso&"") 

Set Upload = Server.CreateObject("Persits.Upload")

If Upload.Form("file1").Value <> "" then

..................

Solo che niente, non effettua il controllo se il campo file è vuoto come posso fare?
Grazie
G.

[djjunior]

nessuno può aiutarmi?

[Grambo]

Originariamente inviato da djjunior

...

If Upload.Form("file1").Value <> "" then

..................

cosa vuol dire?


scusa recupera il contenuto del campo con un normalissimo
file1=request.form("file1")

se
file1<>"" then
fai l'upload
else
non fai l'upload
end if

[Roby_72]

Set Upload = Server.CreateObject("Persits.Upload")

mettila in cima

[djjunior]

purtroppo mi da questo errore:

Provider error '80020005'

Type mismatch.

/public/admin/mod_libri_ok.asp, line 209

In pratica non passa i dati perchè la linea indicata corrisponde ad un campo data/ora di access che se vuoto da questo errore sia che il campo file sia vuoto o pieno.

Ecco il codice completo:

<%

file1 = request.form("file1") 

if file1 <> "" then

Dim objFS,objFolder,objFile 
Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
percorso = Server.MapPath("/public/admin/img_libri/") 
Set objFolder = objFS.GetFolder(""&percorso&"") 

Set Upload = Server.CreateObject("Persits.Upload") 

Upload.OverwriteFiles = False

Upload.ProgressID = Request.QueryString("PID")

Count = Upload.Save (percorso) 

' This is needed to enable the progress indicator 
Set File = Upload.Files("file1") 

If Not File Is Nothing Then 
dimensione=File.Size 
filename=File.FileName
estensione=File.ext 

estensione_ammessa=".jpg" 
dimensione_ammessa= 521000000 'questa dimensione è in byte. 

    If dimensione< 1024 Then 
            dimensione_file = Round(dimensione,2) & " Bytes" 
      ElseIf dimensione< 1048576 Then 
            dimensione_file= Round(dimensione/1024,2) & " KB" 
      Else 
            dimensione_file= Round(dimensione/1048576,2) & " MB" 
      End If 

if dimensione>dimensione_ammessa then 
%>
<script language="javascript">
alert("Il file ha una dimensione non ammessa, riprova");
location = "javascript:history.back()";
</script>

<%
else 

if lcase(estensione)<>estensione_ammessa then 
file.delete 

%>

<script language="javascript">
alert("Il file ha una estensione non ammessa, riprova");
location = "javascript:history.back()";
</script>
<%

else 

nuovo_filename1="libro_"& request.querystring("code") & file.ext &"" 

if objFS.FileExists(Server.MapPath("/public/admin/img_libri/"&nuovo_filename1&""))=true then 
objFS.DeleteFile (Server.MapPath("/public/admin/img_libri/"&nuovo_filename1&"")) 
end if

Dim fsoMyFile 
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
fsoMyFile.MoveFile (Server.MapPath("/public/admin/img_libri/"&filename&"")), (Server.MapPath("/public/admin/img_libri/"&nuovo_filename1&"")) 
Set fsoMyFile = nothing 

end if
end if
end if

sql = "SELECT * FROM editoria WHERE id = " & request.querystring("id") & ""  
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

codiceprodotto = Upload.Form("codiceprodotto").Value
titolo = Upload.Form("titolo").Value
sottotitolo = Upload.Form("sottotitolo").Value
autori = Upload.Form("autori").Value
categoria = Upload.Form("categoria").Value
area1 = Upload.Form("area1").Value
area2 = Upload.Form("area2").Value
area3 = Upload.Form("area3").Value
area4 = Upload.Form("area4").Value
collana = Upload.Form("collana").Value
a_cura = Upload.Form("a_cura").Value
anno = Upload.Form("anno").Value
edizione = Upload.Form("edizione").Value
pagine = Upload.Form("pagine").Value
editore = Upload.Form("editore").Value
fotos = ""&nuovo_filename1&""
prezzo = Upload.Form("prezzo").Value
sconto = Upload.Form("sconto").Value
totale = Upload.Form("totale").Value
offerta = Upload.Form("offerta").Value
offerta_scadenza = Upload.Form("offerta_scadenza").Value
descrizione = Upload.Form("descrizione").Value
novita = Upload.Form("novita").Value
novita_scadenza = Upload.Form("novita_scadenza").Value
priorita = Upload.Form("priorita").Value

rs.Fields("codiceprodotto") = "" & codiceprodotto & "" 
rs.Fields("titolo") = "" & titolo & "" 
rs.Fields("sottotitolo") = "" & sottotitolo & "" 
rs.Fields("autori") = "" & autori & "" 
rs.Fields("categoria") = "" & categoria & "" 
rs.Fields("area1") = "" & area1 & "" 
rs.Fields("area2") = "" & area2 & "" 
rs.Fields("area3") = "" & area3 & "" 
rs.Fields("area4") = "" & area4 & "" 
rs.Fields("collana") = "" & collana & "" 
rs.Fields("a_cura") = "" & a_cura & ""
rs.Fields("anno") = "" & anno & ""  
rs.Fields("edizione") = "" & edizione & "" 
rs.Fields("pagine") = "" & pagine & ""
rs.Fields("editore") = "" & editore & ""  
rs.Fields("foto") = "" & fotos & ""
rs.Fields("prezzo") = "" & prezzo & "" 
rs.Fields("sconto") = "" & sconto & ""
rs.Fields("totale") = "" & totale & ""
rs.Fields("offerta") = "" & offerta & ""
rs.Fields("offerta_scadenza") = "" & offerta_scadenza & ""
rs.Fields("descrizione") = "" & descrizione & ""
rs.Fields("novita") = "" & novita & ""
rs.Fields("novita_scadenza") = "" & novita_scadenza & ""
rs.Fields("priorita") = "" & priorita & ""

rs.update	

sql = "SELECT * FROM editoria WHERE codice = " & request.querystring("code") & "" 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

%>
<script language="javascript">
alert("Modifica effettuata");
location = "carica_libri_caricato.asp?id=<%=request.querystring("id")%>&collana=<%=request.querystring("collana")%>";
</script>
<%
else
%>
<%
Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
percorso = Server.MapPath("/public/admin/img_libri/") 
Set objFolder = objFS.GetFolder(""&percorso&"") 

Set Upload = Server.CreateObject("Persits.Upload") 

sql = "SELECT * FROM editoria WHERE id = " & request.querystring("id") & ""  
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

codiceprodotto = Upload.Form("codiceprodotto").Value
titolo = Upload.Form("titolo").Value
sottotitolo = Upload.Form("sottotitolo").Value
autori = Upload.Form("autori").Value
categoria = Upload.Form("categoria").Value
area1 = Upload.Form("area1").Value
area2 = Upload.Form("area2").Value
area3 = Upload.Form("area3").Value
area4 = Upload.Form("area4").Value
collana = Upload.Form("collana").Value
a_cura = Upload.Form("a_cura").Value
anno = Upload.Form("anno").Value
edizione = Upload.Form("edizione").Value
pagine = Upload.Form("pagine").Value
editore = Upload.Form("editore").Value
prezzo = Upload.Form("prezzo").Value
sconto = Upload.Form("sconto").Value
totale = Upload.Form("totale").Value
offerta = Upload.Form("offerta").Value
offerta_scadenza = Upload.Form("offerta_scadenza").Value
descrizione = Upload.Form("descrizione").Value
novita = Upload.Form("novita").Value
novita_scadenza = Upload.Form("novita_scadenza").Value
priorita = Upload.Form("priorita").Value

rs.Fields("codiceprodotto") = "" & codiceprodotto & "" 
rs.Fields("titolo") = "" & titolo & "" 
rs.Fields("sottotitolo") = "" & sottotitolo & "" 
rs.Fields("autori") = "" & autori & "" 
rs.Fields("categoria") = "" & categoria & "" 
rs.Fields("area1") = "" & area1 & "" 
rs.Fields("area2") = "" & area2 & "" 
rs.Fields("area3") = "" & area3 & "" 
rs.Fields("area4") = "" & area4 & "" 
rs.Fields("collana") = "" & collana & "" 
rs.Fields("a_cura") = "" & a_cura & ""
rs.Fields("anno") = "" & anno & ""  
rs.Fields("edizione") = "" & edizione & "" 
rs.Fields("pagine") = "" & pagine & ""
rs.Fields("editore") = "" & editore & ""  
rs.Fields("prezzo") = "" & prezzo & "" 
rs.Fields("sconto") = "" & sconto & ""
rs.Fields("totale") = "" & totale & ""
rs.Fields("offerta") = "" & offerta & ""
rs.Fields("offerta_scadenza") = "" & offerta_scadenza & ""
rs.Fields("descrizione") = "" & descrizione & ""
rs.Fields("novita") = "" & novita & ""
rs.Fields("novita_scadenza") = "" & novita_scadenza & ""
rs.Fields("priorita") = "" & priorita & ""

rs.update	

sql = "SELECT * FROM editoria WHERE codice = " & request.querystring("code") & "" 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

%>
<script language="javascript">
alert("Modifica effettuata");
location = "carica_libri_caricato.asp?id=<%=request.querystring("id")%>&collana=<%=request.querystring("collana")%>";
</script>
<%
end if
%>

Grazie per l'aiuto
G.

[Roby_72]

Quindi il problema è un altro?
Carica il campo data...

Roby

[djjunior]

il campo data del form è pieno... perchè il codice su indicato deve effettuare solo modifiche...
Ma se i campo data sia vuoto come si potrebbe ovviare?
Il campo data che carico è: gg/mm/aaaa

Grazie