2 svar · 267 visningar · startad av Boorg
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