<% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" MM_webblogmanager_STRING = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/databases/WebBlogManager.mdb") & ";" %> <% Dim rsMasthead Dim rsMasthead_numRows Set rsMasthead = Server.CreateObject("ADODB.Recordset") rsMasthead.ActiveConnection = MM_webblogmanager_STRING rsMasthead.Source = "SELECT ConfigID, General_AppLogo, General_AppName FROM tblConfig" rsMasthead.CursorType = 0 rsMasthead.CursorLocation = 2 rsMasthead.LockType = 1 rsMasthead.Open() rsMasthead_numRows = 0 %>

<% if (rsMasthead.Fields.Item("General_AppLogo").Value) <> "" Then %> "> <% end if%> <%=(rsMasthead.Fields.Item("General_AppName").Value)%>

<% rsMasthead.Close() Set rsMasthead = Nothing %>

<% ' *** Logout the current user. MM_Logout = request.servervariables("URL") & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Contents.Remove("MM_UsernameAdmin") Session.Contents.Remove("MM_UserAuthorizationAdmin") MM_logoutRedirectPage = request.servervariables("URL") ' redirect with URL parameters (remove the "MM_Logoutnow" query param). Response.Redirect(MM_logoutRedirectPage) End If %>

<% end if%>

<% if Request.QueryString("show") = "welcome" Then %> <% Server.Execute ("/includes/item_display/inc_welcome.asp") %> <% end if%> <% IF NOT Request.QueryString("show") <> "" and Request.QueryString("valid") = "" and Request.QueryString("problem") = "" and Request.QueryString("signin") <> "yes" Then %> <% Server.Execute ("/includes/item_display/inc_list_detail_item.asp") %> <% Elseif Request.QueryString("show") = "insert" Then %> <% Server.Execute ("/includes/item_management/insert/inc_insert.asp") %> <% Elseif Request.QueryString("show") = "update" Then %> <% Server.Execute ("/includes/item_management/update/inc_update.asp") %> <% Elseif Request.QueryString("show") = "login" Then %> <% Server.Execute ("/includes/security/login/inc_login.asp") %> <% Elseif Request.QueryString("show") = "settings" Then %> <% Server.Execute ("/includes/settings/inc_settings.asp") %> <% Elseif Request.QueryString("show") = "help" Then %> <% Server.Execute ("/includes/help/inc_help_guide_WBM.asp") %> <% Elseif Request.QueryString("show") = "comments" Then %> <% Server.Execute ("/includes/item_management/comments/inc_worksheet.asp") %> <% Elseif Request.QueryString("show") = "sendpassword" Then %> <% Server.Execute ("/applications/MembersAreaManager/components/inc_entity_login_send_password.asp") %> <% Elseif Request.QueryString("show") = "register" Then %> <% Server.Execute ("/applications/MembersAreaManager/components/inc_entity_profile_registration.asp") %> <% Elseif Request.QueryString("show") = "confirmation" Then %> <% Server.Execute ("/applications/MembersAreaManager/components/inc_entity_profile_registration_confirmation.asp") %> <% else %> <% end if ' If Request.QueryString("show") %>

<% IF NOT Request.QueryString("show") = "help" Then %> <% IF NOT Request.QueryString("show") = "settings" Then %>

<% Server.Execute ("/includes/search/keyword/inc_search_by_keyword.asp") %>

<% Server.Execute ("/includes/search/category/inc_search_by_category_listing.asp") %>

<%end if%><%end if%> <% IF Request.QueryString("action") = "view" Then %>

<% Server.Execute ("/includes/item_display/detail/inc_extra_detail.asp") %>

<% Elseif Request.QueryString("action") = "post" Then %>

<% Server.Execute ("/includes/item_management/insert/inc_insert_extra_detail.asp") %>

<% Elseif Request.QueryString("action") = "refer" Then %>

<% Server.Execute ("/includes/user_actions/inc_send_to_friend.asp") %>

<% Elseif Request.QueryString("action") = "email" Then %>

<% Server.Execute ("/includes/user_actions/inc_send_reply.asp") %>

<%end if%>

<% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" MM_webblogmanager_STRING = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/databases/WebBlogManager.mdb") & ";" %> <% Dim rsFooter Dim rsFooter_numRows Set rsFooter = Server.CreateObject("ADODB.Recordset") rsFooter.ActiveConnection = MM_webblogmanager_STRING rsFooter.Source = "SELECT ConfigID, General_AppFooter FROM tblConfig" rsFooter.CursorType = 0 rsFooter.CursorLocation = 2 rsFooter.LockType = 1 rsFooter.Open() rsFooter_numRows = 0 %>

<%=(rsFooter.Fields.Item("General_AppFooter").Value)%> <% if Session("MM_UsernameAdmin") = "" then %> | ?show=login" >Admin Login | <% End If %>

<% rsFooter.Close() Set rsFooter = Nothing %>