Caricamento immagini e insert in database del commento

[RobertoBel]

salve, vorrei caricare sul server a ruba delle immagini ( lo script funziona già ) e nello stesso tempo salvare su un database access il commento alle immagini e il loro percorso, vi posto il codice della maschera :

<table align="center"><tr><td>[img]img/insegnarid.gif[/img]</td></tr></table>

	<FORM NAME="MyForm" METHOD="POST" ENCTYPE="multipart/form-data"   action="caricadb_img.asp">	
	<table bgcolor="#2A1F55" align="center" border="2" width="50%"><tr><td>
	<table  bgcolor="#D3A55F"align="center" border="0" width="100%">
  <tr>
    <td width="100%" colspan="3">
      <h2 align="center"><font  color="#2A1FFF">CARICAMENTO FOTOGRAFIE</font></h2></td>
  </tr>
  <tr>
    <td width="31%"><font color="#2A1FFF">TITOLO</font></td>
    <td width="69%" colspan="2"><input  type="text" size="35"name="titoloimg"></td>
  </tr>
  <tr>
    <td width="31%"><font color="#2A1FFF">DESCRIZIONE</font></td>
    <td width="69%" colspan="2"><TEXTAREA NAME="descimg" COLS=35 ROWS=3></TEXTAREA></td>
  </tr>
  <tr>
    <td width="31%"><font color="#2A1FFF">CERCA FOTOGRAFIA</font></td>
    <td width="69%" colspan="2"><INPUT TYPE=FILE SIZE=40 NAME="FILE1"></td>
  </tr>
  <tr>
    <td width="31%"></td>
    <td width="20%"><INPUT TYPE=SUBMIT VALUE=" CARICA "></td>
    <td width="49%"></td>
  </tr>
</table>
</td></tr></table>	
	</FORM>

e questo è il codice che riceve i dati della maschera :

strdesc = Trim( Lcase(request("descimg"))) 
 if len(strdesc) = 0 then  
 %>
 <META HTTP-EQUIV="Refresh" CONTENT="1; url=allerta.htm">
 <%
else

strtit = Trim( Lcase(request("titoloimg"))) 
 if len(strtit) = 0 then  
 %>
 <META HTTP-EQUIV="Refresh" CONTENT="1; url=allerta.htm">
 <%
else

Set Upload = Server.CreateObject("Persits.Upload.1")
'Upload.SetMaxSize 50000, True

percorso=Server.MapPath("/public")
On Error Resume Next


Upload.Save(percorso)



Set File = Upload.Files("FILE1")
filename=File.FileName
Set Jpeg = Server.CreateObject("Persits.Jpeg")


'indirizzo = percorso & "/" & filename

indirizzo = "/public/" & filename


'creo la connessione, il recordset e la query di connessione
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Pathimg 
Conn.Open

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "INSERT INTO eventi (titolo,descrizioneimg,percorso) VALUES ('" & strtit & "', '" & strdesc & "', '" & indirizzo & "')", Conn, 2,3



Conn.Close
Set Conn=Nothing 
Rs.close

end if
end if

l'errore che mi da è che non riceve i dati di titolo e descrizione, potete aiutarmi,

saluti Roberto

[Roby_72]

Devi usare Upload.Form() per recuperare i campi provenienti da un form con multipart/form-data.
Quindi prima istanzi l'oggetto e poi recuperi i dati del form.

Roby

[RobertoBel]

ciao, quindi devo impostare gli input cosi :

<input  type="file" size="35"name="titoloimg">

e recupero i dati con :

Set strtit = Upload.Files("titoloimg")

però dopo come faccio a trasformare il tutto in una stringa per gestire una query
sul tipo:

Rs.Open "INSERT INTO tbimg (titolo,descrizioneimg,percorso) VALUES ('" & Cstr(strtit) & "', '" & Cstr(strdesc) & "', '" & Cstr(indirizzo) & "')", Conn, 2,3

puoi aiutarmi

saluti Roberto

[Roby_72]

http://www.aspupload.com/manual_simple.html

Il secondo esempio...

Roby

[RobertoBel]

ciao ho seguito il tuo esempio ed in effetti riesco a raccogliere anche la descrizione ( ho verificato con un Response.write ), ora il problema è che non riesco ha registrare le stringhe nel database, anche se non mi da nessun errore e alla fine sce "caricamento effettuato, ma mi carica solo l'immagine e non mi scrive nulla nel database, ti passo il codice, puoi aiutarmi.

saluti Roberto

P.S.
oltre a " RS.Open, Conn, 2, 3 ", ho provato anche con " RS.Open, Conn, 1, 3 "

<%


Set Upload = Server.CreateObject("Persits.Upload.1")

percorso=Server.MapPath("/public")
On Error Resume Next


Upload.Save(percorso)



Set File = Upload.Files("FILE1")
filename=File.FileName
Set Jpeg = Server.CreateObject("Persits.Jpeg")


indirizzo = percorso & "/" & filename


'creo la connessione, il recordset e la query di connessione
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source= mdb-database/loadimage.mdb" 
Set Rs = Server.CreateObject("ADODB.Recordset")
RS.Open, Conn, 2, 3 

Rs.AddNew

Rs("titolo") = Upload.Form("titoloimg")
Rs("descrizioneimg") = Upload.Form("descimg")
Rs("percorso") = indirizzo

Rs.Update

Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn=Nothing 

%>

<table align="center" width="50%">
 <tr>
 <td><h2 align="center"><font color="#FF0000" >CARICAMENTO EFFETTUATO</font></h2></td>
 </tr> 
 </table>

[RobertoBel]

ciao ho scoperto che tutto loscript relativo alla connessione non lo legge, ho provato anche a spostarlo all'inizio, ma non cambia nulla, l'unico errore che mi ha dato una volta è :
" ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/caricadb_img.asp, line 18 "

saluti Roberto