Upload dati + file a database..

[ITANIUM]

Salve a tutti..

Sto costruendo il mio sito, ancora sono lontano perchè non sono bravo in asp.
Ho fatto la pagina degli articoli con con il form titolo, testo, autore e una foto in questultimo scrivo manualmente il link alla foto, e poi faccio l'upload con uno script che ho trovato su Html.it

Non esiste uno scrip gia fatto o una guida che mi dica come posso fare per caricare il link nel database e la foto nella cartella...

[ITANIUM]

conviene lasciarlo separato o è possibile fare tutto in una pagina...

[dragonero74]

Originariamente inviato da ITANIUM


conviene lasciarlo separato o è possibile fare tutto in una pagina...

Se stai usando l'upload di Baol il file Upload_Databse.asp funziona benissimo. Ricordati di mettere il tuo database e accertarti che la cartella (in questo caso "files") abbia i permessi di scrittura. Puoi fare anche due pagine separate, una per il form con action alla pagina in questione o metterle insieme. Io le ho usate separate e vanno benissimo. Baol Santo subito

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("news.mdb"),"SELECT Top 1 * FROM news"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "files\"
.Load
.MoveFirst
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "il file " & .GetFileName &" è stato salvato 
"
			'Inserimento dei valori
			.Database.Fields("Titolo") = .Form("Titolo")
			.Database.Fields("Percorso") = .GetCompletePathFile
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing
%>

[dragonero74]

Guarda questo 3D, ho appena inserito lo script che uso io completo di form... nel codice posso caricare fino a 3 immagini, ma è semplice da capire per caricarne una sola...
http://forum.html.it/forum/showthrea...readid=1356841

Ciao

[ITANIUM]

non riesco a far andare il collegamento col db...
non c'è in giro un sempio funzionante che si collega al db

[dragonero74]

Originariamente inviato da ITANIUM
non riesco a far andare il collegamento col db...
non c'è in giro un sempio funzionante che si collega al db

Che errore ti da? Il database in che percorso si trova?
Posta il codice, vediamo di aiutarti meglio.

[ITANIUM]

secondo me è la connessione al db acces.
questo è l'errore che mi da..

ADODB.Recordset (0x800A0BB9) 

[dragonero74]

Originariamente inviato da ITANIUM
secondo me è la connessione al db acces.
questo è l'errore che mi da..

ADODB.Recordset (0x800A0BB9) 

E' un pò pochino, il codice?

[ITANIUM]

ma è questo l'errore
che da explorer
comunque il codice è questo:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.charset="utf-8"%>


<%
Set rsMarche = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM Marche ORDER By Marche Asc"
rsMarche.Open sql, Conn, 3, 3
%>
<%
Set rsAlimentazioni = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM Alimentazioni ORDER By Alimentazioni Asc"
rsAlimentazioni.Open sql, Conn, 3, 3
%>
<%
Set rsCategorie = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM Categorie ORDER By Categorie Asc"
rsCategorie.Open sql, Conn, 3, 3
%>
<%
Set rsStati = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM Stati ORDER By Stati Asc"
rsStati.Open sql, Conn, 3, 3
%>
<%
	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "files\" 'Impostazione del percorso
		oUpload.Load
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "img"
					FileName_img = oUpload.GetFileName()
				Case "img1"
					FileName_img1 = oUpload.GetFileName()
				Case "img2"
					FileName_img2 = 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/solaut.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "Automobili",Conn,3,3
		Rs.AddNew
		Rs("IdMarche")	= oUpload.Form("Marche")
		Rs("IdAlimentazioni")		= oUpload.Form("Alimentazioni")
		Rs("IdCategorie")		= oUpload.Form("Categorie")
		Rs("IdStati")		= oUpload.Form("Stati")
		Rs("Modello")		= oUpload.Form("Modello")
		Rs("Immatricolazione")		= oUpload.Form("Immatricolazione")
		Rs("Prezzo")		= oUpload.Form("Prezzo")
		Rs("Km")		= oUpload.Form("Km")
		Rs("Descrizione")		= oUpload.Form("Descrizione")
		Rs("img")	= FileName_img
		Rs("img1")	= FileName_img1 
		Rs("img2")	= FileName_img2
		Rs.update
		Rs.Close
		Set Rs = Nothing
	End if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

