<% sub memberinfos %>

My Menu

<% 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

Your Profile

<% end sub %>