<% ' This Function checks to see the page requested and ' grabs the content for that page Function display_content() %> <% querya = "SELECT Menu.id, Menu_Content.Menuid, Menu.MenuName, Menu_Content.Contentid "_ &" FROM Menu INNER JOIN Menu_Content ON Menu.id = Menu_Content.Menuid "_ &" WHERE Menu.id = " & pg & " And Menu_Content.Menuid = " & pg & " " Set rsBlankCheck = conn.execute(querya) if rsBlankCheck.EOF then 'code for when there is NO content 'Response.Write "no content" ' start blank check display ------------------------------------------- queryb = "SELECT * From Content "_ & "WHERE ContentName = '" & "front page" & "' " 'Response.Write query 'Response.End Set rsBlankPrint = conn.execute(queryb) do until rsBlankPrint.EOF Response.Write rsBlankPrint("ContentBody") rsBlankPrint.movenext loop rsBlankPrint.close set rsBlankPrint = nothing 'finish blank check display ------------------------------------------- else 'code for when there is YES content 'Response.Write "this menu item has content attached to it " ' start with content check display ------------------------------------------- %>
<% query = "SELECT Content.Contentid, Content.ContentName, " _ & "Content.ContentBody, Menu_Content.ContentOrder " _ & "FROM Content INNER JOIN Menu_Content ON Content.Contentid = Menu_Content.Contentid " _ & "WHERE Menu_Content.Menuid=" & pg Set rsContent = conn.execute(query) do until rsContent.EOF Response.Write rsContent("ContentBody") rsContent.movenext loop rsContent.close set rsContent = nothing %>
<% ' start with content check display ------------------------------------------- end if rsBlankCheck.close set rsBlankCheck = nothing %> <% End Function %>