husk de sidste sider

du kunne jo gøre det med querystring..

for t=1 to 5
if request.querystring(t)<>"" then
  arrsider = "," & request.querystring(t)
end if
next

if ubound(arrsider)<>0 then
  if ubound(arrsider)=1 then
    response.write "Den sidste side:"
  else
    response.write "De sidste " & ubound(arrsider) & " sider:"
  end if
for t=1 to ubound(arrsider)
  response.write "<br>" & t & ": " & arrsider(t)
next

query = "?1=" & Request.ServerVariables("SCRIPT_NAME")
for t = 1 to ubound(arrsider)
  if t<>5 then
    query = query & "&" & t+1 & "=" & arrsider(t)
  end if
next


link på siden:

response.write "<a href='link_til_siden.asp" & query & "'>blabla</a>"

prøv det hjer.. det er ikke testet...

kunne eventuelt udbygges, så der også bliver linket til de sidste 5 sider...

for t=1 to 5
if request.querystring(t)<>"" then
  arrsider = "," & request.querystring(t)
end if
next

query = "?1=" & Request.ServerVariables("SCRIPT_NAME")
for t = 1 to ubound(arrsider)
  if t<>5 then
    query = query & "&" & t+1 & "=" & arrsider(t)
  end if
next


if ubound(arrsider)<>0 then
  if ubound(arrsider)=1 then
    response.write "Den sidste side:"
  else
    response.write "De sidste " & ubound(arrsider) & " sider:"
  end if
for t=1 to ubound(arrsider)
  response.write "<br>" & t & ": <a href='" & arrsider(t) & "'>" & arrsider(t) & "</a>
next




link på siden:

response.write "<a href='link_til_siden.asp" & query & "'>blabla</a>"

Den kommer med denne fejl

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a03f6'

'End' var ventet

/prove.asp, linje 27

det er i denne linje
response.write "<a href='link_til_siden.asp" & query & "'>blabla</a>"

det kan jeg ikke lige overskue :-)

if ubound(arrsider)<>0 then
  if ubound(arrsider)=1 then
    response.write "Den sidste side:"
  else
    response.write "De sidste " & ubound(arrsider) & " sider:"
  end if
end if <-- her havde jeg glemt et "end if"
for t=1 to ubound(arrsider)
  response.write "<br>" & t & ": <a href='" & arrsider(t) & "'>" & arrsider(t) & "</a>
next

bliver så til:


for t=1 to 5
if request.querystring(t)<>"" then
  arrsider = "," & request.querystring(t)
end if
next

query = "?1=" & Request.ServerVariables("SCRIPT_NAME")
for t = 1 to ubound(arrsider)
  if t<>5 then
    query = query & "&" & t+1 & "=" & arrsider(t)
  end if
next


if ubound(arrsider)<>0 then
  if ubound(arrsider)=1 then
    response.write "Den sidste side:"
  else
    response.write "De sidste " & ubound(arrsider) & " sider:"
  end if
end if
for t=1 to ubound(arrsider)
  response.write "<br>" & t & ": <a href='" & arrsider(t) & "'>" & arrsider(t) & "</a>
next




link på siden:

response.write "<a href='link_til_siden.asp" & query & "'>blabla</a>"

hov.. jeg har helt glemt at splitte det..

for t=1 to 5
if request.querystring(t)<>"" then
  arrsider = "," & request.querystring(t)
end if
next

arrsider = split(arrsider,",")

query = "?1=" & Request.ServerVariables("SCRIPT_NAME")
for t = 1 to ubound(arrsider)
  if t<>5 then
    query = query & "&" & t+1 & "=" & arrsider(t)
  end if
next


if ubound(arrsider)<>0 then
  if ubound(arrsider)=1 then
    response.write "Den sidste side:"
  else
    response.write "De sidste " & ubound(arrsider) & " sider:"
  end if
end if
for t=1 to ubound(arrsider)
  response.write "<br>" & t & ": <a href='" & arrsider(t) & "'>" & arrsider(t) & "</a>
next




link på siden:

response.write "<a href='link_til_siden.asp" & query & "'>blabla</a>"

vi prover med denne fejl

Request-objekt fejl 'ASP 0105 : 80004005'

Indekset er uden for det gyldige område

/grarup/familie/prove.asp, linje 3

Et matrixindeks ligger uden for det gyldige område

hvilken linje er 3??

if request.querystring(t)<>"" then

Har det noget at gøremed hvordan siden kaldes
eks. prove.asp?1=side
er det sådan du havde forestillet dig det eller hva

det kan være, en querystring ikke kan være kun et tal...

for t=1 to 5
if request.querystring("a" & t)<>"" then
  arrsider = "," & request.querystring("a" & t)
end if
next

arrsider = split(arrsider,",")

query = "?a1=" & Request.ServerVariables("SCRIPT_NAME")
for t = 1 to ubound(arrsider)
  if t<>5 then
    query = query & "&a" & t+1 & "=" & arrsider(t)
  end if
next


if ubound(arrsider)<>0 then
  if ubound(arrsider)=1 then
    response.write "Den sidste side:"
  else
    response.write "De sidste " & ubound(arrsider) & " sider:"
  end if
end if
for t=1 to ubound(arrsider)
  response.write "<br>" & t & ": <a href='" & arrsider(t) & "'>" & arrsider(t) & "</a>
next




link på siden:

response.write "<a href='link_til_siden.asp" & query & "'>blabla</a>"

ja.. at de sidste 5 sider bliver gemt i queystrings.. eks..

link til index.asp

<a href='index.asp?a1=hey.asp&a2=noget.asp&a3osv.asp

Det virker :-) jeg takker mange gange

your welcome..