devo fare l'upload di due foto
e caricare su db i nomi e il percorso dei due file , con uno funziona tutto con due non riesco,ho fatto una ricerca ho trovato qualcosa di simile ma non cè la soluzione :
<%
Dim oUpload
Set oUpload = new cUpload
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "./fotov/"
oUpload.Load
if oUpload.Count=0 then
Response.Write "Nessun file caricato"
Else
While Not oUpload.EOF
oUpload.Save()
Response.Write "Salvo il file : " & oUpload.GetFileName() & "
"
Response.Write "Percorso fisico : " & oUpload.GetCompletePathFile() & "
"
'Response.Write "Percorso Web : " & oUpload.GetHTTPPathFile() & "
"
Response.Write "Dimensioni del file : " & oUpload.Files("Size") & "
"
Response.Write "<hr>"
oUpload.MoveNext
Wend
nfoto = oUpload.Form("nome_foto")
data_ins = oUpload.Form("data_ins")
username = oUpload.Form("username")
vol = oUpload.Form("vol")
vol2 = oUpload.Form("vol2")
galleria = oUpload.Form("galleria")
Immagine = oUpload.Form("miniatura")
If Immagine = "" Then
Immagine = "no_photo_small.gif"
percorso1 = "no_percorso_small.gif"
Else
Immagine = oUpload.GetFileName()
percorso1 = oUpload.GetCompletePathFile
End If
'ho aggiunto questo per iserire la seconda foto
Immagine2 = oUpload.Form("foto")
If Immagine2 = "" Then
Immagine2 = "no_photo_big.gif"
percorso2 = "no_percorso.gif"
Else
Immagine2 = oUpload.GetFileName()
percorso2 = oUpload.GetCompletePathFile
End If
'Qui metto la insert sul db
CNN=Application("CNN")
set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN
sql = "INSERT INTO volantino (nfoto, data_ins, username, galleria, filename1, percorso1, filename2, percorso2, vol, vol2 ) VALUES ('"& nfoto & "', '"& data_ins & "', '"& username & "', '"& galleria & "','"& Immagine & "', '"& percorso1 & "', '"& Immagine2 & "', '"& percorso2 & "', '"& vol & "','"& vol2 & "')"
conn.Execute(sql)
End if
Set oUpload=Nothing
Rispondi quotando
