<% strMenuWindowSize = (request.querystring("menu")) if strMenuWindowSize <> "" then '#### Set Cookies For Menu Window Response.Cookies(strUniqueID)("MenuWindow")=(strMenuWindowSize) '#### End of Set Cookies For News Window end if if (chkUser((strDBNTUserName), (Request.Cookies(strUniqueID & "User")("Pword"))) = 0) then if (Request.Cookies(strUniqueID)("MenuWindow")= "1") then '### Check Cookie For Minimize Status %> <% else %>

Main Menu

<% end if %> <% else if (Request.Cookies(strUniqueID)("MenuWindow")= "1") then '### Check Cookie For Minimize Status %>

Main Menu

Register

Whats New

Active Topics

<% else %>

<%=strDBNTUserName%>'s Menu

<% if (mlev = 4) or (lcase(strNoCookies) = "1") then %> <% end if %> <% end if %> <% end if %>

<%=strDBNTUserName%>s Menu

My Page

Whats New

Forums

Active Topics

Admin's

Administration

General Stats

Monthly Stats

Your Profile

<% set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString strSql ="SELECT " & strTablePrefix & "TOTALS.U_COUNT " strSql = strSql & " FROM " & strTablePrefix & "TOTALS " set rs = my_Conn.execute(strSql) TotalUsers = rs("U_COUNT") Response.write("Currently " & "" & TotalUsers & "" & " members.") %> Active Users: <%=strOnlineMembersCount%> Members and <%=strOnlineGuestsCount%> Guests