Paging efter manuel deling

Så skal man bruge spilt på ordet "<MITTAGPAGING>" og så har man et array med hver side i eks på koden:


<TABLE BORDER="0" WIDTH="100%">
<TR>
  <TD>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db5.mdb")

id = Request("id")
subpage = Int(Request("subpage"))
if subpage = "" then subpage = 0

SQL = "SELECT * FROM nyhederTB WHERE ID = " & id
Set rs = Conn.Execute(SQL)

arrSider = Split(rs("nyhedsTekst"), "<MITTAGPAGING>")

'Tjek om subpage er større end arrayet hvis ja sættes supage til 0
if subpage > ubound(arrside) then subpage=0

'Udskrive teksten på siden
Response.Write arrSider(subpage)

'Laver Forrige og Næste links
Response.Write "<br><br>"
if subpage > 0 then
  Response.Write "<a href=""?subpage=" & subpage-1&"&id="&id&""">Forrige side</a>"
else
  Response.Write "Forrige side"
end if
Response.Write " | "
if subpage < Int(ubound(arrSider)) then
  Response.Write "<a href=""?subpage=" & subpage+1&"&id="&id&""">Næste side</a>"
else
  Response.Write "Næste side"
end if
%>
  </TD>
</TR>
</TABLE>

Hej igen,

Jeg får denne fejl: Typer stemmer ikke overens: 'ubound'

Her er min kode.

id = 1
subpage = Int(Request("subpage"))
if subpage = "" then subpage = 0

SQL = "SELECT * FROM tbl_Articles WHERE ArticleID = " & id
Set rs = Conn.Execute(SQL)

arrSider = Split(rs("ArticleContent"), "<MITTAGPAGING>")

'Tjek om subpage er større end arrayet hvis ja sættes supage til 0
if subpage > ubound(arrside) then subpage=0

'Udskrive teksten på siden
Response.Write arrSider(subpage)

'Laver Forrige og Næste links
Response.Write "<br><br>"
if subpage > 0 then
  Response.Write "<a href=""?subpage=" & subpage-1&"&id="&id&""">Forrige side</a>"
else
  Response.Write "Forrige side"
end if
Response.Write " | "
if subpage < Int(ubound(arrSider)) then
  Response.Write "<a href=""?subpage=" & subpage+1&"&id="&id&""">Næste side</a>"
else
  Response.Write "Næste side"
end if

Arh jeg har lavet en skrive fejl i denne linje:
if subpage > ubound(arrside) then subpage=0

Der skal stå arrSider med r så prøv at rette den til:

if subpage > ubound(arrSider) then subpage=0

Ahh... Tak endnu en gang, for det hurtige svar.
PS: Opret venligst et svar, så du kan få dine points :D

Ok ;)

Takker