Valid - Input - checked

**kemin** · 19-01-2005, 02:13

cosa devo aggiungere a questo codice per far in modo ke appena seleziono la casellina di imput (o deseleziono) il codice mi mette automaticamente True (o False) nel database in cui ho inserito una colonna di tipo si/no di nome aRead?

codice:

<%
dim intCodice
intCodice = request("Id")
if intCodice<>"" then
%>
<HTML>
<HEAD>
<TITLE> Modifica Un Libro Immesso</TITLE>
</HEAD>
<BODY>
<%
dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("libreria.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM libri WHERE Id="&intCodice
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>
<FORM METHOD=POST ACTION="modifica3.asp?Id=<%=rs(0)%>">
<TABLE>
<TR>
<TD>Titolo</TD>
<TD><INPUT TYPE="text" NAME="titolo" value="<%=rs(1)%>"></TD>
</TR>
<TR>
<TD>Autore</TD>
<TD><INPUT TYPE="text" NAME="autore" value="<%=rs(2)%>"></TD>
</TR>
<TR>
<TD>Genere</TD>
<TD><INPUT TYPE="text" NAME="genere" value="<%=rs(3)%>"></TD>
</TR>
<TR>
<TD>Letto</TD>
<TD>
    <div align="left">

<input <%If (CStr("aRead") = CStr("True")) Then Response.Write("checked") : Response.Write("")%> type="checkbox" name="aRead" value="">
</div></TD></TR>
<TR>
<TD><INPUT TYPE="submit" value="Modifica"></TD>
<TD></TD>
</TR>
</TABLE>
</FORM>
<%
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</BODY>
</HTML>
<%
else
response.redirect "modifica1.asp"
end if
%>

**teorema55** · 19-01-2005, 07:38

Nel form devi mettere anche un value per il campo aRead (puoi anche mettere di nuovo "aRead"), in modo che, quando fai submit, recuperi il campo, per esempio, così:

codice:

if request.form("aRead") = "aRead" then		
aRead = "true"
else
aRead = "false"
end if

**kemin** · 19-01-2005, 18:27

Tipo così?

codice:

<TD>Letto</TD>
<TD>
    <div align="left">

<%  if request.form("aRead") = "aRead" then		
aRead = "true"
else
aRead = "false"
end if%>
<input <%If (CStr("aRead") = CStr("True")) Then Response.Write("checked") : Response.Write("")%> type="checkbox" name="aRead" value="aRead">
</div></TD></TR>

ma poi in modifica3 come mi devo regolare?

codice:

<%
dim intCodice
intCodice = request("Id")
if intCodice<>"" then

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("liberia.mdb")
Conn.Open strConn
sql = "SELECT * FROM odioamo WHERE Id="&intCodice
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs(2)=request.form("Titolo")
rs(3)=request.form("Autore")
rs(4)=request.form("Genere")
rs(5)=request.form("aRead")
rs.update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
<HTML>
<HEAD>
<TITLE> Aggiornamento Dati </TITLE>
</HEAD>
<BODY>
<TABLE width="100%" height="100%" valign="middle">
<TR>
<TD><center>
<TABLE>
<TR>
<TD><CENTER>Aggiornamento eseguito correttamente</CENTER></TD>
</TR>
<TR>
<TD><CENTER>Verifica Le Modifiche</CENTER></TD>
</TR>
</TABLE>
</center></TD>
</TR>
</TABLE>
</BODY>
</HTML>
<%
else
response.redirect "modifica1.asp"
end if
%>

al posto di

codice:

rs(5)=request.form("aRead")

ke c devo mettere, visto ke mi da un errore?

**teorema55** · 19-01-2005, 18:36

La modifica che avevo suggerito non va fatta nel form ma, appunto, in modifica3.

PRIMA di tutto scrivi le istruzioni che trasformano il valore di aRead in true/false.

Poi il tuo codice va bene a patto che la riga

rs(5)=request.form("aRead")

diventi

rs(5)=aRead

visto che hai già provveduto a valorizzare aRead con true/false in base all'input da form.

**kemin** · 19-01-2005, 19:06

ottimo.. funziona correttamente.. grazie...

ehm.. come non detto.. ultima cosa. Io ho messo questa che dovrebbe significare ke se è True si spunta se è False no.. ma nn va :|

codice:

<input <%If (CStr("aRead") = CStr("True")) Then Response.Write("checked") : Response.Write("")%> type="checkbox" name="aRead" value="aRead">

**teorema55** · 19-01-2005, 20:02

Scrivi

**kemin** · 19-01-2005, 20:44

se è true non me lo spunta :|

**teorema55** · 19-01-2005, 21:11

aRead deve essere true DA PRIMA, per spuntartelo..............è chiaro, no?

Fai un controllo prima del form, per esempio:

response.write("aRead vale "&aRead):response.end

se ti stampa

"aRead vale true"

allora con quel codice, nel form aRead risulterà checkato.........se ti stampa

"aRead vale" e basta, vuol dire che aRead non risulta valorizzato, ed ecco perchè nel form la casella non viene checkata.

**kemin** · 19-01-2005, 21:52

si infatti mi stampa solo aRead vale

**teorema55** · 20-01-2005, 08:09

Trova il motivo per cui aRead non è valorizzato, il resto dovrebe essere ok.

Discussione: Valid - Input - checked

Strumenti discussione

Ricerca discussione

Visualizza

Valid - Imput - checked

Permessi di invio