Type mismatch

len og left operere på strenge og har det derfor ikke så godt med tal. Lav om til streng først:

tmpVarer = left("" & tmpVarer, len("" & tmpVarer) - 1)

stadig den samme fejl :(

Sikker på at det er i den linje det fejler? Det fungerer faktisk uden problemer hos mig.

Det virker også hos mig, men ellers prøv med nedenstående:

tmpVarer = left(Cstr(tmpVarer), len(Cstr(tmpVarer)) - 1)

okay.. Er der en af jer der har tid til at løbe en kode i gennem for mig? Nu har jeg siddet i 2 timer og prøvet med en masse forskellige ting men kan ikke få det til at virke..

Du kan jo poste en klump kode som dækker fejlstedet.

Det drejer sig om at jeg er ved at lave en indkøbskurv, men jeg kan ikke helt få det til at virke.. Der er blevet lavet en funktion som gør at den ikke laver dubletter og den virker heller ikke helt:

id = Vare nummer
Request.Form("count") = Antallet af den vare man tilføjer

            dim output
            dim NyKode, j, ex

                  arrVarerIKurven = split(Session("Varenr"), "|")

                  arrAntalAfVaren = split(Session("Antal"), "|")


            NyKode = id ' brugeren har lige tilføjet "bil" til kurven

            if Ubound(arrVarerIKurven) = -1 then
           
                Session("Varenr") = Session("Varenr") & "|" & id
                Session("Antal") = Session("Antal") & "|" & Request.Form("count")
               
            end if
           
            ex = ""
           
            for j = 0 to Ubound(arrVarerIKurven)
                  if NyKode = arrVarerIKurven(j) then
                ' NyKode var lig med "næværende kode i arrVarerIKurven" = findes allerede
                    arrAntalAfVaren(j) = CInt(arrAntalAfVaren(j)) + Request.Form("count")
                    ex = "true"
                    exit for
                  end if
            next
           
            if ex = "" AND Ubound(arrVarerIKurven) <> -1 then
                Session("Varenr") = Session("Varenr") & "|" & id
                Session("Antal") = Session("Antal") & "|" & Request.Form("count")
               
                arrVarerIKurven = split(Session("Varenr"), "|")

                  arrAntalAfVaren = split(Session("Antal"), "|")
              end if
       
        dim tmpVarer, tmpAntal, left

        tmpVarer = ""
        tmpAntal = ""

        for i = 0 to ubound(arrVarerIKurven)
          tmpVarer = tmpVarer & arrVarerIKurven(i) & "|"
          tmpAntal = tmpAntal & arrAntalAfVaren(i) & "|"
        next

        ' man skal huske at fjerne de sidste auto-genererede "|"
        tmpVarer = left("" & tmpVarer, len("" & tmpVarer) - 1)
        tmpAntal = left(tmpAntal, len(tmpAntal) - 1)

        session("Varenr") = tmpVarer
        session("Antal") = tmpAntal

Hvordan ser din fejlbesked ud? Og hvorfor mente du at det lige var den linje som fejlede?

Microsoft VBScript runtime error '800a000d'

Type mismatch

/item.asp, line 86

og linie 86 er tmpVarer = left("" & tmpVarer, len("" & tmpVarer) - 1)..

Prøv med dette:

tmpVarer = ""
tmpAntal = ""

for i = 0 to ubound(arrVarerIKurven)
    if (tmpVarer <> "") then
        tmpVarer = tmpVarer & "|"
        tmpAntal = tmpAntal & "|"
    end if

    tmpVarer = tmpVarer & arrVarerIKurven(i)
    tmpAntal = tmpAntal & arrAntalAfVaren(i)
next

session("Varenr") = tmpVarer
session("Antal") = tmpAntal

nu tømmer den session'ne hele tiden så der bliver aldrig tilføjet noget :(

dim tmpVarer, tmpAntal, left

hvad laver left her?

Det var nok det som var fejlen i første omgang tmpVarer var simpelthen tom allerede da du kom ned i:

tmpVarer = left("" & tmpVarer, len("" & tmpVarer) - 1)

Dermed kom der -1 ind på 2. plads i kaldet til left.

Din allerførste kodelinje ser meget underlig ud:

id = Vare nummer

Sagens kerne er, at når du dimmer 'left', vil left ikke længere blive genkendt som en indbygget funktion, men en brugerdefineret variabel

Du kunne lige så godt skrive

tmpVarer = tmpVarer("hello world", 3)

det giver også type mismatch

' id = Vare nummer
' Request.Form("count") = Antallet af den vare man tilføjer


dim NyKode, Antal

arrVarerIKurven = split(Session("Varenr"), "|")
arrAntalAfVaren = split(Session("Antal"), "|")

NyKode = id  ' brugeren har lige tilføjet "bil" til kurven
Antal = Request.Form("count")

if Ubound(arrVarerIKurven) = -1 then
    ' Indkøbskurven var helt tom

    Session("Varenr") = NyKode
    Session("Antal") = Antal
else
    ' Der er allerede noget i indkøbskurven

    dim NyKodeFundet
    NyKodeFundet = "NEJ"

    for j = 0 to Ubound(arrVarerIKurven)
        if arrVarerIKurven(j) NyKode then
            ' NyKode var lig med "næværende kode i arrVarerIKurven" = findes allerede

            arrAntalAfVaren(j) = CInt(arrAntalAfVaren(j)) + Antal

            NyKodeFundet = "JA"
            exit for
        end if
    next
           
    if NyKodeFundet = "NEJ" then
        Session("Varenr") = Session("Varenr") & "|" & NyKode
        Session("Antal") = Session("Antal") & "|" & Antal

        arrVarerIKurven = split(Session("Varenr"), "|")
        arrAntalAfVaren = split(Session("Antal"), "|")
    end if
end if
       
dim tmpVarer, tmpAntal

tmpVarer = ""
tmpAntal = ""

for i = 0 to ubound(arrVarerIKurven)
    if (tmpVarer <> "") then
        tmpVarer = tmpVarer & "|"
        tmpAntal = tmpAntal & "|"
    end if

    tmpVarer = tmpVarer & arrVarerIKurven(i)
    tmpAntal = tmpAntal & arrAntalAfVaren(i)
next

session("Varenr") = tmpVarer
session("Antal") = tmpAntal

Nej, sådan:

' id = Vare nummer
' Request.Form("count") = Antallet af den vare man tilføjer


dim NyKode, Antal

arrVarerIKurven = split(Session("Varenr"), "|")
arrAntalAfVaren = split(Session("Antal"), "|")

NyKode = id  ' brugeren har lige tilføjet "bil" til kurven
Antal = Request.Form("count")

if Ubound(arrVarerIKurven) = -1 then
    ' Indkøbskurven var helt tom

    Session("Varenr") = NyKode
    Session("Antal") = Antal
else
    ' Der er allerede noget i indkøbskurven

    dim NyKodeFundet
    NyKodeFundet = "NEJ"

    for j = 0 to Ubound(arrVarerIKurven)
        if arrVarerIKurven(j) NyKode then
            ' NyKode var lig med "næværende kode i arrVarerIKurven" = findes allerede

            arrAntalAfVaren(j) = CInt(arrAntalAfVaren(j)) + Antal

            NyKodeFundet = "JA"
            exit for
        end if
    next
           
    if NyKodeFundet = "NEJ" then
        Session("Varenr") = Session("Varenr") & "|" & NyKode
        Session("Antal") = Session("Antal") & "|" & Antal

        arrVarerIKurven = split(Session("Varenr"), "|")
        arrAntalAfVaren = split(Session("Antal"), "|")
    end if

    session("Varenr") = join(arrVarerIKurven, "|")
    session("Antal") = join(arrAntalAfVaren, "|")
end if

fun22> Vi er ikke færdige her: http://www.eksperten.dk/spm/620995

Jeg har rettet koden, og omskrevet noget af din kode.. så nu skulle http://www.eksperten.dk/spm/620995 gerne virke..

/theSurfer

Lukketid?

nielle >> Smidder du lige et svar?

... ville helst vente med at smide et svar til at jeg var sikker på at problemet er løst. Sååe, funker det?

... nå men her kommer der så et svar i mellemtiden.