<%@language=vbscript%>
<%
Option Explicit
Response.Expires = -1000
If isnull(Session("LoginID")) AND isempty(Session("LoginID")) Then
Response.Redirect("default.asp?MSG=NOTLOGGED")
End If
Dim rsLinks, strGetLinks
%>
<%
Set rsLinks = Server.CreateObject("ADODB.Recordset")
'strGetLinks = "SELECT LinkID, LinkText, LinkHref FROM tblLinks"
strGetLinks = "SELECT l.LinkText, l.LinkHref, l.LinkID, l.LinkCategoryID, c.LinkCategory FROM tblLinks l INNER JOIN tblLinkCategory c ON l.LinkCategoryID = c.LinkCategoryID ORDER BY l.LinkCategoryID ASC"
Set rsLinks = oConn.Execute(strGetLinks)
%>