Problema con inseirmento dati

[james81]

salve a tutti!
ragazzi ho un problemino...praticamente ho un'interfaccia per l'inserimento di un prodotto (utilizzo un DB access), il modulo per l'inserimento comprende una serie di caratteristiche,che possono essere scritte dall'utente e selezionate tramite delle caelle di riepilogo tra quelle già fornite.
ora l'inserimento a db avviene in maniera corretta, però alcuni valori vengono scritti nelle celle sbagliate, esempio il nome viene inserito nell'altezza, la selezione delle celle di riepilogo vengono scritte su campi dove bisognava invece scrivere....da che può dipendere??....mi domando...l'ordine delle dichiarazione delle variabili e tutto il resto centra qualcosa o posso dichiarare e inserire i valori senza seguire sempre la stessa scaletta??

[99eros9]

arete ?onati rmd'hepo c pannei rtmlo n è i

[james81]

[99eros9]

Era per farti capire che se tu non conosci la mia logica, non puoi presumere le mie intenzioni ed è la stessa cosa che tu pretendi da un database: la sintassi segue delle regole bene precise e ad ogni campo deve essere associato il relativo valore, quindi "la scaletta" va seguita sempre.

[james81]

ahh...ok...perchè non pensavo che se nel modulo compilo a,b,c,d,e e poi quando inserisco inserisco b,a,e,c,d cambiasse qualcosa...non mi era mai capitato,o forse non ci avev mai fatto caso

[99eros9]

Ma l'attenzione non va riposta nel modulo di inserimento, ma nella dichiarazione T-SQL.
Francamente non so come è stata studiata la tua applicazione, ma di sicuro sia che tu utilizzi SET o VALUES nella query, campi e valori debbono essere ordinati in modo da corrispondere.

[james81]

ho rimodificato i due files provando a dargli un verso...ma nulla......se magari qualche anima pia ha un pà di tempo da perdere può dargli un'cchio gli posso inviare i due files
copio comunque il files che riguarda l'inserimento








