---
title: "Disablad checkbox är ett aber!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/118968-disablad-checkbox-är-ett-aber"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jesper T"
published: "2004-12-30T12:49:49.000Z"
updated: "2004-12-30T13:53:31.000Z"
replies: 1
views: 288
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/118968-disablad-checkbox-är-ett-aber"
---

# Disablad checkbox är ett aber!

## #1 — Jesper T, 2004-12-30T12:49Z

Jag gör en loop med checkboxar och textfält. Under vissa förhållanden så skall checkbox och ett par textfält vara disablade.
Problem uppstår när man skall loopa dessa med en sql-sats på mottagarsidan eftersom att de disablade inputfälten inte kommer med över huvud taget.
Enligt min mening/fantasi så skulle idealet vara att fälten "tas med" fast de är är disablade. Skillnaden skulle bara vara att de inte gick att ändra.

```
function MakeNull(ByVal str)'Sätter in null i datumfält som är tomt
		if not isdate(str) then str="null" else str="'"& str &"'"
		MakeNull=str
	end function

for z = 0 to request.form("fromdate").count-1 'Loopa ut alla formulärelement 
	'splitta alla element på kommatecken
	Dim sgid : sgid = split(request.form("sgid"),",")
	Dim fromdate : fromdate = split(request.form("fromdate"),",")
	Dim todate : todate 	= split(request.form("todate"),",")

		if request.form("CB_"& z &"") = "True" then 'Om checkboxen är ikryssad -->
		'Kolla om posten finns, finns den; uppdatera annars skapa en ny
		Dim sqlCount : sqlCount="SELECT count(umid) FROM user_groups WHERE umid="& id &" AND sgid="& sgid(z)
		Dim rsCount : set rsCount = Connect.Execute(sqlCount)
			
			if rsCount(0) > 0 then  'Uppdatera
				strSql = "UPDATE user_groups SET umid="& id &", sgid="& sgid(z) &", "&_
						 "fromdate="& MakeNull(fromdate(z)) &",todate="& MakeNull(todate(z)) &" WHERE umid="& id &" AND sgid="& sgid(z) 
			else 'Annars sätt in en ny post
				strSql = "INSERT INTO user_groups(umid,sgid,from,to)" &_ 
						 "VALUES("& id &","& sgid(z) &","& MakeNull(fromdate(z)) &","& MakeNull(todate(z)) &")"
			end if
			
				set rsCount = nothing
				Connect.Execute(strSql),,128 'exekvera
		else 'Checkbox inte förkryssad
				strSql = "DELETE FROM user_groups WHERE umid="& id &" AND sgid="& sgid(z)
				Connect.Execute(strSql),,128 'exekvera
		end if
		
next
```

 Tips erhålles gärna här.

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

## #2 — Jesper T, 2004-12-30T13:53Z

Ok, det jag får göra är att skapa hiddenfields på de ställen där det är disablat som jag sätter samma namn på som inputfälten.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/118968-disablad-checkbox-är-ett-aber