ASP Haj søges....

Hej Eksperter....

Jeg har hele weekenden rodet med det her stykke kode men uanset hvad jeg gør for jeg fejlen

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'spilt'
/string/vare_update.asp, line 8

Dim arr_antal(20), i, arr_id(20)
arr_antal = spilt(request("vare_antal"), ",") 'dette er linje 8

arr_Id = Spilt(Request("Vare_ID"), ",")

For i = 0 to uBound(Arr_ID) ' RETTET

    SQL="Select * from kurv Where ID = " & arr_id(i)
    Set Rs=Conn.Execute(SQL)
    Set Recordset1 = Server.CreateObject("ADODB.Recordset")

    Recordset1.Open SQL, Conn, 2, 3
    Recordset1.update
    Recordset1("Vare_antal") = Recordset1("Vare_antal") + arr_antal(i)
    Recordset1.Update
    Recordset1.Close

Next

Hvis man under vis kurv prøver at opdatere vare antal går det galt. http://62.242.254.9/string/

Fejlen opstår uanset om der er noget i kurven eller ej. Om der er en eller flere vare.

Med venlig hilsen

Ares