mancato inserimento database

[arrows]

cosa ha questa pagina che non va?

<%
dim feed
feed=request.querystring("feed")
if feed then
dim tipo, lingua, prodotto, descrizione

lingua=request.form("lingua")
tipo=request.form("tipo")
prodotto=request.form("prodotto")
descrizione=request.form("descrizione")
if len(descrizione)<256 then

Set objConn = Server.CreateObject("ADODB.Connection")
dbconnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/mdb-database/news.mdb")
objConn.Open dbconnection

select case lingua
case italiano



Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute(SQL)

SQL = "INSERT INTO elencoita (tipo, prodotto, descrizione)"
SQL = SQL&"VALUES('"&tipo&"','"&prodotto&"','"&descrizione&"')"

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing


case tedesco


Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute(SQL)


SQL = "INSERT INTO elencoted (tipo, prodotto, descrizione)"
SQL = SQL&"VALUES('"&tipo&"','"&prodotto&"','"&descrizione&"')"

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing


case inglese


Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute(SQL)

SQL = "INSERT INTO elencoeng (tipo, prodotto, descrizione)"
SQL = SQL&"VALUES('"&tipo&"','"&prodotto&"','"&descrizione&"')"

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing

end select

response.write("prodotto aggiunto al database")


else
response.write("lunghezza del campo descrizione eccessiva")
end if

else
%>
<form method="POST" action="prodotti.asp?feed=TRUE">
  


  <select size="1" name="lingua">
  <option>italiano</option>
  <option>tedesco</option>
  <option>inglese</option>
  </select></p>
  


  <select size="1" name="tipo">
  <option>rossi</option>
  <option>bianchi</option>
  <option>dessert</option>
  <option>spumanti</option>
  <option>altro</option>
  </select></p>
  

<input type="text" name="prodotto" size="20"></p>
  

<textarea rows="10" name="descrizione" cols="43"></textarea></p>
  

</p>
  

</p>
  

</p>
  

<input type="submit" value="Invia" ><input type="reset" value="Reimposta" ></p>
</form>

<%end if%>

a me non da nessun tipo di errore, xò non aggiunge neanche il record al database
boooooh

[Roby_72]

bastava rendere dinamico il nome della tabella in base alla lingua ed avere un listato più corto della metà almeno...
Verifica cosa contenga la variabile "lingua".

Roby

[arrows]

dopo ci provo...cmq la variabile lingua può avere 3 valori:italiano, tedesco, inglese.m serve perchè il database ha 3 tabelle.

[Roby_72]

Questo era chiaro ma devi verificare se uno di quei tre valori li assuma!

Roby

[arrows]

se non ho capito male:
ho fatto un response.write request("lingua")
al posto di tutto, e mi restituisce ciò che avevo inserito

[Roby_72]

Ahhhhhhhhhhh hai eseguito le query prima di crearle... fai un uso eccessivo di copia/incolla...
Inoltre il recordset non ti occorre. Ecco un esempio corretto:

SQL = "INSERT INTO elencoita (tipo, prodotto, descrizione)"
SQL = SQL&"VALUES('"&tipo&"','"&prodotto&"','"&descrizione&"')"
set objRs = objConn.Execute(SQL)

La connessione chiudila prima della riga response.write("prodotto aggiunto al database")

objConn.Close
Set objConn = Nothing
response.write("prodotto aggiunto al database")

Dimenticavo: occhio ai replace. Se i campi testo contengono degli apici la query va in errore se non li raddoppi!

Roby

[arrows]

che vergogna....
cmq riguardo a quel discorso del nome dinamico dovrei fare come?

SQL = "INSERT INTO 'qui cosa va?(tipo, prodotto, descrizione)"
SQL = SQL&"VALUES('"&tipo&"','"&prodotto&"','"&descrizione&"')"

grazie ancora

[Roby_72]

lingua2 = left(lingua,3)
SQL = "INSERT INTO elenco"& lingua2 &" (tipo, prodotto, descrizione)"
SQL = SQL&"VALUES('"&tipo&"','"&prodotto&"','"&descrizione&"')"
set objRs = objConn.Execute(SQL)

E così ne metti una per tutte.

Roby

[arrows]

ora è cosi:

<%
dim feed
feed=request.querystring("feed")
if feed then
dim tipo, lingua, prodotto, descrizione, lingua2

lingua=request.form("lingua")
tipo=request.form("tipo")
prodotto=request.form("prodotto")
descrizione=request.form("descrizione")
if len(descrizione)<256 then



Set objConn = Server.CreateObject("ADODB.Connection")
dbconnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/mdb-database/news.mdb")
objConn.Open dbconnection



lingua2 = left(lingua,3)
SQL = "INSERT INTO elenco"& lingua2 &" (tipo, prodotto, descrizione)"
SQL = SQL&"VALUES('"&tipo&"','"&prodotto&"','"&descrizione&"')"
set objRs = objConn.Execute(SQL)


objConn.Close
Set objConn = Nothing



response.write("prodotto aggiunto al database")


else
response.write("lunghezza del campo descrizione eccessiva")
end if

else
%>

ma non funziona lo stesso.mi dice

 
tipo di errore:
Microsoft JET Database Engine (0x80040E14)
Errore di sintassi (operatore mancante) nell'espressione della query ''invecchiamento per almeno 2 anni in fusti di rovere. Stappare almeno un'ora prima. Temperatura di servizio 20/22°')'.
/news/prodotti.asp, line 35

[Roby_72]

Stampati questa e guarda cosa ti restituisce:

lingua2 = left(lingua,3)
SQL = "INSERT INTO elenco"& lingua2 &" (tipo, prodotto, descrizione) "
SQL = SQL&"VALUES ('"&tipo&"','"&prodotto&"','"&descrizione&"')"
response.write SQL:response.end
set objRs = objConn.Execute(SQL)

Roby