<%
Dim QSID, Cod_Old, Errore, imgproduttore, Tipologia, Garanzia, Home, Position, SQL, Gfotodemo, Gfotodemob, Gfotodemoc, Gfotodemod, Gfotodemoe, Gfotodemof, RS, STecnica, Link, caratt, carattb, carattc, Testocaratt, Testocarattb, Testocarattc, Volume, Peso, Codice, Prodotto, PDescrizione, GDescrizione, PFoto, GFoto, Gfotobig, CPrezzo, RPrezzo, PuntiSconto, IVA, GiacenzaInfinita, Giacenza, Prenotazione, Novita, Offerta, Spedizione, SpeseSpedizione, SCategoria, Categoria, Categorie, Correlati,n1,carico,marca,modello,hp,telaio,targa, immatricolazione,colore,valutazione,alimentazione, libretto,librettodove,complementare,complementared ove,cdp,cdpdove,etichetta,targhe,bollo,bollodove,c hiavi,chiavidove,radio,varie1
On Error Resume Next
QSID = Request.Form("ID")
Cod_Old = Request.Form("Cod_Old")
If Request.Form("Codice") = "" Then
Errore = Errore & "Codice prodotto
"
Else
Codice = Replace(Request.Form("Codice"), "'", "''")
End If
If Request.Form("Prodotto") = "" Then
Errore = Errore & "Nome prodotto
"
Else
Prodotto = Replace(Request.Form("Prodotto"), "'", "''")
End If
If Request.Form("Link") = "" Then
Else
Link = Replace(Request.Form("Link"), "'", "''")
End If
If Request.Form("caratt") = "" Then
Else
Caratt = Replace(Request.Form("caratt"), "'", "''")
End If
If Request.Form("carattb") = "" Then
Else
Carattb = Replace(Request.Form("carattb"), "'", "''")
End If
If Request.Form("carattc") = "" Then
Else
Carattc = Replace(Request.Form("carattc"), "'", "''")
End If
If Request.Form("STecnica") = "" Then
Else
STecnica = Replace(Request.Form("STecnica"), "'", "''")
End If
PDescrizione = Replace(Request.Form("PDescrizione"), "'", "''")
GDescrizione = Replace(Request.Form("GDescrizione"), "'", "''")
Garanzia = Replace(Request.Form("Garanzia"), "'", "''")
Testocaratt = Replace(Request.Form("Testocaratt"), "'", "''")
Testocarattb = Replace(Request.Form("Testocarattb"), "'", "''")
Testocarattc = Replace(Request.Form("Testocarattc"), "'", "''")
GDescrizione = FormattaDescrizione(GDescrizione)
PFoto = Replace(Request.Form("PFoto"), "'", "''")
GFoto = Replace(Request.Form("GFoto"), "'", "''")
GFotobig = Replace(Request.Form("GFotobig"), "'", "''")
Imgproduttore = Replace(Request.Form("Imgproduttore"), "'", "''")
Home = Replace(Request.Form("Home"), "'", "''")
Position = Replace(Request.Form("Position"),"'","''")
GFotodemo = Replace(Request.Form("GFotodemo"), "'", "''")
GFotodemob = Replace(Request.Form("GFotodemob"), "'", "''")
GFotodemoc = Replace(Request.Form("GFotodemoc"), "'", "''")
GFotodemod = Replace(Request.Form("GFotodemod"), "'", "''")
GFotodemoe = Replace(Request.Form("GFotodemoe"), "'", "''")
GFotodemof = Replace(Request.Form("GFotodemof"), "'", "''")
n1 = Replace(Request.Form("n1"), "'", "''")
carico = Replace(Request.Form("carico"), "'", "''")
marca = Replace(Request.Form("marca"), "'", "''")
modello = Replace(Request.Form("modello"), "'", "''")
hp = Replace(Request.Form("hp"), "'", "''")
telaio = Replace(Request.Form("telaio"), "'", "''")
targa = Replace(Request.Form("targa"), "'", "''")
immatricolazione = Replace(Request.Form("immatricolazione"), "'", "''")
colore = Replace(Request.Form("colore"), "'", "''")
valutazione = Replace(Request.Form("valutazione"), "'", "''")
alimentazione = Replace(Request.Form("alimentazione"), "'", "''")
libretto = Replace(Request.Form("libretto"), "'", "''")
librettodove = Replace(Request.Form("librettodove"), "'", "''")
complementare = Replace(Request.Form("complementare"), "'", "''")
complementaredove = Replace(Request.Form("complementaredove"), "'", "''")
cdp = Replace(Request.Form("cdp"), "'", "''")
cdpdove = Replace(Request.Form("cdpdove"), "'", "''")
etichetta = Replace(Request.Form("etichetta"), "'", "''")
targhe = Replace(Request.Form("targhe"), "'", "''")
bollo = Replace(Request.Form("bollo"), "'", "''")
chiavi = Replace(Request.Form("chiavi"), "'", "''")
chiavidove = Replace(Request.Form("chiavidove"), "'", "''")
radio = Replace(Request.Form("radio"), "'", "''")
varie1 = Replace(Request.Form("varie1"), "'", "''")
If Request.Form("CPrezzo") = "" OR IsNumeric(Request.Form("CPrezzo")) = False Or Instr(Request.Form("CPrezzo"), ".") > 0 Then
Errore = Errore & "Prezzo per clienti
"
Else
CPrezzo = FormattaPrezzoPerDB(Request.Form("CPrezzo"))
End If
If Request.Form("RPrezzo") = "" OR ISNumeric(Request.Form("RPrezzo")) = False Or Instr(Request.Form("RPrezzo"), ".") > 0 Then
Errore = Errore & "Prezzo per rivenditori
"
Else
RPrezzo = FormattaPrezzoPerDB(Request.Form("RPrezzo"))
End If
Spedizione = Request.Form("Volume")
If Request.Form("Volume") = "" OR IsNumeric(Request.Form("Volume")) = False Or Instr(Request.Form("Volume"), ".") > 0 Then
If LCase(Volume) = "true" Or Instr(Request.Form("Volume"), ".") > 0 Then
Errore = Errore & "Spese di spedizione
"
Else
Volume = "0"
End If
Else
Volume = FormattaPrezzoPerDB(Request.Form("Volume"))
End If
Spedizione = Request.Form("Peso")
If Request.Form("Peso") = "" OR IsNumeric(Request.Form("Peso")) = False Or Instr(Request.Form("Peso"), ".") > 0 Then
If LCase(Peso) = "true" Or Instr(Request.Form("Peso"), ".") > 0 Then
Errore = Errore & "Spese di spedizione
"
Else
Peso = "0"
End If
Else
Peso = FormattaPrezzoPerDB(Request.Form("Peso"))
End If
Spedizione = Request.Form("Spedizione")
If Request.Form("SpeseSpedizione") = "" OR IsNumeric(Request.Form("SpeseSpedizione")) = False Or Instr(Request.Form("SpeseSpedizione"), ".") > 0 Then
If LCase(Spedizione) = "true" Or Instr(Request.Form("SpeseSpedizione"), ".") > 0 Then
Errore = Errore & "Spese di spedizione
"
Else
SpeseSpedizione = "0"
End If
Else
SpeseSpedizione = FormattaPrezzoPerDB(Request.Form("SpeseSpedizione" ))
End If

