buongiorno,
grazie al vs aiuto sono riuscito a costruire una pagina html dove inserisco alcuni dati e una immagine, ed il file elabora.asp che carica nella cartella remota il file, scrivendo i dati ed il percorso in un db.
Mi sono reso conto però che inserire un solo file può non essere sufficiente, sarebbe preferibile averne almeno 2. Ho cercato ma onestamente non ho trovato qualche cosa che mi consenta di modificare quanto ho già fatto:
vi posto i due file, sperando che qualcuno mi possa aiutare
grazie
File form.html, già modificato con 2 caselle per l'inserimento del file da uplodare:
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Titolo</title>
</head>
<body>
<form name="form1" method="post" enctype="multipart/form-data"
action="elabora_form.asp">
<blockquote>
<div align="center">
<table border="0" width="90%" id="table1">
<tr>
<td>
<p align="left">
<font size="2" color="#000"
face="Verdana">
Titolo
</font>
<font color="#000"
face="Verdana">
<input name="titolo"
type="text" id="titolo" size="20" />
</font>
</td>
</tr>
<tr>
<td> <font size="2"
color="#000" face="Verdana">pdf
</font>
<input name="pdf"
type="file" id="pdf" size="20" ></td>
</tr>
<tr>
<td>
<p align="left">
<font size="2" color="#000"
face="Verdana">
Titolo
</font>
<font color="#000"
face="Verdana">
<input name="titolo1"
type="text" id="titolo1" size="20" />
</font>
</tr>
<tr>
<td> <font size="2"
color="#000" face="Verdana">pdf
</font>
<input name="pdf1"
type="file" id="pdf1" size="20" ></td>
</tr>
<tr>
<td>
<p align="left">
<input type="submit" name="Submit"
value="Invia"></td>
</tr>
</table>
</blockquote>
</form>
</body>
</html>
mentre il file elabora_form.asp
</head>
<body>
</p>
<%
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "/public" 'Impostazione del percorso
oUpload.Load
oUpload.Save()
FileName_immagine = oUpload.GetFileName()
set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("/mdb-database/pragma1.mdb")
conn.Open DSNtemp
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open "ricerche",Conn,3,3
Rs.AddNew
Rs("titolo") = oUpload.Form("titolo")
Rs("pdf") = "/public/" & FileName_immagine
Rs.update
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn=Nothing
Set oUpload = Nothing
response.Write "il file " & FileName_immagine & " è stato salvato
"
%>
</PRE></DIV><SPAN class=norm>
</SPAN>
come lo debbo integrare?
Nel DB ho inserito altri due campi: titolo1 e pdf1,
grazie a tutti
Rispondi quotando
