Member Log-in

<% Option Explicit Dim sql, username, rsUser, rsMessages, newcount username = Session("username") 'If the username cookie is set, they must have logged in, so get their details from the database if username <> "" then %> <% sql = "SELECT icon FROM Users WHERE username = '" & username & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3, 3 sql = "SELECT messageread FROM messages WHERE sendto = '" & username & "'" Set rsMessages = Server.CreateObject("ADODB.Recordset") rsMessages.Open sql, conn, 3, 3 newcount = 0 if not rsMessages.EOF then rsMessages.Movefirst do until rsMessages.EOF if rsMessages("messageread") = False then newcount = newcount + 1 end if rsMessages.Movenext loop rsMessages.Movefirst end if end if %> Member Log-in

Members Only LOG-IN

<%'If they're not logged in, then display a login box if username = "" then%> <%'If they are, show a mini profile box plus a sign out link else%> <% rsUser.close set rsUser = nothing rsMessages.close set rsMessages = nothing conn.close set conn = nothing end if %>

Sign In <%=Request.Cookies("remember")%>
Username : "> Password : Remember me : "" then Response.Write("checked") end if%>> I forgot my password - sign me up!
Welcome Back!
.gif" width=50 height=50 align="right"> Welcome <%=username%>. View/Edit Profile My Inbox (<%=newcount%> new) View Userlist Sign Out

If you are not currently an NJAST member please join NJAST. A membership form is located on the Registration page. Once you have joined NJAST you can sign up here for access to the members only pages on this site.

If you check the "Remember Me" checkbox the system will remember your username for next visit (you will still have to enter your password).

Registered members can access the user list and inbox, which include message sending facilities. These messages are accessible only through the website.

Once you are logged in, you can use the Profile

Editor to edit your stored profile.1