Upload

[Kuilsera]

Salve,

ho una pagina prova.asp nel quale è presente un form.

Esempio:
<form method="post" action="prova.asp" enctype="multipart/form-data">
...
Titolo: <input type="text" maxlength="200" size="45" name="titolo_modp">
Allegato: <input type="file" name="file" size="33">
...
</form>

Premetto che ho messo nell'action il nome della pagina stessa, perchè all'inizio del file prova.asp ci sono dei controlli e dei richiami a delle procedure. In modo tale che effettuo tutto sempre sulla stessa pagina.

Da questo form devo effettuare l'upload del file e l'inserimento nel db.

Volevo utilizzare lo script "ASP Upload" scaricabile da html.it, visto che era Puro Asp e c'era la Progress Bar.
Ma come ovvio, la versione base è scarsa. E avevo dei problemi nell'individuare il nome del file, così che potevo inserirlo nel campo della tabella.

Ho quindi optato per utilizzare "Set Upload = Server.CreateObject("Persits.Upload.1")".
Ma utilizzando quest'ultimo non mi è possibile effettuare l'upload e l'inserimento direttamente dalla stessa pagina asp, richiamando al massimo una procedura. Questo perchè non mi vengono passati i parametri (Tale metodo accetta Set ftitolo = Upload.Form("titolo") e non i request("titolo")).
Quindi al momento ho dovuto fare l'upload e l'inserimento in un'altra pagina asp.

Spero di essere stato abbastanza chiaro.

Se qualcuno conosce qualche altro metodo per effettuare il tutto oppure sà come fare a individuare il nome del file con "ASP Upload", la prego di aiutarmi.

Grazie infinite, Kuilsera

[michele.santoro]

Lo strafamoso upload di Baol
pagina "prova_invio.asp"

<form name="form1" method="POST" enctype="multipart/form-data" action="prova_invio.asp?save=1">
<blockquote>
	<div align="center">
		<table border="0" width="550" id="table1">
			<tr>
				<td width="241">
				<p align="right"><font size="2" color="#000080" face="Verdana">
				Nome e Cognome</font></td>
				<td width="299" colspan="2"><font color="#000080" face="Verdana">
				<input name="nickname" id="titolo" size="40" style="float: right"></font></td>
			</tr>
			<tr>
				<td width="241">
				<p align="right">
				<font size="2" color="#000080" face="Verdana">Email</font></td>
				<td width="299" colspan="2"><font color="#000080" face="Verdana"> 
        <input name="email" size="40" style="float: right"></font></td>
			</tr>
			<tr>
				<td colspan="2">
				<p align="right">
				<font size="2" face="Verdana" color="#000080">Titolo del documento</font></td>
				<td width="299">
				<font color="#000080">
        <input name="oggetto" size="40" style="float: right"></font></td>
			</tr>
			<tr>
				<td colspan="2">
				<p align="right"><font size="2" color="#000080" face="Verdana">
				immagine</font></td>
				<td width="299">
				<font color="#000080" face="Verdana">
				<input name="img" type="file" id="img" size="27" style="float: right" ></font></td>
			</tr>
			<tr>
				<td colspan="3">
				<p align="center"><font face="Verdana" size="2" color="#000080">
				Messaggio</font>

				<textarea rows="11" name="msg" cols="62"></textarea></td>
			</tr>
			<tr>
				<td width="84%" colspan="3">
				<p align="center">
				<input type="submit" name="Submit" value="Invia"></td>
			</tr>
		</table>
	
</blockquote>
</form>
<%
	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "public/files" 'Impostazione del PERCORSO della cartella delle IMMAGINI
		oUpload.Load
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "img"
					FileName_img = 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/bacheca.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "Messaggi",Conn,3,3
		Rs.AddNew
'Rs.Insert

		Rs("nickname")	= oUpload.Form("nickname")
		Rs("email")		= oUpload.Form("email")
		Rs("oggetto")	= oUpload.Form("oggetto")
		Rs("msg")		= oUpload.Form("msg")
		
		Rs("img")	= FileName_img
		Rs.update
		Rs.Close
		Conn.Close
		Set Rs = Nothing
		Set Conn=Nothing				
		Set oUpload = Nothing
	End if
'response.redirect ("leggi.asp")

%>

Scaricati l'upload di Baol e metti il file ipload.asp nella stessa cartella di questa pagina.
L'upload dei file viene effettuato nella cartella "public/files"
Spero di aver ben capito cosa volevi.

[Kuilsera]

Ho provato con lo script di Baol, mettendo però l'inserimento prima del mio form.

Ma mi dà quest'errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

Come posso risolvere??

[michele.santoro]

Come sarebbe ... mettendo però l'inserimento prima del mio form.?
Fai vedere come l'hai inserito

[Kuilsera]

Sì, mettendo l'inserimento prima del form.

Dovrei aver risolto.

Grazie comunque, Kuilsera