Tipologia = Request.Form("Tipologia")
If Request.Form("PuntiSconto") = "" OR IsNumeric(Request.Form("PuntiSconto")) = False Or Instr(Request.Form("PuntiSconto"), ".") > 0 Then
Errore = Errore & "Punti sconto
"
Else
PuntiSconto = FormattaPrezzoPerDB(Request.Form("PuntiSconto"))
End If
GiacenzaInfinita = Request.Form("GiacenzaInfinita")
If IsNumeric(Request.Form("Giacenza")) = False And GiacenzaInfinita <> "true" Then
Errore = Errore & "Giacenza
"
Else
Giacenza = Request.Form("Giacenza")
End If
Offerta = Request.Form("Offerta")
Novita = Request.Form("Novita")
Prenotazione = Request.Form("Prenotazione")
If IsNumeric(Request.Form("IVA")) = False Then
Errore = Errore & "IVA
"
Else
IVA = Request.Form("IVA")
End If
Categorie = Request.Form("Categorie")
SCategoria = Mid(Categorie,1,InStr(Categorie, "-")-1)
Categoria = Mid(Categorie,InStr(Categorie, "-")+1)

If GiacenzaInfinita <> "true" Then GiacenzaInfinita = "False"
If Offerta <> "true" Then Offerta = "False"
If Novita <> "true" Then Novita = "False"
If Prenotazione <> "true" Then Prenotazione = "False"
If Spedizione <> "true" Then Spedizione = "False"
If Tipologia <> "true" Then Tipologia = "False"
If Home <> "true" Then Home = "False"

If Giacenza = "" Then Giacenza = "0"
If Volume = "" Then Volume = "0"
If Peso = "" Then Peso = "0"
If SpeseSpedizione = "" Then SpeseSpedizione = "0"
If PuntiSconto = "" Then PuntiSconto = "0"

If (QSID = "") Or (Cod_Old <> Codice) Then
SQL = " SELECT Codice FROM Prodotti WHERE Prodotti.Codice = '"& Codice &"' "
Set RS = Conn.Execute(SQL)
If Not RS.EOF Then
Errore = Errore & "Codice prodotto duplicato"
End If
End If
Correlati = Replace(Request.Form("Correlati"), " ", "")

[james81]