<title>Gestione</title>
</head>
<body>

<FORM ACTION="?save=1" METHOD="Post" enctype="multipart/form-data">
<table width="80%" border="1" align="center">
      <tr>
        <td colspan="2" align="center" class="big">Inserimento Auto</td>
      </tr>
      <tr>
        <td width="50%"> </td>
        <td width="50%"> </td>
      </tr>
      <tr>
     
        <td>Marca: </td>
        <td><input type="text" name="marca" id="marca"></td>
    </tr>
      <tr>
        <td>Alimentazione:</td>
        <td><input type="text" name="alimentazione" id="alimentazione"></td>
      </tr>
      <tr>
        <td>Categoria:</td>
        <td><input type="text" name="categoria" id="categoria"></td>
      </tr>
      <tr>
        <td>Stato:</td>
        <td><input type="text" name="stato" id="stato"></td>
      </tr>
      <tr>
        <td>Modello:</td>
        <td><label>
          <input type="text" name="Modello" id="Modello">
        </label></td>
      </tr>
      <tr>
        <td>Immatricolazione:</td>
        <td><label>
          <input type="text" name="Immatricolazione" id="Immatricolazione">
        </label></td>
      </tr>
      <tr>
        <td>Prezzo:</td>
        <td><label>
          <input type="text" name="Prezzo" id="Prezzo">
        </label></td>
      </tr>
      <tr>
        <td>Chilometri:</td>
        <td><label>
          <input type="text" name="Km" id="Km">
        </label></td>
      </tr>
      <tr>
        <td>Immagine 1:</td>
        <td><input type="file" name="img" /></td>
      </tr>
      <tr>
        <td>Immagine 2:</td>
        <td><input type="file" name="img1" /></td>
      </tr>
      <tr>
        <td> </td>
        <td> </td>
      </tr>
      <tr>
        <td colspan="2" align="center"><INPUT NAME="Enter" TYPE="Submit" value="Inserisci"></td>
      </tr>
      <tr>
        <td> </td>
        <td> </td>
      </tr>
      <tr>
        <td colspan="2" align="center">Amministrazione</td>
      </tr>
    </table>
</FORM>


</body>
</html>
<%

		
rsMarche.Close
Set rsMarche = Nothing
rsAlimentazioni.Close
Set rsAlimentazioni = Nothing
rsCategorie.Close
Set rsCategorie = Nothing
rsStati.Close
Set rsStati = Nothing
Conn.Close

		Set Conn=Nothing				
		Set oUpload = Nothing
%>

Io non devo prendere dati da un database (marca, cat, aliment.) scrivo tutto a mano serve soltanto da inserimento..
come devo fare...
non uso connessione sql... non lo so fare..

[dragonero74]

Originariamente inviato da ITANIUM
ma è questo l'errore
che da explorer
comunque il codice è questo:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.charset="utf-8"%>


<%
Set rsMarche = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM Marche ORDER By Marche Asc"
rsMarche.Open sql, Conn, 3, 3
%>
<%
Set rsAlimentazioni = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM Alimentazioni ORDER By Alimentazioni Asc"
rsAlimentazioni.Open sql, Conn, 3, 3
%>
<%
Set rsCategorie = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM Categorie ORDER By Categorie Asc"
rsCategorie.Open sql, Conn, 3, 3
%>
<%
Set rsStati = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM Stati ORDER By Stati Asc"
rsStati.Open sql, Conn, 3, 3
%>
<%
	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "files\" 'Impostazione del percorso
		oUpload.Load
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "img"
					FileName_img = oUpload.GetFileName()
				Case "img1"
					FileName_img1 = oUpload.GetFileName()
				Case "img2"
					FileName_img2 = 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/solaut.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "Automobili",Conn,3,3
		Rs.AddNew
		Rs("IdMarche")	= oUpload.Form("Marche")
		Rs("IdAlimentazioni")		= oUpload.Form("Alimentazioni")
		Rs("IdCategorie")		= oUpload.Form("Categorie")
		Rs("IdStati")		= oUpload.Form("Stati")
		Rs("Modello")		= oUpload.Form("Modello")
		Rs("Immatricolazione")		= oUpload.Form("Immatricolazione")
		Rs("Prezzo")		= oUpload.Form("Prezzo")
		Rs("Km")		= oUpload.Form("Km")
		Rs("Descrizione")		= oUpload.Form("Descrizione")
		Rs("img")	= FileName_img
		Rs("img1")	= FileName_img1 
		Rs("img2")	= FileName_img2
		Rs.update
		Rs.Close
		Set Rs = Nothing
	End if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

