Link Library
<%SQLString = "SELECT ResourceOptions.* FROM ResourceCategoryTypes " & _ "INNER JOIN (ResourceOptions INNER JOIN ResourceCategories ON ResourceOptions.ResourceCategoryID " & _ "= ResourceCategories.ResourceCategoryID) ON ResourceCategoryTypes.ResourceCategoryTypeID " & _ "= ResourceCategories.ResourceCategoryTypeID WHERE ResourceCategoryTypes.ResourceCategoryTypeName='Roles' " & _ "AND ResourceOptions.Discontinued IS NULL" 'Response.Write(SQLstring) 'DEBUG SQLString set rsOpt = DB.execute(SQLString)%> <%if not rsOpt.eof then%> <%do while not rsOpt.eof%> <%rsOpt.movenext%> <%Loop%> <%else%> <%end if%> <%rsOpt.close : set rsOpt=nothing%>
Resource Categories
"> <%=rsOpt("ResourceOptionName")%>
All Categories
There are no categories to view.
<%SQLString = "SELECT ResourceOptions.* FROM ResourceCategoryTypes " & _ "INNER JOIN (ResourceOptions INNER JOIN ResourceCategories ON ResourceOptions.ResourceCategoryID " & _ "= ResourceCategories.ResourceCategoryID) ON ResourceCategoryTypes.ResourceCategoryTypeID " & _ "= ResourceCategories.ResourceCategoryTypeID WHERE ResourceCategoryTypes.ResourceCategoryTypeName='Roles' " & _ "AND ResourceOptions.Discontinued IS NULL" 'makeshift code to allow me to filter by Roles if Request.QueryString("ResourceOptionID") <> "" then SQLString = SQLString & " AND ResourceOptionID = " & Request.QueryString("ResourceOptionID") end if 'Response.Write(SQLstring) 'DEBUG SQLString set rsOpt = DB.execute(SQLString)%> <%if rsOpt.eof then%> <%else%> <%do while not rsOpt.eof%> <%SQLString = "SELECT * FROM ResourceLinks, ResourceLinkOptions " & _ " WHERE ResourceLinks.ResourceLinkID = ResourceLinkOptions.ResourceLinkID" & _ " AND ResourceLinkOptions.ResourceOptionID = " & rsOpt("ResourceOptionID") 'Response.Write(SQLstring) 'DEBUG SQLString set rs = DB.execute(SQLString) if rs.eof then%> <%else%> <%do while not rs.eof SQLString = "SELECT * FROM ResourceLinks WHERE ResourceLinkID = " & rs("ResourceLinkID") 'Response.Write(SQLstring) 'DEBUG SQLString set rsLink = DB.execute(SQLString)%> <%if not rsLink.eof then%> <%else%> <%end if%> <%rsLink.close : set rsLink=nothing%> <%rs.movenext Loop%> <%end if%> <%rsOpt.movenext Loop%> <%end if%>
Links
There are no categories to view.
There are no links to view.
<%=rsOpt("ResourceOptionName")%>
" target="_blank"><%=rsLink("ResourceLinkName")%>
" target="_blank"><%=rsLink("ResourceLinkURL")%>
<%=rsLink("ResourceLinkDesc")%>
 
There are no links to view.
 
<%DB.close : set DB = nothing%>