Kontrollere om tal er indeholdt i array.

if instr(str, TALLET) then

Jeg mener at "str" er reserveret.. prøv "streng" (på dansk) i stedet..

ahh... du vil check om tallet "i" er i "str: if instr(str, i) then

men husk lige på, at selve tallet "i", ikke behøver at stå alene, i dit ekspempel..
f.eks.: tallet 1, indgår jo i: 1, 11, 21, 31, 41, 51, osv..

Og man plejer ikke at bruge ' tegn uden om tal:
Str = Str & ", '" & rsNumbersUsed("cd_id") & "'"

dvs (helst uden mellemrum, da det bliver nemmere at splitte senere):
Str = Str & "," & rsNumbersUsed("cd_id")

Se denne gode lektion om arrays: http://html.dk/tutorials/asp/lektion8.asp

Hvordan kommer jeg udover problemet med at 1 indgår i fx 11 og 12?

instr virker i øvrigt fint, men du har en pointe med hensyn til ovenstående.

Kig lektion 8 igennem.. og huske ikke at bruge mellemrum, i dit array.. det er "nemmere" at arbejde med (synes jeg), men serveren er ligeglad :-)

Lektion 8 er vejen frem :-)

og jeg ville nok bruge:

str = ""
do While not rsNumbersUsed.EOF
    Str = Str & rsNumbersUsed("cd_id") & ","
    rsNumbersUsed.MoveNext
loop

str = left(str, len(str) - 1) ' fjern det sidst komma

astr = split(str, ",") 'astr = en hjemmelavet forkortelse til arraystring

Skal jeg forstå dig derhen, at du foreslår at jeg spiltter arrayet, og gennemløber det?

Jeg har i øvrigt i mellemtiden testet løsningen igen, og der er ikke noget problem med 1 i 11 og 12.

Jeg bruger:

Streng = ""
While not rsNumbersUsed.EOF
    Streng = Streng & "," & rsNumbersUsed("cd_id")
    rsNumbersUsed.MoveNext
Wend

For i = 1 To rsTopNumber("top_number")
    If instr(Streng, i) Then
    Else
        response.write i & "<br>"
    End If
Next

Og det giver det ønskede resultat.

Hvis det virker fint, er det fint :-)

Det var bare om det var ok, at 1 også indgik i "1, 11, 12, 13, 14, ..."..

Hvis det ikke var ok, skal du splitte arrayet..

Kan spm'et afsluttes/lukkes eller har du brug for yderligere hjælp?

Nu har jeg prøvet, at smide de i et array vha.:

Streng = ""
While not rsNumbersUsed.EOF
    Streng = Streng & "," & rsNumbersUsed("cd_id")
    rsNumbersUsed.MoveNext
Wend
arr_Streng = Split(Streng, ",")

For i = 1 To rsTopNumber("top_number")
    match = "false"
    For j = 0 To UBound(arr_Streng)
        If i = arr_Streng(j) Then
            match = "true"
        End If
    Next
    If match = "false" Then
        response.write i  & "<br>"
    End If
    match = "false"
Next

Men det medfører, at jeg får udskrevet alle tal i (altså 0 til top_number)

Det skulle selvfølgelig være 1 til rsTopNumber("top_number")

Giv et eksempel på indholdet af rsTopNumber("top_number")..

Hvis jeg har forstået det her rigtigt..
- du henter nogle tal fra rsNumbersUsed("cd_id") og smider det i "streng"
- derefter looper du, og udskriver tallet fra streng, hvis det er lig "i"..

eller hvad..?

Jeg tror at jeg har misforstået et eller andet, så kan du ikke lige forklare det, med dine egne ord (hele sætninge. :-D)..?

rsTopNumber indeholder "SELECT MAX(cd_id) FROM programmer" altsådet højeste tal, i dette tilfælde 107.
Jeg henter derefter alle tal ind i arr_Streng, hvilket konkret er alle tal fra 1 til 107 med undtagelse af 12 og 103.

Jeg vil så gerne have listet de tal der (op til 107), der ikke er indeholdt i arr_Streng, altså ikke er brugt.

Tallene i arr_Streng kommer vha. "SELECT DISTINCT cd_id FROM programmer ORDER BY cd_id"

Jeg vil prøve at kigge på det i morgen.. indtil da, skal det være:

If CInt(i) = CInt(arr_Streng(j)) Then

CInt giver:

Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typer stemmer ikke overens: 'CInt'

hmm.. underligt.. jeg testede med VB og det accepterede den..
Hvordan set din CInt-kode ud?

strSQLTopNumber = "SELECT MAX(cd_id) AS top_number FROM programmer"
    set rsTopNumber = conn.execute(strSQLTopNumber)

    strSQLNumbersUsed = "SELECT DISTINCT cd_id FROM programmer ORDER BY cd_id"
    set rsNumbersUsed = conn.execute(strSQLNumbersUsed)
   
    Streng = ""
    While not rsNumbersUsed.EOF
        Streng = Streng & "," & rsNumbersUsed("cd_id")
        rsNumbersUsed.MoveNext
    Wend
    arr_Streng = Split(Streng, ",")

    For i = 1 To rsTopNumber("top_number")
        match = ""
        For j = 0 To UBound(arr_Streng)
            If CInt(i) = CInt(arr_Streng(j)) Then
                match = "ja"
            End If
        Next
        If match = "" Then
            response.write i  & "<br>"
        End If
        match = ""
    Next

Noget kunne tyde på, at "rsNumbersUsed" er tom..

Når du bruger database, skal du altid først checke om der er nogle records..
Da både "rsTopNumber" og "rsNumbersUsed" skal indeholde noget, ser det nogenlunde sådan ud:

strSQLTopNumber = "SELECT MAX(cd_id) AS top_number FROM programmer"
    set rsTopNumber = conn.execute(strSQLTopNumber)

if not (rsTopNumber.bof or rsTopNumber.eof) then

    strSQLNumbersUsed = "SELECT DISTINCT cd_id FROM programmer ORDER BY cd_id"
    set rsNumbersUsed = conn.execute(strSQLNumbersUsed)
   
    if not (rsNumbersUsed.bof or rsNumbersUsed.eof) then

        Streng = ""
        While not rsNumbersUsed.EOF
            Streng = Streng & "," & rsNumbersUsed("cd_id")
            rsNumbersUsed.MoveNext
        Wend
        arr_Streng = Split(Streng, ",")

        For i = 1 To rsTopNumber("top_number")
            match = ""
            For j = 0 To UBound(arr_Streng)
                If CInt(i) = CInt(arr_Streng(j)) Then
                    match = "ja"
                End If
            Next
            If match = "" Then
                response.write i  & "<br>"
            End If
            match = ""
        Next
    else
        response.write "rsNumbersUsed er tom!"
    end if
else
    response.write "rsTopNumber er tom!"
end if


- Kommer der stadig fejl?

Samme fejl. Jeg i øvrigt positivt at de to sql-kald indeholder data, og vel og mærke de rigtige.

Så er det løst. Jeg fjernede første karakter i Streng ',' før jeg splittede den til array'et. Det virkede.

Tak for hjælpen. Du har fortjent pointene for at hjælpe mig på vej.

ahh.. ja, det burde jeg ha' set.. normalt plejer jeg at gøre sådan her:

for...
streng = streng & nyværdi & ",2
next

streng = left(streng, len(streng) - 1) ' fjerner det sidste ","
arrStreng = split(streng, ",")

osv..

LOL! Jeg skriver det her (indlæg 01/06-2004 22:13:32): http://www.eksperten.dk/spm/504967#rid4646388 :-)