da un form faccio selezionare la cartella di destinazione e poi faccio upload di file
non riesco a far funzionare la destinazione
<code>
If Request.QueryString("Save")="1" then
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
[COLOR=orangered] oUpload.Load
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "miniatura"
FileName_Dritto = oUpload.GetFileName()
FileName_Dritto1 = oUpload.GetCompletePathFile()
Case "foto1"
FileName_Rovescio = oUpload.GetFileName()
FileName_Rovescio1 = oUpload.GetCompletePathFile()
End Select
oUpload.MoveNext
Wend
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb/ife.mdb")
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open "volantino",Conn,3,3
Rs.AddNew
Rs("titolo") = oUpload.Form("nome_foto")
Rs("data_ins") = oUpload.Form("data_ins")
Rs("username") = oUpload.Form("username")
Rs("smenu") = oUpload.Form("galleria")
Rs("vol") = oUpload.Form("vol")
Rs("vol2") = oUpload.Form("vol2")
Rs("filename1") = FileName_Dritto
Rs("percorso1") = FileName_Dritto1
Rs("filename2") = FileName_Rovescio
Rs("percorso2") = FileName_Rovescio1
Rs.update
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn=Nothing
Set oUpload = Nothing
End if
response.Write "
<font face='verdana' size='3' font color='#0000FF'>Dati inseriti e le foto " & FileName_Dritto & FileName_Rovescio &" sono state salvate
"
Response.write ("Inserisci ancora
")
Response.write ("Ritorna Indietro
</FONT>")
%>
</code>
Rispondi quotando
