<% Dim strHeadLine strHeadLine = PageText("Rubrik") Sub AddExtraJavaScript End Sub Sub PrintPageSpecific Dim objRS Dim objCatRS Dim strSQL %>

<%=strHeadLine%>

<% If (LoadPageText("Bild 340", "/dynamic/" & strCurrentPage & ".asp")) <> "" Then %>
<%=PageText("Bild 340")%>

<% End If %> <% If (LoadPageText("Text", "/dynamic/" & strCurrentPage & ".asp")) <> "" Then %> <%=PageText("Text")%>

<% End If %> <% strSQL = "SELECT LC.lngLinkCategoryID, LC.strName" & vbCrLf & _ "FROM LinkCategory AS LC, Link AS L" & vbCrLf & _ "WHERE L.lngLinkCategoryID = LC.lngLinkCategoryID" & vbCrLf & _ "GROUP BY LC.lngLinkCategoryID, LC.strName" & vbCrLf & _ "ORDER BY LC.strName;" Set objCatRS = Server.CreateObject("ADODB.Recordset") objCatRS.Open strSQL, objDatabase, adOpenStatic Do Until objCatRS.EOF %>
<%=UCase(objCatRS.Fields("strName").Value)%>

<% strSQL = "SELECT L.* " & _ "FROM Link AS L " & _ "WHERE L.lngLinkCategoryID = " & objCatRS.Fields("lngLinkCategoryID").Value & " " & _ "ORDER BY L.strName" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objDatabase, adOpenStatic Do Until objRS.EOF %> <% If ReturnDec(objRS.Fields("strDescription").Value) <> "" Then %>
<%=Replace(ReturnDec(objRS.Fields("strDescription").Value), vbCrLf, "
" & vbCrLf)%>
<% End If %>
<% objRS.MoveNext Loop %> <% objCatRS.MoveNext Loop %>

<%ShowAds()%>
<% End Sub %> <% PrintPage strHeadLine %>