---
title: "CHECKBOXKOD läsa/uppdatera från DB!?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/94173-checkboxkod-läsa-uppdatera-från-db"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Johanneshov"
published: "2004-01-07T15:39:06.000Z"
updated: "2004-01-07T16:03:48.000Z"
replies: 2
views: 213
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/94173-checkboxkod-läsa-uppdatera-från-db"
---

# CHECKBOXKOD läsa/uppdatera från DB!?

## #1 — Johanneshov, 2004-01-07T15:39Z

Jopla...

Någon som kan bjuda på kod eller upplägget för följande funktion.

Jag vill ha en profilsida där användaren kryssar i en ruta som ger värdet sant eller falskt... När användaren kollar profilsidan skall kryssruta vara ikryssad med det rätta värdet, efter att ha sökt upp det i databasen. 

Användaren skall sedan kunna ändra detta kryssvärdet som sedan skall sparas i databasen.

Mitt lilla strul är hur \<input checkbox\> skall få värdet från databasen...

Thanx!

Permalänk: https://www.webforum.nu/p/94173

## #2 — Sebbe, 2004-01-07T15:58Z

Ungefär såhär?

formulärsidan:

```
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
strSQL = "SELECT kryssruta FROM tabell WHERE user = '" & Session("user") & "'"
Set objRS = objConn.Execute(strSQL)

Response.Write("<input type=""checkbox""")

If objRS("kryssruta") Then
  Response.Write(" checked=""checked""")
End If

Response.Write(" name=""kryssruta"">")
Set objRS = Nothing
objConn.Close : Set objConn = Nothing
```

uppdateringssidan:

```
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
strSQL = "UPDATE tabell SET kryssruta = "

If Request.Form("kryssruta") <> "" Then
  strSQL = strSQL & "True"
Else
  strSQL = strSQL & "False"
End If

strSQL = strSQL & " WHERE user = '" & Session("user") & "'"
objConn.Execute(strSQL),,128
objConn.Close : Set objConn = Nothing
```

Permalänk: https://www.webforum.nu/p/1245124

## #3 — Johanneshov, 2004-01-07T16:03Z

Okej snabbt&galant... skall testa när jag får... tid!  ;-)

THANX!

Permalänk: https://www.webforum.nu/p/1245128

---

Tråden på webben: https://www.webforum.nu/amne/asp/94173-checkboxkod-läsa-uppdatera-från-db