Blev lidt stolt så jeg blir nød til at vise det:p ved ikke hvorfor i ka des mig så meget i vil
En side skift funtion uden underlige koder man ikke forstår ved alle de sideskift function scripts man kan hente... øøh ja. Brugte langtid på at få den her til at gå op.
<%
'tæller alle nyhhederene
kkaa = 0
do until tall.eof
kkaa = kkaa + 1
tall.movenext
loop
'list nyhedderne
if ln.bof or ln.eof then
response.Write("<hr>Der er ingen nyhedder")
else
sum = 0
do until tal.eof
sum = sum + 1
tal.movenext
loop
aa = request.QueryString("a")
bb = request.QueryString("b")
if request.QueryString("a") <> "" then
for j = 1 to aa
ln.movenext
next
else
aa = 0
bb = 3
end if
for x = aa to bb
%>
list nyhedderne eller beskederne eller nået
<%
ln.movenext
next
end if
%>
<%
c = 0
d = 3
%>
<%
summ = Round(sum/4, 0)
%>
<%for a = 1 to summ%>
<a href="index.asp?page=news&x=<%=a%>&a=<%=c%>&b=<%=d%>"><%=u%><%=a%><%=uu%></a>
<%
c = c + 4
d = d + 4
jaja = sum / summ
if d => sum then
f = d
d = d - sum
d = f - d - 1
if jaja > 4 then%>
<a href="index.asp?page=news&x=<%=a%>&a=<%=c%>&b=<%=d%>"><%=u%><%=a+1%><%=uu%></a>
<%
end if
end if%>
<%next%>
Jo og så, hvis der er nogle der har en anden, måske mere simple måde at gøre det på kunne jeg meget godt tænke mig at se den :p
[Redigeret d. 10/12-05 01:46:51 af Bjarke]