<!--#include file="../Conn.asp" -->
<%
PagePath = "../"

ConnectionDatabase()
%>
<!--#include file="Check_Login.asp" -->
<%
	Dim BoxId,PerId
	
	BoxId = Trim(Request.QueryString("BoxId"))
	PerId = Trim(Request.QueryString("PerId"))
	
	If BoxId = "" Or IsNull(BoxId) Or Not IsNumeric(BoxId) Then BoxId = 0
	If PerId = "" Or IsNull(PerId) Or Not IsNumeric(PerId) Then PerId = 0
	
	Conn.Execute("update CompanyBoxTbl set IsRead = '1' where BoxId = "& BoxId &" and ComId = "& Session("ComId"))
	
	Response.Redirect("../Person_View.asp?PerId="& PerId)
	
	Response.End()
%>