checkbox

[Partisan75]

Ciao a tutti, sto impazzando su questa cosa semplice semplice:
Devo inserire una checkbox per inserire un valore nel db (vero o falso)

Faccio così:

<form action="update.asp?method=Add" method="POST"> 

Nome spesa di spedizione: <input type="text" name="nome" size="25"> 


CEE: <input type="checkbox" name="CEE" value=""> 

<input type="submit" value="Inserisci Spesa"> 
</form>

e poi ...

<%
Dim Method, CleanUp2

Method = Request.QueryString("method")

Select Case Method
  Case "Add"
    Add(Conn)
  Case "Edit"
    Edit(Conn)
  Case "Delete"
    Delete(Conn)
End Select

….



Sub Add(Conn)
Dim nome, Sspese, CEE, SQL

nome = Replace(Trim(Request.Form("nome")), "'", "''")
Sspese = Replace(Trim(Request.Form("Sspese")), "'", "''")
CEE = request.form("CEE") 


  If CEE <> "true" Then CEE = "False"
  If nome = "" Or Sspese = "" Or CEE = ""  Then Response.Redirect "spese.asp"

  SQL = "Insert Into spese (CEE, nome, Sspese) Values('"&CEE&"', '"&nome&"', '"&Sspese&"')"

  Conn.Execute(SQL)

 
  
  Response.Redirect "spese.asp"

End Sub

ma mi restituisce sempre questo codice:

Microsoft JET Database Engine error '80040e07'

Tipi di dati non corrispondenti nell'espressione criterio.

/ing/anm/update.asp, riga 42


Grazie mille in anticipo

F

[supergeniux]

Devi dare un valore al checkbox.

<form action="update.asp?method=Add" method="POST"> 

Nome spesa di spedizione: <input type="text" name="nome" size="25"> 


CEE: <input type="checkbox" name="CEE" value="true"> 

<input type="submit" value="Inserisci Spesa"> 
</form>

E' buona norma fare il replace di tutte le variabili che vanno inserite nel db.

[Partisan75]

Grazie mille,
allora ho messo il valore ture, ma mi chiedo non deve dipendere dal flag messo nella checkbox?
oppure funziona così: se fleggato allora TRUE?

<tr><td width="46%">
<input type="checkbox" name="CEE" value="true">

e poi ho fatto il replace:

CEE = Replace(Trim(Request.Form("CEE"), "'", "''") 

If CEE <> "true" Then CEE = "False" 

SQL = "Insert Into spese (CEE, nome, Sspese) Values('"&CEE&"', '"&nome&"', '"&Sspese&"')"

e questo l'errore:


Errore di compilazione di Microsoft VBScript error '800a03ee'

Previsto ')'

/ing/anm/update.asp, riga 35

CEE = Replace(Trim(Request.Form("CEE"), "'", "''")


Grazie ancora
F

[cavicchiandrea]

CEE = Replace(Trim(Request.Form("CEE"), "'", "''"))

If CEE <> True Then CEE = False 

A) manca cava una parentesi finale
B) True/False sono valori boleani non stirnghe pertanto non vanno tra le virgolette

[br1]

Originariamente inviato da cavicchiandrea

CEE = Replace(Trim(Request.Form("CEE"), "'", "''"))

If CEE <> True Then CEE = False 

A) manca cava una parentesi finale
B) True/False sono valori boleani non stirnghe pertanto non vanno tra le virgolette

Manca quella di chiusura del Trim, non quella finale

[cavicchiandrea]

Originariamente inviato da br1
Manca quella di chiusura del Trim, non quella finale

Vero Bruno, la fretta grazie
CEE = Replace(Trim(Request.Form("CEE")), "'", "''")
che tra l'altro non serve a nulla eseguire tutto per un valore boleano