<%If Request.QueryString("catId") <> "" Then Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId")) End If%>

Länkarkivet<%If Request.QueryString("catId") <> "" Then%><%If Not Kat.EOF Then%> - <%=Kat("kat")%><%End If%><%End If%>

<%If Request.QueryString("catId") = "" Then Set RS=Conn.Execute("Select * From kat Where sub_kat=0") If RS.EOF Then%>
Inga kategorier inlagda
<%Else%>
<%x=0 Do Until RS.EOF Response.Write "" For i=1 to PK%> " Next Response.Write "" Loop%>
<%If RS.EOF then%>
 
<%Else%>
"><%=RS("kat")%>
<%X=X+1 RS.MoveNext End If Response.Write "
<%End If Else Set RS=Conn.Execute("Select * From kat Where sub_kat=" & Request.QueryString("catId")) Set Antal=Conn.Execute("Select Count(*) As antal From kat Where sub_kat=" & Request.QueryString("catId")) If Antal("antal") <> "0" Then If RS.EOF Then%>
Inget finns under <%=Kat("kat")%>
<%Else%>
<%x=0 Do Until RS.EOF Response.Write "" For i=1 to PK%> " Next Response.Write "" Loop%>
<%If RS.EOF then%>
 
<%Else%>
"class="vit"><%=RS("kat")%>
<%X=X+1 RS.MoveNext End If Response.Write "
<%End If Else%>
<%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId")) If Url.EOF Then%>
Inget finns under <%=Kat("kat")%>
<%Else Do Until Url.EOF%>
" target="_blank" class="rubrik" onclick="javascript:location.reload();" onMouseOver="self.status='<%=Url("url")%>';return true" onMouseOut="self.status=' ';return true"><%=Code(Url("namn"))%> - <%=Url("klick")%> klick
<%=Code(Url("info"))%>
<%Url.MoveNext Loop End If End If If Request.QueryString("catId") <> "" Then Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))%>
<%If Kat("sub_kat") = 0 Then%> Tillbaka <%Else%> ">Tillbaka <%End If%>
<%End If End If Conn.Close Set Conn=Nothing%>