---
title: "Rätt person som kan ha checkbox"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/90191-rätt-person-som-kan-ha-checkbox"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2003-11-12T15:52:37.000Z"
updated: "2003-11-16T15:34:01.000Z"
replies: 4
views: 256
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/90191-rätt-person-som-kan-ha-checkbox"
---

# Rätt person som kan ha checkbox

## #1 — voigtann1, 2003-11-12T15:52Z

Ni känner igen denna meny kod:

```
<!-- #include file="database.asp" -->
<form name="vbform" action="show.asp?skickat=japp" method=post>

<%
arrLinks = GetRows("SELECT pID,sub_dir,name,finish,progress FROM [progress]")
intGrpId = 0 
	
Call LinkTree(intGrpId,0)

Sub LinkTree(intParent,intIndent) : Dim X,Z
  For X = 0 To Ubound(arrLinks,2)		
    If arrLinks(1,X) = intParent Then
      strIndent=""
      For Z = 1 To intIndent : strIndent = strIndent & "--" : Next
        if arrLinks(3,X) = true then
          check = "checked"
        else
          check = ""
        end if

        if arrLinks(4,x) = 0 then
          Response.Write(""&strIndent&" "&arrLinks(2,X)&"<br>"&VbCrlf)
        else
          Response.Write(""&strIndent&" "&arrLinks(2,X)&"<input type='checkbox' name='ID' value='"& arrlinks(0,x) &"' "&check&"><br>"&VbCrlf)
        end if

      Call LinkTree(arrLinks(0,X),intIndent + 1)			
    End If
  Next 
End Sub

Function GetRows(ByVal SQL)
  Dim arrRecords, rs	
  Set rs = databas.Execute(SQL)
    If Not rs.BOF Or Not rs.EOF Then
      arrRecords = rs.GetRows()
    ELSE
      arrRecords = ""
    End If		
  rs.Close
  Set rs = nothing
  GetRows = arrRecords 
End Function
%><input type=submit></form>
<%if request.querystring("skickat") = "japp" then
for each id in Request.Form("id")
  sql = "update progress set finish "&len(Request.Form("id"))&" where table where id = " & id
  set rs = Conn.execute(sql)
next
end if
%>
```

 något ändrat kanske. jag har glömt en hel del med vem som ska kunna ha checkbox och inte. Det jag har är en extra data i databasen (userID och adminID) där båda är tal. Jag vill att om adminID stämmer ihop med detta id i denna kod ovan. Om den finns med med rätt användare då ska checkboxen finnas med... hoppas ni förstå vad jag menar... så att rätt person kan göra uppdateringar och sånt.

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

## #2 — Palle, 2003-11-12T16:02Z

Typ så här: 

```
[red]If arrLinks(0,X) = adminID Then
	'// Visa checkbox
End If[/red]
```

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

## #3 — voigtann1, 2003-11-12T16:27Z

mja.. du förstå en person kan vara admin på flera ställen... exempel:

\--- USERS -----------------
Pelle har ID 1 (som användare)
voigtan har ID 2 (som användare)

\--- MENY --------------------
Pelles sida har ID 1
voigtans sida har ID 5
ASP sidan har ID2
Kontakta oss har ID 3

\--- ADMIN -----------------
1,1 (Pelle har ID 1 och ska kunna checka 1 som är Pelles sida)
2,5 (voigtan har ID 2 och ska kunna checka 5 som är voigtans sida)

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

## #4 — voigtann1, 2003-11-16T12:52Z

behöver fortfarande hjälp med detta...

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

## #5 — Macce, 2003-11-16T15:34Z

Gör ett kommaseparerat fält i db:n med vilka sidor varje medlem har rättigheter till...

Kolla sen med if instr()..... i fall sant skriv ut checkbox...typ...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/90191-rätt-person-som-kan-ha-checkbox