|
|
 |
<% ' #### INKLUDERAR PRODUKTHÄMTNING IFRÅN DATABAS #### %>
<%
set rubrs=conn.execute("SELECT * FROM extLinkCat")
do while not rubrs.eof
rubid = rubrs("ID")
set linkrs=conn.execute("SELECT * FROM extLinks WHERE linkcat = " & rubid & " ORDER BY ID ASC")
if not linkrs.bof and not linkrs.eof then
'Visa rubriken:
%>
| |
|
<%=ucase(rubrs("CatDesc"))%>
|
<%
end if
do while not linkrs.eof
'Visa länkar:
%>
|
<%
if linkrs("href") <> "-" then
response.write("")
end if
response.write(linkrs("description"))
if linkrs("href") <> "-" then
response.write("")
end if
response.write(" | ")
linkrs.movenext
loop
linkrs.close
set linkrs = nothing
rubrs.movenext
loop
rubrs.close
set rubrs = nothing
%>
<%
conn.close
set conn = nothing
%>
<% ' #### INKLUDERAR PRODUKTHÄMTNING IFRÅN DATABAS #### %>
|
