<%
'--------------------------------------------------------
' Configurations for this page
'--------------------------------------------------------
myPageName = "viewLog.asp"
myPageTable = "company"
'--------------------------------------------------------
displayHeader()
if (not checkSecurity(20)) then
response.Write("You must a company admin to view this page.
")
security_getLogonInfo(myPageName)
else
select case request("action")
case "view"
listLogStart()
case "listByContact"
' listLogStart()
listLogContact()
case "listByCompany"
' listLogStart()
listLogCompany()
case "listByJob"
' listLogStart()
listLogJob()
case "viewContact"
' listLogStart()
viewContact()
case "viewJob"
' listLogStart()
viewJob()
case "viewDetailedContactJob"
viewDetailedContactJob()
case "viewImage"
' listLogStart()
viewImage()
case else
listLogStart()
end select
end if
displayFooter()
function listLogStart()
%>
List By Contact
List By Job
<%
end function
function listLogContact()
if checkSecurity(CONST_securityViewAllUserLogs) then
sqlQuery = "Select user_log.contact_id, contacts.name, company.name as companyName, count(user_log.contact_id) as contactCount from user_log left outer join contacts on (user_log.contact_id = contacts.id)"
sqlQuery = sqlQuery & " left outer join company on (contacts.company_id = company.id)"
sqlQuery = sqlQuery & " where contacts.security < 30"
sqlQuery = sqlQuery & " group by user_log.contact_id"
sqlQuery = sqlQuery & " order by user_log.company_id"
elseif Session("Security_Level") >=20 then
sqlQuery = "Select user_log.contact_id, contacts.name, company.name as companyName, count(user_log.contact_id) as contactCount from user_log left outer join contacts on (user_log.contact_id = contacts.id)"
sqlQuery = sqlQuery & " left outer join company on (contacts.company_id = company.id)"
sqlQuery = sqlQuery & " left outer join job on (user_log.job_id = job.id)"
sqlQuery = sqlQuery & " where job.company_id = " & Session("User_Company") & " and contacts.security < 30"
sqlQuery = sqlQuery & " group by user_log.contact_id"
sqlQuery = sqlQuery & " order by user_log.company_id"
end if
set objRS = objConn.Execute(sqlQuery)
%> Listing By Contact
<% do while not objRS.EOF
%> <%=objRS("contactCount")%> -- "><% if objRS("contact_id") = "0" then response.Write("None") else response.Write(objRS("Name")) end if%> (<%=db_getData(objRS, "companyName")%>)
<% objRS.MoveNext
loop
end function
function viewDetailedContactJob()
if checkSecurity(CONST_securityViewAllUserLogs) then
sqlQuery = "Select job.job, user_log.contact_id, user_log.job_id, user_log.date_time, images.sheet_name, user_log.image_id, user_log.job_id as jobCount "
sqlQuery = sqlQuery & " from user_log left outer join contacts on (user_log.contact_id = contacts.id)"
sqlQuery = sqlQuery & " left outer join job on (user_log.job_id = job.id)"
sqlQuery = sqlQuery & " left outer join images on (user_log.image_id = images.id)"
sqlQuery = sqlQuery & " where user_log.contact_id = " & request("contact_id") & " and user_log.job_id is not null"
if request("job_id") <> "" then
sqlQuery = sqlQuery & " and user_log.job_id="&request("job_id")
end if
sqlQuery = sqlQuery & " group by user_log.id"
sqlQuery = sqlQuery & " order by date_time"
elseif Session("Security_Level") >=20 then
sqlQuery = "Select job.job, user_log.contact_id, user_log.job_id, user_log.date_time, images.sheet_name, user_log.image_id, user_log.job_id as jobCount "
sqlQuery = sqlQuery & " from user_log left outer join contacts on (user_log.contact_id = contacts.id)"
sqlQuery = sqlQuery & " left outer join job on (user_log.job_id = job.id)"
sqlQuery = sqlQuery & " left outer join images on (user_log.image_id = images.id)"
sqlQuery = sqlQuery & " where user_log.contact_id = " & request("contact_id") & " and job.company_id = " & Session("User_Company")
if request("job_id") <> "" then
sqlQuery = sqlQuery & " and user_log.job_id="&request("job_id")
end if
sqlQuery = sqlQuery & " group by user_log.id"
sqlQuery = sqlQuery & " order by date_time"
end if
set objRS = objConn.Execute(sqlQuery)
%>
Job/Image Views for <%=db_qdSelect("select name from contacts where id="&request("contact_id"), "name")%>
">View Job | ">View Contact
| |
Job |
Image Name |
When |
<%
stripeFlag = 0
counter = 0
do while not objRS.EOF
if (stripeFlag mod 2)=1 then
curStripe = "rowMyStripes2"
else
curStripe = "rowMyStripes1"
end if
%>
| <% if (checkSecurity(CONST_securityToviewUserLogs)) then %>
<% end if %> |
<%=objRS("job")%>
|
<%=objRS("sheet_name")%>
|
<%=objRS("date_time")%>
|
<%
stripeFlag = stripeFlag+1
counter = counter+1
objRS.MoveNext
loop
%>
<%
end function
function viewContact()
if checkSecurity(CONST_securityViewAllUserLogs) then
sqlQuery = "Select job.job, user_log.contact_id, user_log.job_id, user_log.date_time, count(user_log.job_id) as jobCount "
sqlQuery = sqlQuery & " from user_log left outer join contacts on (user_log.contact_id = contacts.id)"
sqlQuery = sqlQuery & " left outer join job on (user_log.job_id = job.id)"
sqlQuery = sqlQuery & " where user_log.contact_id = " & request("contact_id") & " and user_log.job_id is not null"
if request("job_id") <> "" then
sqlQuery = sqlQuery & " and user_log.job_id="&request("job_id")
end if
sqlQuery = sqlQuery & " group by user_log.job_id"
elseif Session("Security_Level") >=20 then
sqlQuery = "Select job.job, user_log.contact_id, user_log.job_id, user_log.date_time, count(user_log.job_id) as jobCount "
sqlQuery = sqlQuery & " from user_log left outer join contacts on (user_log.contact_id = contacts.id)"
sqlQuery = sqlQuery & " left outer join job on (user_log.job_id = job.id)"
sqlQuery = sqlQuery & " where user_log.contact_id = " & request("contact_id") & " and job.company_id = " & Session("User_Company")
if request("job_id") <> "" then
sqlQuery = sqlQuery & " and user_log.job_id="&request("job_id")
end if
sqlQuery = sqlQuery & " group by user_log.job_id"
end if
set objRS = objConn.Execute(sqlQuery)
%>
Job/Image Views for <%=db_qdSelect("select name from contacts where id="&request("contact_id"), "name")%>
| |
Job |
Image Views |
Notified |
Detail Views |
Ordered |
<%
stripeFlag = 0
counter = 0
do while not objRS.EOF
if (stripeFlag mod 2)=1 then
curStripe = "rowMyStripes2"
else
curStripe = "rowMyStripes1"
end if
%>
<% if (checkSecurity(CONST_securityToviewUserLogs)) then %>
">View Job Log
&contact_id=<%=objRS("contact_id")%>">View Detail
<% end if %> |
<%=objRS("job")%>
|
<%
sqlQuery = "Select *, count(user_log.image_id) as imageCount from user_log left outer join images on (user_log.image_id = images.id)"
sqlQuery = sqlQuery & " where images.job_id = " & objRS("job_id") & " and user_log.contact_id = " & request("contact_id")
sqlQuery = sqlQuery & " group by user_log.image_id"
sqlQuery = sqlQuery & " order by images.Order_By"
' response.Write(sqlQuery)
set imageRS = objConn.Execute(sqlQuery)
do while not imageRS.EOF
%> <%=imageRS("imageCount")%> -- "><%=imageRS("Sheet_Name")%>
<% imageRS.MoveNext
loop
%>
|
<% if db_qdSelect("select id from log_contacts_notified where job_id="&objRS("job_id")&" and contact_id="&objRS("contact_id"), "id") <> "" then %>Yes<% else %>No<% end if %>
|
<%=objRS("jobCount")%>
|
<% if db_qdSelect("select id from orders where job_id="&objRS("job_id")&" and contact_id="&objRS("contact_id"), "id") <> "" then %>Yes<% else %>No<% end if %>
|
<%
stripeFlag = stripeFlag+1
counter = counter+1
objRS.MoveNext
loop
%>
<%
end function
function listLogJob()
if checkSecurity(CONST_securityViewAllUserLogs) then
sqlQuery = "Select *, count(user_log.job_id) as jobCount from user_log left outer join job on (user_log.job_id = job.id)"
sqlQuery = sqlQuery & " where user_log.job_id <> 0 and user_log.job_id is not null"
sqlQuery = sqlQuery & " group by job.id"
elseif Session("Security_Level") >=20 then
sqlQuery = "Select *, count(user_log.job_id) as jobCount from user_log left outer join job on (user_log.job_id = job.id)"
sqlQuery = sqlQuery & " where user_log.job_id <> 0 and user_log.job_id is not null and job.company_id = " & Session("User_Company")
sqlQuery = sqlQuery & " group by job.id"
end if
set objRS = objConn.Execute(sqlQuery)
%> Listing By Job
<% do while not objRS.EOF
%> <%=objRS("jobCount")%> -- "><%=objRS("Job")%>
<%
sqlQuery = "Select *, count(user_log.image_id) as imageCount from user_log left outer join images on (user_log.image_id = images.id)"
sqlQuery = sqlQuery & " where images.job_id = " & objRS("job_id")
sqlQuery = sqlQuery & " group by user_log.image_id"
sqlQuery = sqlQuery & " order by images.Order_By"
' response.Write(sqlQuery)
set imageRS = objConn.Execute(sqlQuery)
do while not imageRS.EOF
%> <%=imageRS("imageCount")%> -- "><%=imageRS("Sheet_Name")%>
<% imageRS.MoveNext
loop
response.Write("
")
objRS.MoveNext
loop
end function
function viewJob()
if checkSecurity(CONST_securityViewAllUserLogs) then
sqlQuery = "Select contacts.name, job.job, company.name as company_name, user_log.contact_id, count(user_log.contact_id) as contactCount "
sqlQuery = sqlQuery & " from user_log "
sqlQuery = sqlQuery & " left outer join contacts on (user_log.contact_id = contacts.id)"
sqlQuery = sqlQuery & " left outer join job on (user_log.job_id = job.id)"
sqlQuery = sqlQuery & " left outer join images on (user_log.image_id = images.id)"
sqlQuery = sqlQuery & " left outer join company on (contacts.company_id = company.id)"
sqlQuery = sqlQuery & " where user_log.job_id = " & request("job_id")' & " and contacts.security < 30 "
sqlQuery = sqlQuery & " group by user_log.contact_id"
sqlQuery = sqlQuery & " order by company.name"
elseif Session("Security_Level") >=20 then
sqlQuery = "Select contacts.name, job.job, company.name as company_name, user_log.contact_id, count(user_log.contact_id) as contactCount "
sqlQuery = sqlQuery & " from user_log "
sqlQuery = sqlQuery & " left outer join contacts on (user_log.contact_id = contacts.id)"
sqlQuery = sqlQuery & " left outer join job on (user_log.job_id = job.id)"
sqlQuery = sqlQuery & " left outer join images on (user_log.image_id = images.id)"
sqlQuery = sqlQuery & " left outer join company on (contacts.company_id = company.id)"
sqlQuery = sqlQuery & " where job.company_id = " & Session("User_Company") & " and user_log.job_id = " & request("job_id") & " and contacts.security < 30 "
sqlQuery = sqlQuery & " group by user_log.contact_id"
sqlQuery = sqlQuery & " order by company.name"
end if
set objRS = objConn.Execute(sqlQuery)
%> Users Who Viewed <%=objRS("job")%>
| |
Contact |
Company |
Notified |
Views |
<%=CONST_terminologyOrdered%> |
<%
stripeFlag = 0
counter = 0
do while not objRS.EOF
if (stripeFlag mod 2)=1 then
curStripe = "rowMyStripes2"
else
curStripe = "rowMyStripes1"
end if
%>
<% if (checkSecurity(CONST_securityToviewUserLogs)) then %>
&job_id=<%=request("job_id")%>">View Detail
">View Contact
<% end if %> |
<%=objRS("name")%>
|
<%=objRS("company_name")%>
|
<% if db_qdSelect("select id from log_contacts_notified where job_id="&request("job_id")&" and contact_id="&objRS("contact_id"), "id") <> "" then %>Yes<% else %>No<% end if %>
|
<%=objRS("contactCount")%>
|
<% if db_qdSelect("select id from orders where job_id="&request("job_id")&" and contact_id="&objRS("contact_id"), "id") <> "" then %>Yes<% else %>No<% end if %>
|
<%
stripeFlag = stripeFlag+1
counter = counter+1
objRS.MoveNext
loop
%>
<%
end function
function viewImage()
if Session("Security_Level") >= 25 then
sqlQuery = "Select contacts.name, job.job, images.Sheet_Name, company.name as company_name, user_log.contact_id, count(user_log.contact_id) as contactCount from user_log"
sqlQuery = sqlQuery & " left outer join contacts on (user_log.contact_id = contacts.id)"
sqlQuery = sqlQuery & " left outer join images on (user_log.image_id = images.id)"
sqlQuery = sqlQuery & " left outer join job on (images.job_id = job.id)"
sqlQuery = sqlQuery & " left outer join company on (contacts.company_id = company.id)"
sqlQuery = sqlQuery & " where user_log.image_id = " & request("image_id")
sqlQuery = sqlQuery & " group by user_log.contact_id"
sqlQuery = sqlQuery & " order by user_log.company_id"
elseif Session("Security_Level") >=20 then
sqlQuery = "Select contacts.name, job.job, images.Sheet_Name, company.name as company_name, user_log.contact_id, count(user_log.contact_id) as contactCount from user_log"
sqlQuery = sqlQuery & " left outer join contacts on (user_log.contact_id = contacts.id)"
sqlQuery = sqlQuery & " left outer join images on (user_log.image_id = images.id)"
sqlQuery = sqlQuery & " left outer join job on (images.job_id = job.id)"
sqlQuery = sqlQuery & " left outer join company on (contacts.company_id = company.id)"
sqlQuery = sqlQuery & " where job.company_id = " & Session("User_Company") & " and user_log.image_id = " & request("image_id")
sqlQuery = sqlQuery & " group by user_log.contact_id"
sqlQuery = sqlQuery & " order by user_log.company_id"
end if
set objRS = objConn.Execute(sqlQuery)
%> Users Who Viewed <%=objRS("job")%> -- <%=objRS("Sheet_Name")%>
<% do while not objRS.EOF
%> <%=objRS("contactCount")%> -- "><% if objRS("contact_id") = "0" then response.Write("None") else response.Write(objRS("Name")) end if%> (<%=objRS("company_name")%>)
<% objRS.MoveNext
loop
end function
%>