Ciao ragazzi,
sto preparando un form che oltre a inserire dei dati all'interno di un db access fa anche ujn upload di un file relativo all'inserimento, inserendo anche la path del file in modo da poterlo linkare da un pannello di controllo.
Il problema è che il procedimento non mi da errori, MA NON FA L'UPLOAD DEL FILE CON IL CONSEGUENTE INSERIMENTO DELLA PATH ALL'INTERNO DEL DB!!
Vi posto il codice della pagina di inserimento nel db e di upload.
-------------------------------------------------------------------
<%
percorso = "/public/"
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)
if instr(Intestazione,"testo1") > 0 then
testo1 = ContenutoFile
end if
if instr(Intestazione,"file1") > 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
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if
if instr(Intestazione,"nome") > 0 then nome = ContenutoFile
if instr(Intestazione,"surname") > 0 then cognome = ContenutoFile
if instr(Intestazione,"email") > 0 then email = ContenutoFile
if instr(Intestazione,"txtnote") > 0 then txtnote = Trim(ContenutoFile)
next
End if
path = NomeFile1
dim conn
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("mdb-database/curriculum.mdb")
SQLstmt = "INSERT INTO moduloprivati ( Nome,Cognome,Email,filepath,Txtnote)"
SQLstmt = SQLstmt & " VALUES ('" & nome & "','" & cognome & "','" & email & "','" & path & "','" & txtnote & "')"
conn.execute(SQLstmt)
response.redirect("moduloprivati.asp")
%>
---------------------------------------------------------------
Sapete dirmi se c'e' qualcosa di errato?
Grazie a tutti
Rispondi quotando
VVoVe:
