Array problem

Det är lika bra jag plockar fram hela sökningen...

'---- Ger sökningen värde ----
	sokDatum = Dateum & "^" & Taskcode
	strSes = Session("srtDatum")

'---- Söker i Sessionen ----
	If (IsEmpty(strSes) = False) then
		IStr = InStrRev(strSes, sokDatum)
	End If

'---- Om sökningen gav resultat tar vi bort den ----
	If Not IStr = "0" Then
		strSes = Split(strSes,";")
		FilterDatum = Filter(strSes, sokDatum, False, 1)
		ArryDatum = Join(FilterDatum,";")
		ArryDatum = Split(ArryDatum,";")
		Session("srtDatum") = ArryDatum
	Else

'---- Om det ska läggas till i arrayen ----
		strDatum = Session("srtDatum") & Dateum & "^" & Taskcode & ";"
		Session("srtDatum") = strDatum
	End If

Det funkar att lägga till. Det är bortplockningen som inte riktigt vill.
Felmedelande:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'strSes'

Och det är när jag söker med InStrRev som den inte gillar.

från början är Session("srtDatum") tom

Någon som ser något fel?

Det är session den inte gillar.
Det går inte ens att skriva ut den (session("strDatum")). Inte ens om man nolställer den före. och fyller den med en liten sträng. Förstår inget.

Har bl.a gjort denna

session("strDatum") = ""
If IsEmpty(Session("srtDatum")) Then Session("srtDatum") = "etta;"

Response.Write "Visa " & Session("srtDatum")

IsEmpty ger inte true när sessionen innehåller en tom sträng.

http://www.devguru.com/technologies/wml/vbscript/quickref/isempty.html

Man kan ju prova en annan approach:

If Len(Cstr(session("srtdatum"))) = 0 then