If Errore = "" Then
If QSID <> "" Then
SQL = "UPDATE Prodotti Set Codice = '" & Codice & "', Prodotto = '" & Prodotto & "', STecnica = '" & STecnica & "', Link = '" & Link & "', caratt = '" & caratt & "', carattb = '" & carattb & "', carattc = '" & carattc & "', Testocaratt = '" & Testocaratt & "', Testocarattb = '" & Testocarattb & "', Testocarattc = '" & Testocarattc & "', Volume = " & Volume & ", Peso = " & Peso & ", SCategoria = " & SCategoria & ", Categoria = " & Categoria & ", PDescrizione = '" & PDescrizione & "', GDescrizione = '" & GDescrizione & "', Garanzia = '" & Garanzia & "',PFoto = '" & PFoto & "', GFoto = '" & GFoto & "', GFotobig = '" & GFotobig & "', GFotodemo = '" & GFotodemo & "', GFotodemob = '" & GFotodemob & "', GFotodemoc = '" & GFotodemoc & "', GFotodemod = '" & GFotodemod & "', GFotodemoe = '" & GFotodemoe & "', GFotodemof = '" & GFotodemof & "', n1 = " & n1 & ", carico = " & carico & ", marca = " & marca & ", modello = " & modello & ", hp = " & hp & ", telaio = " & telaio & ", targa = " & targa & ", immatricolazione = " & immatricolazione & ", colore = " & colore & ", valutazione = " & valutazione & ", alimentazione = " & alimentazione & ", libretto = " & libretto & ", librettodove = " & librettodove & ", complementare = " & complementare & ", complementaredove = " & complementaredove & ", cdp = " & cdp & ", cdpdove = " & cdpdove & ", etichetta = " & etichetta & ", targhe = " & targhe & ", bollo = " & bollo & ", bollodove = " & bollodove & ", chiavi = " & chiavi & ", chiavidove = " & chiavidove & ", radio = " & radio & ", varie1 = " & varie1 & ", Imgproduttore = '" & Imgproduttore & "', CPrezzo = " & CPrezzo & ", RPrezzo = " & RPrezzo & ", IVA = " & IVA & ", Spedizione = " & Spedizione & ", SpeseSpedizione = " & SpeseSpedizione & ", Tipologia = " & Tipologia & ", PuntiSconto = " & PuntiSconto & ", GiacenzaInfinita = " & GiacenzaInfinita & ", Giacenza = " & Giacenza & ", Offerta = " & Offerta &", Novita = " & Novita &", Home = " & Home & ", Position = '" & Position & "', Prenotazione = " & Prenotazione & ",Correlati = '" & Correlati & "' WHERE ID = " & QSID
Else
SQL = "INSERT INTO Prodotti " & _
" (Codice, " & _
" Prodotto, " & _
" SCategoria, " & _
" Categoria, " & _
" PDescrizione, " & _
" GDescrizione, " & _
" PFoto, " & _
" GFoto, " & _
" CPrezzo, " & _
" RPrezzo, " & _
" IVA, " & _
" Spedizione, " & _
" SpeseSpedizione, " & _
" Tipologia, " & _
" PuntiSconto, " & _
" GiacenzaInfinita, " & _
" Giacenza, " & _
" Offerta, " & _
" Novita, " & _
" Garanzia, " & _
" Imgproduttore, " & _
" Home, " & _
" Position, " & _
" Volume, " & _
" Peso, " & _
" Correlati, " & _
" Prenotazione, " & _
" STecnica, " & _
" Link, " & _
" caratt, " & _
" carattb, " & _
" carattc, " & _
" Testocaratt, " & _
" Testocarattb, " & _
" Testocarattc, " & _
" Gfotobig, " & _
" Gfotodemo, " & _
" Gfotodemob, " & _
" Gfotodemoc, " & _
" Gfotodemod, " & _
" Gfotodemoe, " & _
" Gfotodemof, " & _
" n1 " & _
" carico " & _
" marca " & _
" modello " & _
" hp " & _
" telaio " & _
" targa " & _
" immatricolazione " & _
" colore,valutazione " & _
" alimentazione " & _
" libretto " & _
" librettodove " & _
" complementare " & _
" complementaredove " & _
" cdp " & _
" cdpdove " & _
" etichetta " & _
" targhe " & _
" bollo " & _
" bollodove " & _
" chiavi " & _
" chiavidove " & _
" radio " & _
" varie1 " & _
" Data) " & _
" VALUES " & _
" ('" & Codice & "', " & _
" '" & Prodotto & "', " & _
" "& SCategoria & ", " & _
" " & Categoria & ", " & _
" '" & PDescrizione & "', " & _
" '" & GDescrizione & "', " & _
" '" & PFoto & "', " & _
" '" & GFoto & "', " & _
" '" & CPrezzo & "', " & _
" '" & RPrezzo & "', " & _
" "& IVA & ", " & _
" " & Spedizione & ", " & _
" '" & SpeseSpedizione & "', " & _
" " & Tipologia & ", " & _
" '" & PuntiSconto & "', " & _
" " & GiacenzaInfinita & ", " & _
" " & Giacenza & ", " & _
" " & Offerta &", " & _
" " & Novita &", " & _
" '" & Garanzia & "', " & _
" '" & Imgproduttore & "', " & _
" " & Home & ", " & _
" '" & Position & "', " & _
" '" & Volume & "', " & _
" '" & Peso & "', " & _
" '" & Correlati & "', " & _
" " & Prenotazione & ", " & _
" '" & STecnica & "', " & _
" '" & Link & "', " & _
" '" & caratt & "', " & _
" '" & carattb & "', " & _
" '" & carattc & "', " & _
" '" & Testocaratt & "', " & _
" '" & Testocarattb & "', " & _
" '" & Testocarattc & "', " & _
" '" & GFotobig & "', " & _
" '" & GFotodemo & "', " & _
" '" & GFotodemob & "', " & _
" '" & GFotodemoc & "', " & _
" '" & GFotodemod & "', " & _
" '" & GFotodemoe & "', " & _
" '" & GFotodemof & "', " & _
" '" & n1 & "', " & _
" '" & carico & "', " & _
" '" & marca & "', " & _
" '" & modello & "', " & _
" '" & hp & "', " & _
" '" & telaio & "', " & _
" '" & targa & "', " & _
" '" & immatricolazione & "', " & _
" '" & colore & "', " & _
" '" & valutazione & "', " & _
" '" & alimentazione & "', " & _
" '" & libretto & "', " & _
" '" & librettodove & "', " & _
" '" & complementare & "', " & _
" '" & complementaredove & "', " & _
" '" & cdp & "', " & _
" '" & cdpdove & "', " & _
" '" & etichetta & "', " & _
" '" & targhe & "', " & _
" '" & bollo & "', " & _
" '" & bollodove & "', " & _
" '" & chiavi & "', " & _
" '" & chiavidove & "', " & _
" '" & radio & "', " & _
" '" & varie1 & "', " & _
" '" & DataToStr(Now()) & "')"

On Error Resume Next
End If
Set RS = Conn.Execute(SQL)
Set RS = Nothing
Conn.close
Set Conn = Nothing

If Errore = "" And Err = 0 Then
Response.Redirect "ok.asp"
Else
Errore = "Errore:
" & Err.Description
End If
Else
Response.Redirect "errore.asp?" & Errore
End If
%>