Problem med en split...

ASP

6 svar · 174 visningar · startad av saw

Medlem sedan mars 20011 880 inlägg
Trådstart#1

Jag försöker att köra följande split.

Dim arrKakID
arrKakID = split(request.Cokies("redigera") ,",")
for i = 1 to ubound arrKakID
if cint(arrKakID(i)) = cint(RS("ReplyID")) then
Response.Write Request.Cokies("redigera") & "Du får redigera"
next

Men jag får följande fel:

Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
/Hemsidor/GlobalaForeningen/Forum/forhand.asp, line 74, column 20
for i = 1 to ubound arrKakID
-------------------^

Vad tror ni?

Medlem sedan dec. 200012 464 inlägg
#2
Dim arrKakID
arrKakID = split(request.&#67ookies("redigera") ,",")
for i = 0 to ubound (arrKakID)
if cint(arrKakID(i)) = cint(RS("ReplyID")) then
Response.Write Request.&#67ookies("redigera") & "Du får redigera"
next
Medlem sedan mars 20011 880 inlägg
#3

När jag skrev som du visade mig fick jag error: oväntat NEXT
Om jag skriver så här:

arrKakID = split(request.Cokies("redigera") ,",")
for i = 0 to ubound (arrKakID)
if cint(arrKakID(i)) = cint(RS("ReplyID")) then Response.Write Request.Cokies("redigera") & "Du får redigera"
next

Då får jag

Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'cint'
/Hemsidor/GlobalaForeningen/Forum/forhand.asp, line 74

Livet är kul........eller?????

Medlem sedan dec. 200012 464 inlägg
#4

Är det något problem med null i rs("replyid") ?

if not isnull(rs("replyid")) then
arrKakID = split(request.&#67ookies("redigera") ,",")
for i = 0 to ubound (arrKakID)
if cint(arrKakID(i)) = cint(RS("ReplyID")) then 
Response.Write Request.&#67ookies("redigera") & "Du får redigera"
exit for
end if
next
end if
Medlem sedan mars 20011 880 inlägg
#5

Nej nu har jag kommit så långt, att det han klagar på är cint.
Tar jag bort det så fungerar det, men jag antar att det är ganska så viktigt?

Medlem sedan dec. 200012 464 inlägg
#6

Hur ser cookies("redigera") ut? Kan det vara något värde i den som inte går att konvertera?

Du kan testa om ett värde är numerisk med funktionen isNumeric

if not isnull(rs("replyid")) then
arrKakID = split(request.&#67ookies("redigera") ,",")
for i = 0 to ubound (arrKakID)
if isNumeric(arrKakID(i)) and isNumeric(RS("ReplyID")) then 
if cint(arrKakID(i)) = cint(RS("ReplyID")) then 
Response.Write Request.&#67ookies("redigera") & "Du får redigera"
exit for
end if
end if
next
end if
Medlem sedan mars 20011 880 inlägg
#7

Tack för all din hjälp LarsG.
Så långt så fungera allt perfekt..........tror jag.

262 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
121 ms — deklarationer (db)
0 ms — hämta statistik (cache)
138 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)