<% Option Explicit %>
<%
Dim userId, user, fromUserId, msg
userId = Request("userId")
fromUserId = Request("fromUserId")
Set user = getUser(userId)
If ( (userId = "") OR (fromUserId = "") OR (user Is Nothing) ) Then
Response.Write("")
End If
If (Request("action") = "post") Then
' send a private message to user
Call addPrivateMessage(fromUserId, userId, Request("message"))
msg = "Your private message has been send"
End If
%>
<%= APPLICATION_NAME %> - User Profile
