<%SUB borderStart()%> <%END SUB%> <%SUB userRegDate()%> <% Response.Write weekDayName(weekDay(objRS("bmsDateRegistered"))) & ", " & (day(objRS("bmsDateRegistered"))) & "-" & (Monthname(month(objRS("bmsDateRegistered")),true)) & "-" & (Year(objRS("bmsDateRegistered"))) %> <%END SUB%> <%SUB myDate()%> <% Response.Write weekDayName(weekDay(date)) & ", " & day(date) & "-" & monthName(month(date),true) & "-" & year(date) %> <%END SUB%> <%SUB navBar()%>

<%END SUB%> <%SUB tableSize()%>

users		our contacts

<%END SUB%> <%SUB toolNav()%> edit  <% IF objRS("bmsActive") = "true" THEN Response.Write "deactivate" ELSE IF objRS("bmsActive") = "false" THEN Response.Write "activate" END IF END IF %> <%END SUB%> <%SUB editNav()%> <% IF objRS("bmsActive") = "true" THEN Response.Write "deactivate" ELSE IF objRS("bmsActive") = "false" THEN Response.Write "activate" END IF END IF %> <%END SUB%> <%SUB borderEnd()%> <%END SUB%>