Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "../public" 'Impostazione del percorso
oUpload.Load
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "img_annuncio"
'FileName_img_annuncio = oUpload.GetFileName()
FileName_img_annuncio = oUpload.GetCompletePathFile
End Select
oUpload.MoveNext
Wend
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../csc_data/csc_data.mdb")
Set Rs=server.CreateObject("ADODB.Recordset")
rs.activeconnection = con
Rs.Open "tbl_annunci",Con,3,3
Rs.Addnew
Rs("user") = oUpload.Form("user")
Rs("img_annuncio") = FileName_img_annuncio
Rs.update
Rs.Close
Con.Close
Set Rs = Nothing
Set Con=Nothing
Set oUpload = Nothing
end if
response.Redirect("../index.asp")
%>
<% con.close
set con = nothing
%>
Rispondi quotando
