Quando metto in produzione un file asp con il seguente codice, che serve per uplodare files, mi da errore nell 'ultima riga.
Ho provato con files molto piccoli e tutto funzoina, mentre basta un file di 100k x avere errore.

Con rs("mBin").AppendChunk gli vanno bene solo valori molto piccoli.

Vi chiedo quindi se sapete qual'è la dll che viene richiamata da questo codice, così la registro anche sul server in produzione.

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Fields.Append "mBin", 201, r.TotalBytes
rs.Open()
rs.AddNew()
rs("mBin").AppendChunk r.BinaryRead(r.TotalBytes)

Grazie

Per me bisognerebbe sarebe la ddl che viene richiamata quando si creano dei recordset, cmq se ti può aiutare ti posto tutta la funzione:


Public Function ParseRequest(r)
Dim contenttypelist, rs, requeststring, boundry, data, i, infoend, info, value, item, ii, keyexists, iv
ReDim m_itemlist(-1)
contenttypelist = Split(LCase(r.ServerVariables("HTTP_CONTENT_TYPE")), ";")
If InStr(contenttypelist(0), "multipart/form-data") = 0 Then Err.Raise 513, "UploadManager", "Form non di tipo ""multipart/form-data"""
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Fields.Append "mBin", 201, r.TotalBytes
rs.Open()
rs.AddNew()
rs("mBin").AppendChunk r.BinaryRead(r.TotalBytes)
rs.Update()
requeststring = CStr(rs("mBin"))
boundry = Split(contenttypelist(1), "=")(1)
data = Split(requeststring, boundry)
For i = 0 To UBound(data)
infoend = InStr(data(i), vbCrLf & vbCrLf)'two sets of crlf mark the end of the information about this field; everything after that is the value
If infoend > 1 Then
info = Mid(data(i), 2, infoend - 2) 'pull the info for this field, minus the stuff at the ends...
value = Mid(data(i), infoend + 4, Len(data(i)) - infoend - 7) 'skip the crlf pairs at the start and the crlf-- at the end: length = Len(data(i)) - 4 - (infoend + 4) + 1 = Len(data(i)) - 4 - infoend - 4 + 1 = Len(data(i)) - infoend - 7
If InStr(LCase(info), "filename=") > 0 Then
Set item = New RequestItemFile
item.Info = info
item.Value = value
Else
Set item = New RequestItem
item.Info = info
item.Value = value
End If
' field exists in m_itemlist?
keyexists = False
For ii = 0 To UBound(m_itemlist) Step 2
If m_itemlist(ii) = LCase(item.Name) Then
iv = m_itemlist(ii + 1)
ReDim Preserve iv(UBound(iv) + 1)
Set iv(UBound(iv)) = item
m_itemlist(ii + 1) = iv
keyexists = True
Exit For
End If
Next
If Not keyexists Then
ReDim Preserve m_itemlist(UBound(m_itemlist) + 2)
m_itemlist(UBound(m_itemlist) - 1) = LCase(item.Name)
m_itemlist(UBound(m_itemlist)) = Array(item)
End If
End If
Next
End Function

la classe di cui stiamo parlando e' uploadmanger.asp

questo e' il sito di riferimento dal quale si puo' scaricare l'asp che serve per fare l'upload dei file http://www.guru4.net/articoli/asp-upload/.

Il problema grosso è che NON CAPISCO PERCHE' questo script funziona benissimo su tutti i browser tranne che su CHROME... io ho un progetto che integra questo script e vi chiedo se potete aiutarmi a capire il perche'...

Se usate lo script noterete che Chrome (e solo lui) restituisce un errore


Mi chiedo... ma vbscript non dovrebbe essere uguale su tutti i browser?

Inoltre vi chiederei di darmi una mano avrei una certa urgenza...

grazie mille in anticipo a tutti coloro che vorranno cercare di far luce su questo mistero...

grazie