Problem med kryds af (checkbox) Please help

Value for Visinlaeg skal være enten True eller False hvis den i databasen har felttypen Ja/Nej.

Når du så skal tjekke om den er afkrydset siger du:

<input type="checkbox" name="visindlaeg" value="True" <% if rs("visindlaeg") = True then %>checked<% end if %>

Sådan her: <input type="checkbox" name="visindlaeg" value="True" <% if rs("visindlaeg") = True then %>checked<% end if %>>

SQL skal være sådan her:

strSQL = "UPDATE gaest SET Navn='" & StrNavn & "',Visindlaeg=" & strVisindlaeg & ",Klub='" & strKlub & "',Email='" & strEmail & "',hjemmeside='" & strHjemmeside & "',kommentar='" & strKommentar & "' WHERE id=" & Request.querystring("id")

Det virker fint nok med den kode du har vist pezzo.
Men nu kan jeg ikke få lov til selv at bestemme om der skal stå nået i feltet eller ej. Det skal helt være frivilligt om jeg vil indtaste eller ej.

og så skal også finde ud af hvordan jeg på selve visnings siden kan
vise om der er krydset af i feltet eller ej.

Det forstår jeg ikke helt?

Kan du ikke "afmærker" checkboksen eller hvad er det problemet er ?

Har prøvet lige prøvet med strVisindlaeg = cBool(request.form("Visindlaeg"))
og det virker med dette nu.

Okai :)

Tak pezzo
En lille detajle ved du hvordan man kan skrive en anden tekst i sin gæstebog hvis vedkommende ikke har indtastet sit navn i feltet eller klub så der automatisk bliver skrevet:
Navn: anonym
Klub: ingen klub
------------------
        <input size="34" name="Navn" style="font-family: Verdana; color: #FFFFFF; border: 1px solid #000000; margin: 1px; background-color: #003265">

du siger bare i udtrækket:

<%
navn = rs("feltnavn")
if not navn <> "" then
output_navn = "Anonym"
else
output_navn = navn
end if
%>

SÅ skal du blot tage variablen output_navn og indsætte på navn pladsen.

okay jeg er nu lidt usikker på hvordan jeg kan sætte det sammen med dette her
Så jeg ikke laver fejl i det.


set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
rs.MoveFirst

If RS.EOF then

Response.write "ingen data i db endnu"

Else
Do While (NOT rs.EOF)

%></p>

<table border="1" width="66%" bordercolor="#003265" id="table2" bordercolorlight="#003265" bordercolordark="#003265" style="border: 1px solid #003265" bgcolor="#EFF2F3">
    <tr>
        <td bordercolorlight="#003265" bordercolordark="#003265" width="53%" valign="top">
<font size="1" face="Verdana">
<p style="margin-top: 0; margin-bottom: 0">
<%=rs("Dato")%></a></font></p>
<p style="margin-top: 0; margin-bottom: 0">
<font face="Verdana"><b><font size="1">Navn:</font></b><font size="1">
<%=rs("Navn")%></font></font></p>
<p style="margin-top: 0; margin-bottom: 0"><font size="1" face="Verdana">
<%=rs("Hjemmeside")%></font></td>
        <td bordercolorlight="#003265" bordercolordark="#003265" width="43%" valign="top">
        <font size="1" face="Verdana">
<%=rs("Klub")%></a></font><p style="margin-top: 0; margin-bottom: 0">
        <font face="Verdana"><b><font size="1">Email:</font></b><font size="1"> <a href="mailto:<%=RS("Email")%>"><%=RS("Navn")%></font></font></td>
    </tr>
    <tr>
        <td bordercolorlight="#003265" bordercolordark="#003265" colspan="2">
        <font size="1" face="Verdana">
        <div style="width: 514px; height: 18px" id="lag1">
<%=rs("Kommentar")%></div>
        </font></td>
    </tr>
    </table>

<font face="Verdana">
<table border="0" width="66%" id="table8">
    <tr>
        <td><hr></td>
    </tr>
</table>

</font>
<p style="margin-top: 0; margin-bottom: 0">


 
<font face="Verdana">



<%
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
<% End If %>

Efter koden Do While (NOT rs.EOF) skriver du:

navn = rs("feltnavn")
if not navn <> "" then
output_navn = "Anonym"
else
output_navn = navn
end if


samt udskifter:
<font face="Verdana"><b><font size="1">Navn:</font></b><font size="1">
<%=rs("Navn")%></font></font></p>

med dette:
<font face="Verdana"><b><font size="1">Navn:</font></b><font size="1">
<%=output_navn%></font></font></p>

fint jeg tester lige af

navn = rs("feltnavn")

skal være sådan her:
navn = rs("navn")

min feejl :)

ok retter lige

Det virker Perfekt nu.

Og hvis jeg så skal have flere med gør jeg så bare sådan her:
<%
Navn = rs("Navn")
if not Navn <> "" then
output_Navn = "Anonym"
else
output_Navn = Navn
end if
%>
<%
Klub = rs("Klub")
if not Klub <> "" then
output_Klub = "Ingen klub tilføjet"
else
output_Klub = Klub
end if
%>

Eller er der en smartere måde når man har flere.

Nå men takker ihvertfald pezzo for din store hjælp
Point på vej.

Nej der findes ikke rigtigt andre måder og gøre det på.,

Ok pezzo
Er du forresten til at få fat på i enten MSN eller ICQ??

Ja på peter@pezzo.dk (MSN)