<% Option Explicit Dim sql,rsUsers if Request.Cookies("philoginadmin") = "True" then %> <% sql = "SELECT * FROM users ORDER BY username" Set rsUsers = Server.CreateObject("ADODB.Recordset") rsUsers.Open sql, conn, 3, 3 %> Friends Full List

 

 

Welcome
Articles
Downloads
Favorites
Feedback
Friends
Interests
Multimedia
Photos

Administration      | users | edit users |

Sign Out

<%if not rsUsers.EOF then%> <%rsUsers.Movefirst do until rsUsers.EOF%> <%rsUsers.Movenext loop%>
Username Password First Name Surname Email DOB Starsign Sex Icon
<%=rsUsers("username")%> <%=rsUsers("password")%> <%=rsUsers("firstname")%> <%=rsUsers("surname")%> <%=rsUsers("email")%> <%=rsUsers("dob")%> <%=rsUsers("starsign")%> <%=rsUsers("sex")%> _small.gif" width="20" height="20">
<%else%>

Sorry, there are no users.

<%end if%> <%else Response.Redirect("philogin_admin.asp") end if%>
<% rsUsers.close set rsUsers = nothing conn.close set conn = nothing %>