problemi di upload con firfox

[F10ry_ke_deve_imp]

Ho provato ad usare firefox per uplodare dei file sul server, codice che da sempre uso con esplorer.
La parte di scrittura del nome del file sul db la fa correttamente ma poi non esegue l'upload fisico ma il grosso problema è che che non da nessun messaggio di errore va alla pagina di conferma upload mentre in realtà il file sul server non è proprio stato scritto!!!
Qualcuno ne sa qualcosa???

[supergeniux]

Non è il client ad elaborare la pagina ma il webserver.
Sei sicuro di aver assegnato i permessi alla cartella designata per l'upload?

[F10ry_ke_deve_imp]

SI SICURISSIMA, CON EXPLORER FUNZIONA TUTTO PERFETTAMENTE, con firefox invece non uploda i files

[supergeniux]

[Victorval]

A parte che l'avatar di supergeniux è una figata

E' strano, il browser non c'entra assolutamente col codice asp... per curiosità, riprova a farlo con explorer, per vedere se va anche adesso...

[supergeniux]

Originariamente inviato da Victorval
A parte che l'avatar di supergeniux è una figata

[F10ry_ke_deve_imp]

si con explorer funziona tutto perfettamente
con firefox invece non mi da errrori mi dice che il file è stato uplodato ma nella cartella non c'è niente (

[Alethesnake]

prova a postare il codice che usi

[F10ry_ke_deve_imp]

FORM
<table border=0 width=471 bgcolor=#336699 cellspacing=2>
<tr bgcolor="#FFFFFF">
<td align=center class="txt" colspan="2" height="24"><FONT FACE="tahoma" color=#ffffff size=2><b class="txt">SELEZIONARE
IL FILE PER L'UPLOAD[/b]</FONT></td>
</tr>
<form method="POST" enctype="multipart/form-data" action="offerte_upload.asp">
<tr bgcolor="#FFFFFF">
<td width="117" height="39" class="txt" bgcolor="#FFFFFF">
<p align="center"><font color="#000080" size="2" face="Arial">

</font>File:

<%
nome=request("nome")
nom=split(nome, "\")
testo=nom(ubound(nom))
%>
</td>
<td width="344" height="39" class="txt">
<input type="file" name="blob" size=30>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="43" class="txt" align=right colspan="2">
<div align="center">
<input name="nome" type="hidden" id="nome" value="<%= nome %>">
<input type="submit" name="Enter" value="Aggiungi">
</div></td>
</tr>
</form>
</table>


PAGINA ELABORAZIONE
ByteRicevuti = Request.TotalBytes

if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
For i = 1 To lenB(DatiRicevuti)
FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
Next
FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
ArrPezzi = split(FileBinario,FirmaFile)

for item = 1 to ubound(ArrPezzi)-1
Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
Intestazione = left(ArrPezzi(item),Inizio-1)
Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)


' Recupero i campi se sono compilati
if instr(Intestazione,"nome") > 0 then
folder = ContenutoFile
end if

if instr(Intestazione,"id_offerta") > 0 then
id_offerta = ContenutoFile
end if

next
end if



sql = "SELECT max(versione) as versione from offerte_file where id_offerta="&id_offerta
Set RS = conn.Execute(sql)

if vartype(rs("versione"))=0 or vartype(rs("versione"))=1 then
versione=1
else
versione=trim(rs("versione"))+1
end if

set rs2=Server.CreateObject("ADODB.Recordset")
sql2="select id_codice_offerta from offerta_nuovo where id_offerta="&id_offerta
Set RS2 = conn.Execute(sql2)
id_codice_offerta=rs2("id_codice_offerta")

set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select * from codice_offerta where id_codice_offerta="&id_codice_offerta
rs1.open sql1,conn,3,3
nomefile_nuovo=trim(rs1("codice_offerta"))
NomeFile1 = "off_"&nomefile_nuovo&"_"&versione&""&estensionefi le1

if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
For i = 1 To lenB(DatiRicevuti)
FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
Next
FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
ArrPezzi = split(FileBinario,FirmaFile)

for item = 1 to ubound(ArrPezzi)-1
Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
Intestazione = left(ArrPezzi(item),Inizio-1)
Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)

if instr(Intestazione,"blob") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
EstensioneFile1 = right(nomefile,4)

'response.write nomefile
'response.End()

if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
'EstensioneFile1 = right(ContenutoFile,4)



NomeFile1 = "off_"&nomefile_nuovo&"_"&versione&""&estensionefi le1

Set textStream = FSO.CreateTextFile(server.mappath(folder & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing

end if
end if

next

set rs4=Server.CreateObject("ADODB.Recordset")
sql4="INSERT INTO offerte_file (id_offerta, id_user, offerta_file, data_upload, versione, approvato) values ("&id_offerta&", "& session("id_user")&", '"&NomeFile1&"', convert(smalldatetime, '"&date()&"', 103), "&versione&", 0)"
'response.write sql4
'response.end
Set RS4 = conn.Execute(sql4)






End if

[Alethesnake]

Azz, quello script per l'upload non è un granché. (probabilmente la stranezza è che funzioni con ie, non che non funzioni con ff , ma per dire di più dovrei mettermi a fare dei test e ora non riesco).
Il mio consiglio è di buttarlo e sfruttare l'upload di baol (cerca su google - upload baol - e vedrai che lo trovi senza problemi). E' molto più veloce e semplice da usare.