Questa è la pagina per l'upload dei dati e files. Chiamala come vuoi.codice:<% 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 "dritto" FileName_Dritto = oUpload.GetFileName() Case "rovescio" FileName_Rovescio = oUpload.GetFileName() End Select oUpload.MoveNext Wend Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbmonete.mdb") Set Rs=server.CreateObject("ADODB.Recordset") Rs.Open "tabmonete",Conn,3,3 Rs.AddNew Rs("valuta") = oUpload.Form("valuta") Rs("data") = oUpload.Form("data") Rs("dritto") = FileName_Dritto Rs("rovescio") = FileName_Rovescio Rs.update Rs.Close Conn.Close Set Rs = Nothing Set Conn=Nothing Set oUpload = Nothing End if %> <form name="form1" method="post" enctype="multipart/form-data" action="?save=1"> <blockquote> <div align="center"> <table border="0" width="90%" id="table1"> <tr> <td> <p align="right"><font size="2" color="#000080" face="Verdana">valuta</font><font color="#000080" face="Verdana"> <input name="valuta" type="text" id="valuta"></font></td> <td></td> <td><font size="2" color="#000080" face="Verdana"> dritto </font> <font color="#000080" face="Verdana"> <input name="dritto" type="file" id="dritto" ></font></td> </tr> <tr> <td> <p align="right"> <font color="#000080" face="Verdana"> <font size="2">data <textarea rows="2" name="data" cols="20"></textarea></font></font><font size="2" color="#000080" face="Verdana"> </font> </td> <td></td> <td><font size="2" color="#000080" face="Verdana">rovescio </font><input name="rovescio" type="file" id="rovescio" ></td> </tr> <tr> <td></td> <td> <p align="center"> <input type="submit" name="Submit" value="Invia"></td> <td></td> </tr> </table> </blockquote> </form>
Il database è così configurato:
Nome del database: dbmonete.mdb
Nome Tabella: tabmonete
I campi della tabella sono i seguenti:
Id Contatore
valuta Testo
data Memo
dritto Testo
rovescio Testo
Il file upload.asp (quello di Baol) ce l'hai tu!
Il tutto funziona egregiamente. Non ti rimane che sostituire i nomi dei campi del database e all'interno del file sopra postato e il gioco è fatto.
Ciao
![]()

Rispondi quotando