<% Option Explicit Dim sql,rsUsers,username,startletter,alphabet,newcount startletter = Request.QueryString("startletter") if startletter = "" then startletter = "A" end if %> <% 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" 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 %> Friends List

 

 

Welcome
Articles
Downloads
Favorites
Feedback
Friends
Interests
Multimedia
Photos

Administration       | users | edit users |

<%if Request.Cookies("philoginadmin") = "True" then%>

Sign Out

<%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 do until rsUsers.EOF%> <%rsUsers.Movenext loop%>
Username Icon Profile Delete User
<%=rsUsers("username")%> _small.gif" width="20" height="20"> ',350,300,'no')">View/Edit Profile &startletter=<%=startletter%>">Delete user
<%else%>

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

<%end if%> <%else%>

You are not logged in as the administrator, please log in below:

Username
Password
<%end if%>

 

<% rsUsers.close set rsUsers = nothing conn.close set conn = nothing %>