User List

<% Option Explicit Dim sql, rsUsers, rsUser, username, startletter, alphabet, userdisplay, recordnum, count, lastpage, usercount, userpage, rsMessages, newcount username = Session("username") startletter = Request.QueryString("startletter") recordnum = Request.QueryString("recordnum") 'Example of protecting a page for members only if username = "" then Response.Redirect("nologin.asp?page=userview.asp") end if 'If no letter has been clicked (this is 1st visit), start displaying at letter A if startletter = "" then startletter = "A" end if %> <% 'CHANGE THIS FIGURE TO CHANGE AMOUNT OF USERS DISPLAYED PER PAGE userdisplay = 30 if recordnum = "" then recordnum = 0 end if 'If 123 option is chosen, pick all records that don't start with a letter (this makes a BIG sql string) if startletter = "nonalphabet" then sql = "SELECT username, icon FROM users WHERE username Not Like 'a%'" for alphabet = 98 to 122 sql = sql & " AND username Not Like '" & chr(alphabet) & "%'" next sql = sql & " ORDER BY username" 'If list all users is chosen, make an sql string to grab all records elseif startletter = "all" then sql = "SELECT username, icon FROM users ORDER BY username" 'Otherwise just get the users that start with the chosen letter else sql = "SELECT username, icon FROM users WHERE username Like '" & startletter & "%' ORDER BY username" end if Set rsUsers = Server.CreateObject("ADODB.Recordset") rsUsers.Open sql, conn, 3, 3 if not rsUsers.EOF then usercount = rsUsers.Recordcount end if 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 rsMessages.close set rsMessages = nothing %> User List

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

List of users

Here's a listing of all signed-up members. Clicking the letters along the top shows names starting with that letter. You can message someone else by clicking on the envelope icon.

list all users

<%next%>

123 <%'Loop through alphabet (chars 65 to 90 are A-Z) for alphabet = 65 to 90%>

<%=chr(alphabet)%>

<%if not rsUsers.EOF then%> <% rsUsers.Movefirst if recordnum <> 0 then rsUsers.Move(recordnum) end if for count = 1 to userdisplay%> <%rsUsers.Movenext if rsUsers.EOF then lastpage = True exit for end if next %>

Username	Icon	Contact
<%=rsUsers("username")%>	_small.gif" width="20" height="20">	">" border=0 hspace="10">send message

<%=UsersNav()%>

<%'If no users, give a message else%>

Sorry, there's no users starting with the letter <%=startletter%>.

<%end if%>

Back to home page

<% rsUsers.close set rsUsers = nothing rsUser.close set rsUser = nothing conn.close set conn = nothing %> <% Function UsersNav() Response.Write("
Page : ") userpage = 1 if recordnum = 0 then Response.Write(userpage & " ") else Response.Write("" & userpage & " ") end if for count = 1 to usercount - 1 if (count mod userdisplay = 0) then userpage = userpage + 1 if count = CInt(recordnum) then Response.Write(userpage & " ") lastpage = True else Response.Write("" & userpage & " ") lastpage = False end if end if next Response.Write("
") if recordnum <> 0 then Response.Write("<< previous users ") else Response.Write("<< previous users ") end if if lastpage = False then Response.Write("more users >>") else Response.Write("more users >>") end if End Function %>