Split og trim fejl

umiddelbart er det vel sådan her i stedet:

intVagtStart = request.form("Vstart")
        intVagtSlut = request.form("Vslut")
        intVagtPerson = Split(request.form("vagtPerson"),",")
           
        for i = 0 to UBound(intVagtPerson)
           
            if Trim(intVagtPerson(i)) <> "" then
                strSQL = "INSERT INTO kalenderVagt (personNr, start, slut, vagtNr) VALUES ("& intVagtPerson(i) &", "& intVagtStart &", "& intVagtSlut &",  "& intNumberEdit &")"
                objConn.Execute(strSQL)
            end if
           
        Next

det er jo sådan at der er ikke meget idé i at splitte en variabel hvis ikke det er et array hvor du enten skal have listet det eller kun bruge en del af det...

men det kommer jo også noget an på hvad det er du vil med denne her kode.

hvis det er sådan at dine tre arrays er præcist lige lange, altså med lige mange kommaer i så kunne det også løses sådan her i stedet:

count=0
intVagtStart = split(request.form("Vstart"),",")
        intVagtSlut = split(request.form("Vslut"),",")
        intVagtPerson = Split(request.form("vagtPerson"),",")
           
        for i = 0 to UBound(intVagtPerson)
count=count+1           
            if Trim(intVagtPerson(i)) <> "" then
                strSQL = "INSERT INTO kalenderVagt (personNr, start, slut, vagtNr) VALUES ("& intVagtPerson(i) &", "& intVagtStart(count) &", "& intVagtSlut(count) &",  "& intNumberEdit &")"
                objConn.Execute(strSQL)
            end if
           
        Next

\Dan

Hej Dan,

Det er nr. to vi går efter...

Men fejl:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'count'

Hej Dan,

Jeg har løst det, men tak for hjælpen :)