<%
dim i,Page,EMASDB,Myset,MaxPage
Dim TemplateID,Title,DepartID,TemplateItemID,ItemEvent,PreFinishTime,TargetFlag,SelfFlag

set EMASDB = new clsEMASDatabase

if Request.Form("TemplateID") <> "" Then TemplateID = Request.Form("TemplateID")
if Request.Form("Title") <> "" Then Title = Request.Form("Title")
if Request.Form("Depart") <> "" Then DepartID = Request.Form("Depart")
if Request.QueryString("TemplateID") <> "" Then TemplateID = Request.QueryString("TemplateID")
if Request.Form("Update") <> "" THen EMASDB.TemplateUpdate TemplateID,Title,DepartID
for i = 1 to 10
if Request.Form("TemplateItemID" & i) <> "" then TemplateItemID = Request.Form("TemplateItemID" & i)
if Request.Form("ItemEvent" & i) <> "" then ItemEvent = Request.Form("ItemEvent" & i)
if Request.Form("PreFinishTime" & i) <> "" then PreFinishTime = Request.Form("PreFinishTime" & i)
if Request.Form("TargetFlag" & i) <> "" then TargetFlag = True else TargetFlag = False
if Request.Form("SelfFlag" & i) <> "" then SelfFlag = True else SelfFlag = False
IF Request.form("UpdateItem" & i) <> "" then EMASDB.ItemUpdate TemplateItemID,ItemEvent,PreFinishTime,TargetFlag,SelfFlag
IF Request.form("DeleteItem" & i) <> "" then EMASDB.ItemDelete TemplateItemID
next

if Request.Form("ItemEvent" ) <> "" then ItemEvent = Request.Form("ItemEvent")
if Request.Form("PreFinishTime") <> "" then PreFinishTime = Request.Form("PreFinishTime")
if Request.Form("TargetFlag") <> "" then TargetFlag = True else TargetFlag = False
if Request.Form("SelfFlag" ) <> "" then SelfFlag = True else SelfFlag = False
IF Request.form("AddNewItem") <> "" then EMASDB.ItemAddNew TemplateID,ItemEvent,PreFinishTime,TargetFlag,SelfFlag

Page = 1
if Request.QueryString("Page") <> "" then Page = Request.QueryString("Page")
if Request.Form("Page") <> "" then Page = Request.FROM("Page")

MaxPage = EMASDB.TemplateItemMaxPage(10,TemplateID)
IF Request.form("AddNewItem") <> "" then Page = MaxPage
set Myset = EMASDB.GetRecordset("SELECT * FROM Template Where TemplateID = " & TemplateID)
Title = Myset("TemplateName")
DepartID = Myset("DepartID")
Myset.close

%>

---