<%@ LANGUAGE="VBSCRIPT" %>
<%
Response.Buffer = true
Set DConn = Server.CreateObject("ADODB.Connection")
DConn.ConnectionTimeout = 0
DConn.CommandTimeout = 0
DConn.Open "DSN=s1044000_nordvisadb;Password=qWKj4TQn"
Dim RS
sql = "SELECT * FROM category RIGHT JOIN links ON category.categoryid = links.categoryid ORDER BY category.category, links.linktext"
set RS = DConn.execute(sql)%>
Nordiska vislänkar
<%categ = ""
do while not RS.EOF
gnu = RS("description")
if not RS("category") = categ then
if not categ = "" then%>
<% end if
categ = RS("category")
slut = "Y"%>
