ciao,
ho 2 piccoli problemi che nn riesco a risolvere.
PRIMO:
Con la classe di baul dovrei caricare su database descrizione più il percorso di 2 file (descrizion + pdf + img) su un solo recordset.
ho scritto il codice funziona tutto l'unico problema è che mi crea 2 record in cu mette su uno il file pdf e su un'altro il file dell'immagine.
come posso risolvere

ecco il codice:





<%
Dim oUpload
Set oUpload= new cUpload
With oUpload

.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/database.mdb"),"SELECT Top 1 * FROM offerte"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = False
.Overwrite = False
.SetPath "\public\"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
.Database.Open()
While Not .EOF
.Save
response.Write "il file " & .GetFileName &" è stato salvato
"
'Inserimento dei valori
.Database.Fields("titolo") = .Form("titolo")
.Database.Fields("percorsoofferta") = .GetHTTPPathFile
.Database.Fields("percorsoimg") = .GetHTTPPathFile
'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if

End With
Set oUpload = Nothing
%>

[URL=http://www.hotelbagliobasile.it/nuovo/administrator/offerte/offerte.asp]

SECONDO:
il secondo problemuccio e che nn riesco a cancellare i file sia da database che dalla cartella del server

ecco il codice:

<%
dim Nomepdf
Nomepdf=Request("CancPdf")

dim NomeImg
NomeImg=Request("CancImg")

dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject ")
if fs.FileExists(Server.MapPath(Nomepdf)) and fs.FileExists(Server.MapPath(Nomeimg)) then
fs.DeleteFile(Server.MapPath(Nomepdf)) and fs.DeleteFile(Server.MapPath(Nomeimg))
end if
set fs=nothing

%>

<%
dim intCodice
intCodice = request("Id")
if intCodice<>"" then

dim strCode
strCode="innovatel"

Set Conn=Server.CreateObject("ADODB.Connection")

strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/database.mdb")
strConn=strConn & ";pwd=" & strCode

Conn.Open strConn

sql = "SELECT * FROM offerte WHERE Id="&intCodice
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conn ,3,3
rs.delete
rs.Close



set rs = Nothing
conn.Close
set conn = Nothing



response.redirect "offerte.asp"
else
response.redirect "offerte.asp"
end if
%>