Will the ADMIN can ?

Hi all

I need to ask a very important question ,

Will the ADMIN be able to read the private messages for the members ?

If NO , Why he can NOT ?

If YES , How can I make him DOES NOT do that ?

THANKS.

Something like this makes it possible:

<% 'no security checking %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->

<%
response.buffer = true

'get key
key = request.querystring("key")
if key="" or isnull(key) then
 key=request.form("key")
end if
if key="" or isnull(key) then response.redirect "tblPMMessagelist.asp"

'get action
a=request.form("a")
if a="" or isnull(a) then
 a="I" 'display with input box
end if

' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

Select Case a
 Case "I": ' Get a record to display

  tkey = key
  strsql = "SELECT * FROM [tblPMMessage] WHERE [PM_ID]=" & tkey

  set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open strsql, conn
  If rs.EOF Then
   Response.Clear
   Response.Redirect "tblPMMessagelist.asp"
  Else
   rs.MoveFirst
  End If

  ' Get the field contents
  x_PM_ID = rs("PM_ID")
  x_Author_ID = rs("Author_ID")
  x_From_ID = rs("From_ID")
  x_PM_Tittle = rs("PM_Tittle")
  x_PM_Message = rs("PM_Message")
  x_PM_Message_Date = rs("PM_Message_Date")
  x_Read_Post = rs("Read_Post")
  x_Email_notify = rs("Email_notify")

  rs.Close
  Set rs = Nothing

End Select
%>

<!--#include file="header.asp"-->

<p><font size="-1">View TABLE : tbl PMMessage<br><br><a href="tblPMMessagelist.asp">Back to List</a></font></p>

<p>
<form>
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">PM ID</font>&nbsp;</font></td>
<td bgcolor="#F5F5F5"><font size="-1"><% response.write x_PM_ID %></font>&nbsp;</td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">Author ID</font>&nbsp;</font></td>
<td bgcolor="#F5F5F5"><font size="-1"><% response.write x_Author_ID %></font>&nbsp;</td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">From ID</font>&nbsp;</font></td>
<td bgcolor="#F5F5F5"><font size="-1"><% response.write x_From_ID %></font>&nbsp;</td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">PM Tittle</font>&nbsp;</font></td>
<td bgcolor="#F5F5F5"><font size="-1"><% response.write x_PM_Tittle %></font>&nbsp;</td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">PM Message</font>&nbsp;</font></td>
<td bgcolor="#F5F5F5"><font size="-1"><%= replace(x_PM_Message & "",chr(10),"<br>") %></font>&nbsp;</td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">PM Message Date</font>&nbsp;</font></td>
<td bgcolor="#F5F5F5"><font size="-1"><% response.write x_PM_Message_Date %></font>&nbsp;</td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">Read Post</font>&nbsp;</font></td>
<td bgcolor="#F5F5F5"><font size="-1"><% If x_Read_Post = True Then %><%= "Yes" %><% Else %><%= "No" %><% End If %></font>&nbsp;</td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">Email notify</font>&nbsp;</font></td>
<td bgcolor="#F5F5F5"><font size="-1"><% If x_Email_notify = True Then %><%= "Yes" %><% Else %><%= "No" %><% End If %></font>&nbsp;</td>
</tr>
</table>
</form>
<p>

<!--#include file="footer.asp"-->

Created this with aspmaker