<%
If Request.QueryString("Save")="1" then
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 "prima"
dritto = oUpload.GetFileName()
Case "seconda"
rovescio = oUpload.GetFileName()
End Select
oUpload.MoveNext
Wend
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/database.mdb")
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open "tabbanconote",Conn,3,3
Rs.AddNew
Rs("valuta") = oUpload.Form("valuta")
Rs("anno") = oUpload.Form("anno")
Rs("disponibilita") = oUpload.Form("disponibilita")
Rs("prezzo") = oUpload.Form("prezzo")
Rs("numero") = oUpload.Form("numero")
Rs("dritto") = dritto
Rs("rovescio") = rovescio
Rs.update
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn=Nothing
Response.Redirect "public/ridimensiona.asp?dritto="&dritto&"&rovescio="&rove scio
Set oUpload = Nothing
else
%>
<form name="form1" method="post" enctype="multipart/form-data" ACTION="?save=1">
valuta:<input name="valuta" type="text" maxlength="50">
numero:<input name="numero" type="text" maxlength="50">
anno:<input name="anno" type="text" maxlength="50">
disponibilita:<input name="disponibilita" type="text" maxlength="50">
prezzo:<input name="prezzo" type="text" maxlength="50">
Foto dritto:<input name="prima" type="file" id="prima" >
Foto rovescio:<input name="seconda" type="file" id="seconda" >
<input type="submit" name="Submit" value="Invia">
</FORM>
<%
end if
%>