|
<!--#Include File="../../../General_Includes/GeneralIncludes.asp"--> <% ' .---. ' /
. \ ' |\_/|
| ' (C)2000 for Colliers Jardine by Riley T. Perry | |
/| ' .----------------------------------------------------------------'
| ' / .-. | ' | / \ | ' | |\_. | | ' |\| | /| HDR
Main Code |
' | `---' | -------------
|
' | | |
' | | / ' | |----------------------------------------------------------' ' \ | ' \ / ' `---' ' '*---------------------* '* Include Subroutines
* '*---------------------*
'%> <!-- #include file="../../../General_Functions/GeneralFunctions.asp"
--> <!-- #include file="../../../General_Functions/DBConnection.asp"
--> <!-- #include file="../../../User_Interface/UI_Routines.asp"
--> <!-- #include file="HDRSubroutines.asp"--> <% '*---------------* '* Set up Header * '*---------------* %> <HTML> <HEAD> <TITLE>HDR</TITLE> </HEAD> <BODY> <% '*---------------------* '* ON CLick functions!
* '*---------------------* %> <script language=javascript> <!-- function OnButton1() {
document.RaiseHDR.action = "HDRRaiseNameSearch.asp"
document.RaiseHDR.submit(); // Submit the page
return true; } function AssignedTo() {
document.SearchHDR.action = "HDRAssignedToSearch.asp"
document.SearchHDR.submit(); // Submit the page
return true; } function RaisedBy() {
document.SearchHDR.action = "HDRRaisedBySearch.asp"
document.SearchHDR.submit(); // Submit the page
return true; } function HistoryFunction(Redirect) {
document.HDR.action = Redirect
//Redirect
document.HDR.submit(); // Submit the page
return true; } function textCounter(field, countfield, maxlimit) { if (field.value.length > maxlimit) // if too long...trim it! field.value = field.value.substring(0,
maxlimit); // otherwise, update 'characters
left' counter else countfield.value = maxlimit - field.value.length; } --> </script> <% '*-------------------* '* Build large table *
'*-------------------* Draw_First_Fill_Row() Draw_Main_Table() SELECT CASE (Session("HDRState"))
'<>----------<>
CASE "RaiseHDR"
'<>----------<>
%>
<!--#include file="../Reset_Files/Reset_HDR_Admin.asp"
-->
<%
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
IF Session("NormalUser")
<> "yes" THEN
Draw_Main_Table()
SearchHDR()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdministor()
END IF
END IF
'<>-----------------------<>
CASE "RaiseHDRSearchResults"
'<>-----------------------<>
'*----------------*
'* Reset sessions
*
'*----------------*
%>
<!--#include file="../Reset_Files/Reset_HDR_ViewEdit.asp"
-->
<!--#include file="../Reset_Files/Reset_HDR_Edit.asp"-->
<%
RaiseHDRSearchResults()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
IF Session("NormalUser")
<> "yes" THEN
Draw_Main_Table()
SearchHDR()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdministor()
END IF
END IF
'<>-----------------------<>
CASE "HDRAdminSearchResults"
'<>-----------------------<>
'*----------------*
'* Reset sessions
*
'*----------------*
%>
<!--#include file="../Reset_Files/Reset_HDR_ViewEdit.asp"
-->
<!--#include file="../Reset_Files/Reset_HDR_Edit.asp"-->
<!--#include file="../Reset_Files/Reset_HDR_Raise.asp"-->
<%
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
Draw_Main_Table()
SearchHDR()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdminSearchResults()
END IF
'<>-----------------------<>
CASE "HDRAdminChangeAccess"
'<>-----------------------<>
'*----------------*
'* Reset sessions
*
'*----------------*
%>
<!--#include file="../Reset_Files/Reset_HDR_ViewEdit.asp"
-->
<!--#include file="../Reset_Files/Reset_HDR_Edit.asp"-->
<!--#include file="../Reset_Files/Reset_HDR_Raise.asp"-->
<%
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
Draw_Main_Table()
SearchHDR()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdminChangeAccess()
END IF
'<>-------------------------<>
CASE "AssignedToSearchResults"
'<>-------------------------<>
'*----------------*
'* Reset sessions
*
'*----------------*
%>
<!--#include file="../Reset_Files/Reset_HDR_ViewEdit.asp"
-->
<!--#include file="../Reset_Files/Reset_HDR_Raise.asp"-->
<%
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
Draw_Main_Table()
AssignedToSearchResults()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdministor()
END IF
'<>-----------------------<>
CASE "RaisedBySearchResults"
'<>-----------------------<>
'*----------------*
'* Reset sessions
*
'*----------------*
%>
<!--#include file="../Reset_Files/Reset_HDR_ViewEdit.asp"
-->
<!--#include file="../Reset_Files/Reset_HDR_Raise.asp"-->
<%
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
Draw_Main_Table()
RaisedBySearchResults()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdministor()
END IF
'<>----------------------<>
CASE "EditHDRSearchResults"
'<>----------------------<>
'*----------------*
'* Reset sessions
*
'*----------------*
%>
<!--#include file="../Reset_Files/Reset_HDR_Edit.asp"-->
<!--#include file="../Reset_Files/Reset_HDR_Raise.asp"-->
<%
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
Draw_Main_Table()
EditHDRSearchResults()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdministor()
END IF
'<>----------------<>
CASE "HDRViewSingle"
'<>----------------<>
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
Draw_Main_Table()
EditHDRViewSingle()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdministor()
END IF
'<>----------------<>
CASE "HDRHistory"
'<>----------------<>
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
Draw_Main_Table()
ViewHDRHistory()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdministor()
END IF
CASE "HDRAdminChangeContract"
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
IF Session("NormalUser")
<> "yes" THEN
Draw_Main_Table()
SearchHDR()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdminChangeContract()
END IF
END IF
CASE "HDRAdminChangeProductTimes"
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
IF Session("NormalUser")
<> "yes" THEN
Draw_Main_Table()
SearchHDR()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdminChangeProductTimes()
END IF
END IF
CASE "HDRAdminChangeRegionTimes"
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
IF Session("NormalUser")
<> "yes" THEN
Draw_Main_Table()
SearchHDR()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
HDRAdminChangeRegionTimes()
END IF
END IF
CASE "HDRChangeRegionHolidays"
RaiseHDR()
Draw_Fill_Row()
%>
<a name="EditHDR">
<%
IF Session("NormalUser")
<> "yes" THEN
Draw_Main_Table()
SearchHDR()
IF Session("HDSuperUser")="yes"
THEN
Draw_Fill_Row()
%>
<a name="Administor">
<%
Draw_Main_Table()
AddDeleteHols()
END IF
END IF
END SELECT '*-------------------* '* Draw the last row * '*-------------------* Draw_Last_Fill_Row() %> <!-- #include file="../../../General_Functions/DBConnectionClose.asp"
--> </BODY> </HTML> |