<% ' ' $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("application.name") %> - <%= getMsg("profile.title", user.name) %>
<%= getMsg("profile.title", user.name) %>
<%= getMsg("profile.ip_address") %>  <%= user.ipAddress %> 
<%= getMsg("profile.logged_on") %>  <%= user.loggedOn %> 
<%= getMsg("profile.last_action") %>  <%= user.lastAction %> 
<%= getMsg("profile.written_messages") %>  <%= user.sendMessages %> 
" class="btn" onClick="window.close()" />