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

2 svar · 209 visningar · startad av Johanneshov 7 jan. 2004

JohanneshovMedlem sedan nov. 200387 inlägg

Frågan7 jan. 2004 15:39#1

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!

SebbeMedlem sedan jan. 20032 285 inlägg

7 jan. 2004 15:58#2

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

JohanneshovMedlem sedan nov. 200387 inlägg

7 jan. 2004 16:03#3

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

THANX!