True/False

Hej på er!
Jag har ett problem med uppdatering av värde till min access databas.

Jag har ett fält i databasen som heter placedleft och den kan antingen vara true eller false.

Vidare har jag ett formulär där man väljer mellan höger och vänster med hjälp av radiobuttons (name: editplacedleft).
Värdet (value) sätter jag till true respektive false. Detta skickas sedan i en queryString till sidan som uppdaterar databasen.

Jag lyckas inte få in värdet i databasen - vad gör jag för fel!?

Nedan följer min nuvarande kod:

	if myPlacedLeft=true Then
		rs("placedleft") = true
	else
		rs("placedleft") = false
	end if

Mvh
Simon

Request.Querystrin("myPlacedLeft") / Request.Form("myPlacedLeft") ?

Request.QueryString kör jag med.
Funkar på alla dom andra och jag vet (jag har kollat)
att jag tar emot värdet (antingen true eller false beroende på det val man gjort i formuläret).

Redigerat:
myPlacedLeft= Trim(Request.querystring("editPlacedLeft") & "")

Någon som har en ev. lösning på mitt problem?

På vilket sätt fungerar det inte?

Prova att göra myPlacedLeft till subtypen boolean.
Jag tror att ditt trim() och tillägg av tom sträng är onödigt, jag hade skrivit så här:

myPlacedLeft= CBool(Request.querystring("editPlacedLeft"))

Mvh,

Fungerar tyvärr fortfarande inte...
Den uppdaterar helt enkelt inte databasen (placedleft-fältet)...

Klistrar här in min fullständiga kod:

<%
	Response.Buffer = True

	dim myId
	dim myPlacedLeft

	myId= Trim(Request.querystring("editId") & "")
	myPlacedLeft= CBool(Request.querystring("editPlacedLeft"))

		dim con
		dim rs
		dim SQL

		Set con = Server.CreateObject("ADODB.Connection")
		con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=databasen.mdb;
                               DefaultDir=d:\zz;Uid=Admin;Pwd=;"
		Set rs = Server.CreateObject("ADODB.RecordSet")

		SQL = "SELECT * FROM data WHERE id="&myId&""
		rs.Open SQL, con, 1, 2

	
	if myPlacedLeft Then
		rs("placedleft") = true
	else
		rs("placedleft") = false
	end if

		rs.Update
		rs.Close
		con.Close
			
%>

Mycket tacksam för hjälp!

/Simon

<%
	Response.Buffer = True

	dim myId
	dim myPlacedLeft

	myId= Trim(Request.querystring("editId"))
	myPlacedLeft = Request.querystring("editPlacedLeft") = "true" 

		dim con
		dim rs
		dim SQL

		Set con = Server.CreateObject("ADODB.Connection")
		con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=databasen.mdb;
                               DefaultDir=d:\zz;Uid=Admin;Pwd=;"
		Set rs = Server.CreateObject("ADODB.RecordSet")

		SQL = "SELECT * FROM data WHERE id="&myId&""
		rs.Open SQL, con, 1, 2

		rs("placedleft") = myPlacedLeft

		rs.Update
		rs.Close
		con.Close
			
%>

Argh!
Tack så mycket MEN...
samma fel fortfarande!

Jag orkar snart inte mer...
...men jag måste få det att funka!

Hjälp mig någon.

Mvh
Simon

Lägg till lite testutskrifter så du ser vad som händer

myPlacedLeft = Request.querystring("editPlacedLeft") = "true" 
response.write "Debug:editPlacedLeft " & Request.querystring("editPlacedLeft") & "<br>"
response.write "Debug:myPlacedLeft " & myPlacedLeft & "<br>"

Ett stort tack till er alla!
Nu äntligen fungerar det!
Pust, stön - det var jobbigt ;)