Buonasera, ho un form con due opzioni, un salva e l'altra inserisci immagine. Nell'input salva ho una funzione richiamata dal' onclick che tramite un update aggiorna il database. L'update statement funziona, poichè ho provato senza funzione e funziona, ma con la funzione mi da Syntax error in UPDATE statement. Non riesco davvero a capire cosa modificare.
Form:
<div class="row">
<div class="small-12 large-centered columns">
<input type="submit" name="Salva" value="SALVA" class="button radius" onclick="<%modifica_outlet ()%>">
<input type="submit" name="Salva" value="INSERISCI IMMAGINE" class="button radius">
</div>
</div>
Funzione:
<%
Function modifica_outlet ()
Dim ConnACCESS
Set ConnACCESS = Apri_DB()
Response.CharSet = "UTF-8"
Response.CodePage = 65001
par_id = Request.form("id")
if Request.form("ATTIVO") = "1" then
val_attivo = "1"
else
val_attivo = "0"
end if
if request.form("PREZZO_SCONTATO") = "" then
prezzo_scontato = "0"
else
prezzo_scontato = request.form("PREZZO_SCONTATO")
end if
str = "UPDATE OUTLET SET ORDINE = " & Request.form("ORDINE") & ", CATEGORIA = '" & replace(Request.form("CATEGORIA"),"'","''") & "', TITOLO = '" & replace(Request.form("TITOLO"),"'","''") & "', DESCR_ITA = '" & replace(Request.form("DESCR_ITA"),"'","''") & "', DESCR_ENG = '" & replace(Request.form("DESCR_ENG"),"'","''") & "', DESCR_RUS = '" & replace(Request.form("DESCR_RUS"),"'","''") & "', DESCR_DET = '" & replace(Request.form("DESCR_DET"),"'","''") & "', DESCR_ESP = '" & replace(Request.form("DESCR_ESP"),"'","''") & "', NUM_FOTO = '" & replace(Request.form("NUM_FOTO"),"'","''") & "', FOTO1 = '" & replace(Request.form("FOTO1"),"'","''") & "', FOTO2 = '" & replace(Request.form("FOTO2"),"'","''") & "', FOTO3 = '" & replace(Request.form("FOTO3"),"'","''") & "', FOTO4 = '" & replace(Request.form("FOTO4"),"'","''") & "', PREZZO = '" & replace(Request.form("PREZZO"),"'","''") & "', PREZZO_SCONTATO = '" & prezzo_scontato & "', ATTIVO = " & val_attivo & " WHERE ID = " & par_id & " "
server.CreateObject("ADODB.connection")
ConnACCESS.Execute( str )
End Function
%>