Kategori indeksering.
Jeg har en database, med lidt over 340 kateorier, og disse hentes også af mit script, men jeg vil havde den til at hente informationerne, så det kommer til at se sådanne ud :Hovedekategori
sub_kategori1, Sub_kategori2, sub_kategori3 ...
Der efter skal den forsætte til næste kattegori, men den vil ikke som jeg vil, den udskriver det hele og ellers kommer den med en fejl. Er der en der har en hurtig løsning ?
Koden ser således ud for den der hedder Function.asp :
Function Sub_kat(id)
count = 0
ban2 = "Select * from kategorier where parent_id="&id&" and parent = False"
Set Record2 = Rslinks.Execute(ban2)
While not record2.eof
id2 = Record2("id")
count = count +1
Response.write "<font face='verdana' size='1' color='gray'><a href='kat.asp?kid="&id2&"&pid="&id&"'>"&record2("kategori")&"</a> ,"
if count = 3 Then
response.write "..."
else
record2.movenext
end if
'response.write "</font>"
wend
end function
Function Links()
ban1 = "Select * from kategorier where parent=true order by kategori"
Set Record1 = Rslinks.Execute(ban1)
while record1.bof
id = Record1("id")
response.write "<tr>"
response.write"<td width='200 height='19'><font face='verdana' size='2'><a href='/links/kat.asp?kid="&id&"&parent=yes'>"&Record1("kategori")&"</a></font><br>"
sub_kat(id)
response.write"</td>"
response.write"<td width='15' height='19'> </td>"
record1.movenext
if record1.eof Then
response.write"<td width='200' height='19'> </td>"
response.write"</tr>"
else
response.write"<td width='200 height='19'><font face='verdana' size='2'><a href='/links/kat.asp?kid="&id&"&parent=yes'>"&Record1("kategori")&"</a></font><br>"
sub_kat(id)
response.write"</td></tr>"
end if
record1.movenext
wend
end function
for selve siden ser den sådanne ud :
<!-- #INCLUDE VIRTUAL="functions.asp" -->
<%links()%>
Er der en måde så hove kategorien, kan blive listet en gang, og de resterende 3 under kategorier neden under, men Maks 3 stk.
