problem med cookie

Så er det nok fordi den ene tolkes som tal og den anden som en streng. Prøv at konverter begge til int sådan her:

if int(arr(i)) = int(id) then

Du er opmærksom på at arrays er nulbaserede i VBScript, ikk'?

Jeg hæfter mig ved at du starter dit loop fra 1 og ikke 0, så jeg vil bare sikre mig at du gør det med vilje...

Nu har jeg sat det sådan her:

for i = 0 to UBOUND(arr)
if int(arr(i)) = id then
err = "1"
end if
next

men nu kommer den med en fejl:

Type mismatch: '[string: ""]' i if int(arr(i)) = id then

Okay softspot, neh det var jeg ikke.. Takker ;)

Kan du ikke prøve at vise hvad den streng du prøver at splitte indeholder, samt hvad id indeholder? Du kan f.eks. lave noget fejlhåndteringskode omkring dit loop der udskriver værdierne i det tilfælde at der opstår fejl (så er det lidt lettere at finde ud af hvad der går galt).

<%
Dim streng, arr, err
streng = request.cookies("eFrinds.dk")("Hot_Vote")
arr = SPLIT(streng, "," )

on error resume next
for i = 0 to UBOUND(arr)
  if arr(i) = id then
    err = "1"
  end if
  if err.number <> 0 then
    response.write "Fejl: streng = " & streng & "<br>arr(" & i & ") = " & arr(i) & "<br>id = " & id & "<br>"
    err.clear
  end if
next
on error goto 0

if err = "1" then
%>

så skriver den således:

Fejl: streng = ,1
arr(0) =
id = 1
Fejl: streng = ,1
arr(1) = 1
id = 1

Det vil sige at det første element er tomt og kan derfor ikke konverteres til en int. Det du bør gøre inden du konverterer en streng er at checke for om den er tom.

<%
Dim streng, arr, err
streng = request.cookies("eFrinds.dk")("Hot_Vote")
arr = SPLIT(streng, "," )

for i = 0 to UBOUND(arr)
  if len(arr(i)) > 0 and isnumeric(arr(i)) then
    if arr(i) = id then
      err = "1"
    end if
  end if
next

if err = "1" then
%>

brugen af isnumeric er naturligvis kun hvis værdien altid forventes at være et tal... :)

Eller lade den sammenligne som teskt:

if CStr(""&arr(i)) = CStr(id) then

det virker stadig ikke.. Den sætter ikke err til 1.. Den er altid tom selvom der er noget i cookien..

Prøv at bruge et andet variable navn end err da det også er navnet på error objebtet, umiddelbart kan det give nogle problemmer. eks:

errStatus = "1"

stadig ikke :(

eagleeye >> Du lever op til dit navn ;D

Prøv at vise din kode som den er lige nu.

Dvs. flg. fungerer altså ikke:

<%
Dim streng, arr, errStatus
streng = request.cookies("eFrinds.dk")("Hot_Vote")
arr = SPLIT(streng, ",")

for i = 0 to UBOUND(arr)
  if cstr(arr(i)&"") = cstr(id) then
    errStatus = "1"
  end if
next

if errStatus = "1" then
%>

<%
Dim streng, arr, errStatus
streng = request.cookies("eFrinds.dk")("Hot_Vote")
arr = SPLIT(streng, "," )

for i = 0 to UBOUND(arr)
  if len(arr(i)) > 0 and isnumeric(arr(i)) then
    if arr(i) = id then
    errStatus = "1"
  end if
end if
            next

            if errStatus = "1" then
            %>

Prøv lige den kode fra 21/12-2005 21:35:48

jo det virkede.. Det havde jeg ikke lige fået ændret det med if cstr(arr(i)&"") = cstr(id) then..

smider du et svar ??

eagleeye eller moi? Jeg synes egentlig eagleeye fortjener point - det var ham der havde fat i de vigtigste pointer :)