<title>Gestione</title>
</head>
<body>

<FORM ACTION="?save=1" METHOD="Post" enctype="multipart/form-data">
<table width="80%" border="1" align="center">
      <tr>
        <td colspan="2" align="center" class="big">Inserimento Auto</td>
      </tr>
      <tr>
        <td width="50%"> </td>
        <td width="50%"> </td>
      </tr>
      <tr>
     
        <td>Marca: </td>
        <td><input type="text" name="marca" id="marca"></td>
    </tr>
      <tr>
        <td>Alimentazione:</td>
        <td><input type="text" name="alimentazione" id="alimentazione"></td>
      </tr>
      <tr>
        <td>Categoria:</td>
        <td><input type="text" name="categoria" id="categoria"></td>
      </tr>
      <tr>
        <td>Stato:</td>
        <td><input type="text" name="stato" id="stato"></td>
      </tr>
      <tr>
        <td>Modello:</td>
        <td><label>
          <input type="text" name="Modello" id="Modello">
        </label></td>
      </tr>
      <tr>
        <td>Immatricolazione:</td>
        <td><label>
          <input type="text" name="Immatricolazione" id="Immatricolazione">
        </label></td>
      </tr>
      <tr>
        <td>Prezzo:</td>
        <td><label>
          <input type="text" name="Prezzo" id="Prezzo">
        </label></td>
      </tr>
      <tr>
        <td>Chilometri:</td>
        <td><label>
          <input type="text" name="Km" id="Km">
        </label></td>
      </tr>
      <tr>
        <td>Immagine 1:</td>
        <td><input type="file" name="img" /></td>
      </tr>
      <tr>
        <td>Immagine 2:</td>
        <td><input type="file" name="img1" /></td>
      </tr>
      <tr>
        <td> </td>
        <td> </td>
      </tr>
      <tr>
        <td colspan="2" align="center"><INPUT NAME="Enter" TYPE="Submit" value="Inserisci"></td>
      </tr>
      <tr>
        <td> </td>
        <td> </td>
      </tr>
      <tr>
        <td colspan="2" align="center">Amministrazione</td>
      </tr>
    </table>
</FORM>


</body>
</html>
<%

		
rsMarche.Close
Set rsMarche = Nothing
rsAlimentazioni.Close
Set rsAlimentazioni = Nothing
rsCategorie.Close
Set rsCategorie = Nothing
rsStati.Close
Set rsStati = Nothing
Conn.Close

		Set Conn=Nothing				
		Set oUpload = Nothing
%>

Io non devo prendere dati da un database (marca, cat, aliment.) scrivo tutto a mano serve soltanto da inserimento..
come devo fare...
non uso connessione sql... non lo so fare..

Questo codice, che poi sarebbe quello che avevo postato io, senza le modifiche che hai fatto, funziona alla perfezione.
L'errore che ti da è sul recordset che crei, probabilmente perchè non riesce a trovare il database.
Ovviamente non lo troverà perchè potrebbe essere errato il file di connessione che è incluso in testa al documento.
Se ti serve da inserimento questo va benissimo, le quattro cose che trovi cioè, alimentazioni, marche, ecc. servivano a me per poter prendere in automatico dei dati ed inserirli nelle caselle ad elenco per poi reinserirle in un database.

Se devi soltanto inserire i dati in un database, modifica i campi per quelli che ti servono, ad esempio: se ti serve di inserire "Nome, Cognome, Telefono" metti i dati che ti interessano, ma chiama i campi di testo nel modo corretto e soprattutto nel database chiama le colonne nel modo giusto. Es: Se nel form hai Nome, Cognome, Telefono nel database ci dovranno essere Nome, Cognome, Telefono (possono anche essere diversi, ma devi ricordarti bene come li chiami per far si che il database inserisca i dati)

Se non sai fare la connessione sql con l'oggetto ado, ti rimando a leggere un pò qui http://asp.html.it/guide/lezione/197...cess-with-ado/

Ciao