dynamisk checkbox/database helvede

jeg plejer i stedet at sætte alle checkboxene til false, og derefter sætter jeg alle dem til true der er valgt..

Det synes jeg er en del nemmere..

du kan løbe alle poster igennem med:

for each item in request.form
iten = formens navn
request.form(item) = formens indhold.
next

Dog skal du så her være opmærksom på at du kun får indholdet med fra de poster der er markeret til true..
Det er derfor jeg selv sætter dem alle til false til at starte med, for derefter at opdatere dem der er valgt i formen..

Håber det var forståeligt..

hmm ja et af problemerne er netop at man kun får dem der er true hehehehe
men jeg tror jeg har fået en ide.. gemmer dem brugeren har i forvejen i session objektet og sammenligner så request.form strengen med session objektet

ok nu looper jeg igennem request.form objektet sådan her

For Each Item In Request.Form

    If formStr = "" Then

        If Not Request.Form(Item) = brugerid AND Not Request.Form(Item) = "Update" Then

            formStr = Request.Form(Item)

        End If

    Else

        If Not Request.Form(Item) = brugerid AND Not Request.Form(Item) = "Update" Then

            formStr = formStr & "," & Request.Form(Item)

        End If

    End If


next

men så får jeg bare den her streng:
on,on,on,on

dvs jeg ved ik hvilke checkbokse der er trykket på :( hvordan får jeg navnet med på checkboksen så jeg ved hvilke der er true/false?

hmmm det slår mig lige det jo nok er Item.. DOH

nå jeg fik det sgu til at makke ret

det endelige resultat er her:

<%

BrugerID = Request.Form("brugerid")

FormStr = ""

For Each Item In Request.Form

    If FormStr = "" Then

        If Not Request.Form(Item) = BrugerID AND Not Request.Form(Item) = "Update" Then

            FormStr = Item

        End If

    Else

        If Not Request.Form(Item) = BrugerID AND Not Request.Form(Item) = "Update" Then

            FormStr = FormStr & "," & Item

        End If

    End If


Next

If FormStr = "" Then


    RemUserServices = "DELETE FROM userservices WHERE brugerid = '" & BrugerID & "'"
    Conn.Execute(RemUserServices)

Else

   

    FormArr = Split(FormStr,",")
   
    SessionStr = Session("licenseStr")
    SessionArr = Split(SessionStr,",")
   
    DelService = ""
   
    a = 0
   
    Do While a <= Ubound(SessionArr)
   
        For i=0 To Ubound(FormArr)
   
            If CStr(SessionArr(a)) = CStr(FormArr(i)) Then
   
                DelService = "no"

                Exit For
   
            Else
   
                DelService = "yes"
   
            End If   
   
        Next

        If DelService = "yes" Then

            RemUserService = "DELETE FROM userservices WHERE brugerid = '" & BrugerID & "' AND serviceid = '" & SessionArr(a) & "'"
            Conn.Execute(RemUserService)

        End If
   
        a = a + 1
   
    Loop
   
    ExpireDate = "2004-12-12"

    a = 0
   
    If SessionStr = "" Then

        Do While a <= Ubound(FormArr)

            AddUserService = "INSERT INTO userservices (brugerid, serviceid, expiredate) VALUES ('" & BrugerID & "','" & FormArr(a) & "','" & ExpireDate & "')"
            Conn.Execute(AddUserService)
   
            a = a + 1
   
        Loop

    Else

        Do While a <= Ubound(FormArr)

            For i=0 To Ubound(SessionArr)

                If CStr(SessionArr(i)) = CStr(FormArr(a)) Then
   
                    AddService = "no"

                    Exit For
   
                Else
   
                    AddService = "yes"
               
   
                End If   
   
            Next

            If AddService = "yes" Then           

                AddUserService = "INSERT INTO userservices (brugerid, serviceid, expiredate) VALUES ('" & BrugerID & "','" & FormArr(a) & "','" & ExpireDate & "')"
                Conn.Execute(AddUserService)

            End If
   
            a = a + 1
   
        Loop

    End If
   
    InfoSQLStr = ""
   
    For i=0 to Ubound(FormArr)
   
        If InfoSQLStr = "" Then
   
            InfoSQLStr = " WHERE serviceid = '" & FormArr(i) & "'"
   
        Else
   
            InfoSQLStr = InfoSQLStr & " OR serviceid = '" & FormArr(i) & "'"
   
        End If
       
   
    Next
   
    InfoSQLStr = "SELECT servicetype,displayname FROM services" & InfoSQLStr
    Set RsServices = Conn.Execute(InfoSQLStr)

End If

%>


ellebaek hvis du vil ha nogle point for din hjælp så smid lige et svar :)

jeg smider et svar så ;-)