Response.Write

Hvad er problemet?

Bare skriv hele HTML koden ind i den Response.Write, som laver tabellen.

<input <%If (CStr((rsMenus.Fields.Item("Vis_Menuer").Value)) = CStr("True")) Then Response.Write("checked") Else Response.Write("")%> id="mcheck" name="mcheck" type="checkbox">

//>Rune

kichian>>Problemet er jo at jeg ikke kan have Response.Write inde i en Response.Write

Medions>> Det virker ikke (det sagde du jo også man ikke kunne?)

Response.Write("<td><input <%If (CStr((rsMenus.Fields.Item("Vis_Menuer").Value)) = CStr("True")) Then Response.Write("checked") Else Response.Write("")%> id="mcheck" name="mcheck" type="checkbox"></td>")

giver: Expected ')'

If CStr(rsMenus.Fields.Item("Vis_Menuer").Value) = CStr("True") Then
  strStatus = "checked"
Else
  strStatus = ""
End If
Response.Write("<td><input " & strStatus & " id=""mcheck"" name=""mcheck"" type=""checkbox""></td>")

//>Rune

Jeg forstår ikke helt spørgsmålet.. Du har en checkbox:

<input <%If (CStr((rsMenus.Fields.Item("Vis_Menuer").Value)) = CStr("True")) Then Response.Write("checked") : Response.Write("")%> id="mcheck" name="mcheck" type="checkbox">

Og den skal ind i en response.write "<td>....</td>"

Normalt ville jeg sætte den ind sådan her:

response.write "<td><input "
<% If (CStr((rsMenus.Fields.Item("Vis_Menuer").Value)) = CStr("True")) Then
  Response.Write("checked")
else
  Response.Write("")
end if %>
response.write " id=""mcheck"" name=""mcheck"" type=""checkbox""></td>" & vnCrLf

men der er måske ikke sådan du vil havde den ind?

Medions's eksempel fungerer. Tak :)

Anytime ;o)
Thx 4 Poinz

//>Rune