checkboxe

Er det sådan her du mener ?

<%
strSQL = "select * from branche_sub where MainId=1"
Set RsSubMain1 = Conn.Execute(strSQL)

Do
If RsSubMain1("ID") = "Main1" Then
Check = "Checked"
else
Check = ""
End If
%>
<tr>
<td class="bodytext">
<input name="Main1" type="checkbox" <%=Chekc%> id="Main1" value="<%= RsSubMain1("ID")%>" border="0" <% If RsSubMain1("ID") = ID Then Response.Write("checked") End If%>><%= RsSubMain1("KatTitel")%>
</td></tr>
<%
RsSubMain1.Movenext
Loop While Not RsSubMain1.EOF
%>

Du behøver ikke End If når response.write står på samme linje. Prøv at sætte Int() omkring de to i if sætningen:

<% If RsSubMain1("ID") = ID Then Response.Write("checked") End If%>

Til:

<% If Int(RsSubMain1("ID")) = Int(ID) Then Response.Write("checked") %>

Vil du have checkbox til at være checked når RsSubMain1("ID") = ID ?
Eller vil du have udskrevet teksten "checked" udfor de checkboxe der er chedked ? (det ser sådan ud, men hvad er meningen?)
GSM

jeg vil gerne have skrevet "checked" ud for de checkbokse hvor RsSubMain1("ID") = ID

Hvor får du variablen ID fra?

Prøv forøvrigt med denne der er lagt et ekstra mellemrum ind før checked, for at sikre mellemrum inden checked:

<% If Int(RsSubMain1("ID")) = Int(ID) Then Response.Write(" checked") %>

det funker ikke.. den skriver slet ikke noget ud...

Er det hele din kode`?

eagleeye> har du en mail.. koden er meget lang

Det bliver ikke nu, for jeg skal i seng nu.

all rite.. sov godt...

jeg tror jeg er nået tættere på nu..

jeg får en
Microsoft JET Database Engine error '80040e07'
Data type mismatch in criteria expression

men er min asp bygget rigtigt op.. den siger jeg får fejl i de to første linier i denne kode..


<%
strSQL = "select * from branche_tilmeld where KundeID ="&ID
Set RsTilmeld = conn.Execute(strSQL)

strSQL = "select * from branche_sub where MainId=1"
Set RsSubMain1 = conn.Execute(strSQL)

Do
%>
<tr>
<td class="bodytext">
<input name="Main1" type="checkbox" id="Main1" value="<%= RsSubMain1("ID")%>" border="0"
<%
If RsTilmeld("SubID") = ID Then
Response.Write(" checked")
End If
%>><%= RsSubMain1("KatTitel")%>
</td></tr>
<%
RsSubMain1.Movenext
Loop While Not RsSubMain1.EOF
%>

Variablen ID får jeg i starten af dokumentet og er Kundens ID nummer

prøv lige at skifte din SQL ud til den her!

strSQL = "select * from branche_tilmeld where KundeID ="&ID&""

grunken> nu har jeg prøvet at skifte den sql streng ud.. men så får jeg en fejl 500 Intern serverfejl..

Jeg læste noget om at check boxe kun kan være true og false værdier.. er det rigtigt?. valuen i mine checkbox felter er jo id numre?

<%
' her trækkes tilmeldte brancher som kunden har tilmeldt sig
strSQL = "select * from branche_tilmeld where KundeID ="&ID&""
Set RsTilmeld = conn.Execute(strSQL)

' her trækkes branche id
strSQL = "select * from branche_sub where MainId=1"
Set RsSubMain1 = conn.Execute(strSQL)

Do
%>
<tr>
<td class="bodytext">
<input name="Main1" type="checkbox" id="Main1" value="<%= RsSubMain1("ID")%>" border="0"
<%
' Hvis SubID feltet er tomt skal der ikke skrives checked - hvis det indeholder data skal der skrives checked
If RsTilmeld("SubID") <> "" Then
Response.Write(" checked")
End If
%>><%= RsSubMain1("KatTitel")%>
</td></tr>
<%
RsSubMain1.Movenext
RsTilmeld.Movenext 
Loop While Not RsSubMain1.EOF
%>

den må jeg vist løse selv .. snøft..