% ' ' $Id: profile.asp,v 1.1.1.1 2003/03/09 22:45:57 peter Exp $ ' ' Display user profile. ' ' @author Peter Theill peter@theill.com ' Option Explicit %> <% Dim userId, user userId = Request("userId") Set user = getUser(userId) If (user Is Nothing) Then Response.Write("User not available anymore.") Response.End End If %>
| <%= getMsg("profile.ip_address") %> | <%= user.ipAddress %> |
| <%= getMsg("profile.logged_on") %> | <%= user.loggedOn %> |
| <%= getMsg("profile.last_action") %> | <%= user.lastAction %> |
| <%= getMsg("profile.written_messages") %> | <%= user.sendMessages %> |