Hmmm fejlmelding omkring \'ubound\'

Skriv lige linjerne der er fejl i. Det er nemmere. Men du kan jo kun bruge ubound på en array. Du bruger den på en array, ikke ?

linjen der fejler er : if start <> 0 AND ubound(myarray) > start + 6 then

prøv i linjen før det skrive:

response.write myarray(0)

Se om den skriver noget. Hvis ikke er fejlen at arrayen er tom.

nu skriver den :
Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a000d\'

Typerne passer ikke sammen: \'myArray\'

/vis2.asp, linje 115

Det er fordi myArray ikke er en array. Det skal den være. Det er det der er dit problem.

response.write isarray(myarray)

Kan vise om det er en array. Det er vist mine points så :)

Måske du kunne kontakte mig på icq : 92064248 så kan du få siden

det virkede ikke

Husk lige at splitte din streng så puteren ved at du bygger et array
Dim myArray
myArray = \"1,2,3,4,5,6,7,8\"
myArray = Split(myArray, \",\") <- her bygges array

derefter kan du bruge LBound eller UBound

eller du kan gøre sådan...
Dim myArray
myArray = Array(1,2,3,4,5,6,7,8,9)

horsmark kan du ikke kontakte mig på icq eller give mig din mail så kan du lige få filen ?

no_doubt fang mig på mailen HorsMark@tdc.dk

mail med filen sendt

hmmm og lige hvor brækker koden sig over det med arrayet?

http://zequenze.dns2go.com/vis2.asp

gå ind på et af billederne så er fejlen nederst

gider du ikke liige smide en response.write ubound(myarray) ind lige før den brækker sig?

Det er en AND og jeg tror du lige skal smide udsagn 2 i paranteser!

if start <> 0 AND (ubound(myarray) > start + 6) then

Hvilket forresten altid er en god idé at huske :-)

Hellere for mange paranteser end for få

Jeg tror faktisk at puteren sætter \"skjulte\" paranteser således

if (start <> 0 AND ubound(myarray)) > start + 6 then
...

ændre ikke noget her.

jeg fatter det ikke kan du ikke rette det så den dutter ?

så prøv lige at smide dette ind som test

if Int(start) <> 0 AND (Int(ubound(myarray)) > Int(start) + 6) then...

vil du ikke lige smide dette ind i stykket før den kokser

response.write \"start= \" & start
response.write \"ubound(myarray)= \" & ubound(myarray)

Jeg mener du bliver sq nødt til lige at se hvad de indeholder for at kunne se hvad der er galt

samme fejl

er smidt ind : http://zequenze.dns2go.com/vis2.asp

oki hvad kan start indeholde jf. request.querystring(\"start\") ?
Tekst?
Tal?

jeg er ikke med ?

Jeg mener du tildeler start en værdi 0 hvis request.querystring(\"start\") = \"\"

Hvad er request.querystring(\"start\")??

kan den indeholde tekst?

øhh det ved jeg ikke du har jo scriptet

hihi jojo men kan request.querystring(\"start\") kun være tal eller \" 4\" (mellemrum og et firtal) eller \"tekst\"

kan vel kun være tal

start = Int(request.querystring(\"start\"))

hopper i seng du kan få 100 hvis den virker  og ligger i min inbox imorgen *s* ( mark.mikkelsen@mail.dk )

\'Tjeck om myArray er Array ellers tildel værdi nul
  Dim iArray
  If IsArray(myarray) = True Then
    iArray = Ubound(myArray)
    Else iArray = 0
  End If

if start <> 0 then
  response.write(\"<a href=\'\"&request.servervariables(\"script_name\")&\"?start=\" & (start - 6) & \"\'\'><font face=\'Arial\' size=\'3\' color=\'#000000\'>Forrige side</font></a>\")
end if

if start <> 0 AND iArray > start + 6 then
  response.write(\"&nbsp;/&nbsp;\")
end if

if iArray > start + 6 then
  response.write(\"<a href=\'\"&request.servervariables(\"script_name\")&\"?start=\" & (start + 6) & \"\'\'><font face=\'Arial\' size=\'3\' color=\'#000000\'>Næste side</font></a>\")
end if

Problemet er at du ikke kan lave en Ubound hvis der intet array er. Derfor laver jeg først et check på om array eksisterer!

Mvh.
Jesper