<!-- #include file="i_utils.asp" -->
<%
	dim TaskTypeID
	dim TaskType
	dim edit_pmtasktypes_sql
	dim edit_link
	dim view_pmtasktypes_sql

sub request_edit_pmtasktypes
''' request form inputs from this form
	TaskTypeID = request("TaskTypeID")
	TaskType = request("TaskType")
end sub
sub request_view_pmtasktypes
''' request form inputs from this form
	edit_link = request("edit_link")
	TaskTypeID = request("TaskTypeID")
	TaskType = request("TaskType")
end sub

sub validate_edit_pmtasktypes
''' request and validate data entered from this form
	TaskTypeID = trim(request("TaskTypeID"))
	TaskType = trim(request("TaskType"))
end sub
sub validate_view_pmtasktypes
''' request and validate data entered from this form
	edit_link = trim(request("edit_link"))
	TaskTypeID = trim(request("TaskTypeID"))
	TaskType = trim(request("TaskType"))
end sub


sub db_select_edit_pmTaskTypes
	sql = "SELECT " & _ 
	"TaskTypeID, " & _ 
	"TaskType FROM pmTaskTypes" & _ 
	" WHERE " & _ 
	"pmTaskTypes.TaskTypeID = " & to_sql(TaskTypeID,"number") & ""
	on error resume next
	set rs = cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "select_data_edit_pmTaskTypes", "The data selection failed. " & err.description
	elseif rs.EOF then
		b_results = false
		msg_list.add "select_data_edit_pmTaskTypes", "The record was removed from the database."
	else
		TaskTypeID = rs("TaskTypeID")
		TaskType = rs("TaskType")
	end if
	rs.Close
	on error goto 0
end sub
sub db_insert_edit_pmTaskTypes
	sql = "INSERT INTO pmTaskTypes" & _ 
	"(" & _ 
	"TaskType" & _ 
	") VALUES (" & to_sql(TaskType,"text") & ")" & _ 
	""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.Number <> 0 then
		b_error = true
		error_list.add "db_insert_edit_pmTaskTypes" & err.Number ,"The database insert failed. " & err.Description
	else
		set rs = cn.Execute("SELECT @@IDENTITY")
		TaskTypeID = rs(0)
		rs.Close
		msg_list.add "db_insert_edit_pmTaskTypes","The database insert was successful."	end if
	on error goto 0
end sub
sub db_update_edit_pmTaskTypes
	sql = "UPDATE pmTaskTypes SET " & _ 
	"TaskType = " & to_sql(TaskType,"text") & " WHERE " & _ 
	"TaskTypeID = " & to_sql(TaskTypeID,"number") & ""
	'response.write sql
	on error resume next
	cn.execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "db_update_edit_pmTaskTypes" & err.Number ,"The database update failed. " & err.Description
	else
	end if
	on error goto 0
end sub
sub db_delete_edit_pmTaskTypes
	sql = "DELETE FROM pmTaskTypes" & _ 
	" WHERE " & _ 
	"TaskTypeID = " & to_sql(TaskTypeID,"number") & ""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "db_delete_edit_pmTaskTypes" & err.Number ,"The database deletion failed. " & err.Description
	else
		msg_list.add "db_delete_edit_pmTaskTypes","The record was removed."
	end if
	on error goto 0
end sub
sub db_select_view_pmTaskTypes
	view_pmTaskTypes_sql = "SELECT " & _ 
	"TaskTypeID, " & _ 
	"TaskType FROM pmTaskTypes" & _ 
	""
	if request("sortby") <> "" AND inStr(lcase(view_pmTaskTypes_sql),"order by") = 0 then view_pmTaskTypes_sql = view_pmTaskTypes_sql + " ORDER BY " & request("sortby")
end sub
sub db_delete_view_pmTaskTypes
	sql = "DELETE FROM pmTaskTypes" & _ 
	" WHERE " & _ 
	"TaskTypeID = " & to_sql(TaskTypeID,"number") & ""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
	end if
	on error goto 0
end sub

do_search = request("do_search")
''' request form keys and inputs
TaskTypeID = request("TaskTypeID")

''' request action
action = lcase(request("action"))
''' action case handler
select case action

case "select_edit_pmtasktypes"
'  select the requested key record from database
if TaskTypeID <> "" then
	db_select_edit_pmTaskTypes
else
	b_error = true
	error_list.add "edit_edit_pmTaskTypes", "Specify record to select."
end if


case "insert_edit_pmtasktypes"
'  request form data and insert a new record into database

validate_edit_pmtasktypes
if not b_error then
	db_insert_edit_pmtasktypes
end if


case "update_edit_pmtasktypes"
'  request form data and update an existing database record
validate_edit_pmtasktypes
if not b_error then
if TaskTypeID <> "" then
	db_update_edit_pmtasktypes
else
	b_error = true
	error_list.add "update_edit_pmtasktypes", "Specify record to update."
end if
end if


case "delete_edit_pmtasktypes"
'  delete the requested key database record
if TaskTypeID <> "" then
	db_delete_edit_pmtasktypes
	response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
else
	b_error = true
	error_list.add "delete_edit_pmtasktypes", "Specify record to delete."
end if


end select
':: handle the default case(s) for each form (separate from action= parameter)
if TaskTypeID <> "" then
	''' select existing record to populate form
	db_select_edit_pmtasktypes
else
	''' new record
end if

db_select_view_pmtasktypes

%>

<!--#include file='i_header.asp'--><!--#include file='i_menu.asp'-->


<%
display_errs
display_msg
%>

<%

':: check if hide form var was set
if not b_hide_edit_pmTaskTypes then
%>

<table class='headerTable'>
<tr>
<td class='headerTD'>
Edit Task Type
</td>
</tr>
</table>
<table  >
<form name="edit_pmTaskTypes" action="admin_pmtasktypes.asp" method="post" >
		
		<input type=hidden name="TaskTypeID" value="<% =TaskTypeID %>">
		
<tr>
	<td class='labelTD'>TaskType</td>
	<td class='dataTD' >
		<input type=text  name="TaskType" size="20" maxlength="50" value="<% =TaskType%>">
	</td>
</tr>
<tr>
	<td class=labelTD align=right>&nbsp;
	<% if TaskTypeID <> "" then %><input type=button class=cmd name=new_button value='NEW' onclick="window.location = '<% =request.servervariables("script_name") %>'"><% end if %>
	</td>
	<td class=dataTD>
	<% if TaskTypeID = "" then %><input type=submit class=cmd name=insert_button value='INSERT'><% end if %>
	<% if TaskTypeID <> "" then %><input type=submit class=cmd name=update_button value='UPDATE'><% end if %>
	<% if TaskTypeID <> "" then %><input type=submit class=cmd name=delete_button value='DELETE' onclick="document.edit_pmTaskTypes.action.value = 'delete_edit_pmTaskTypes'"><% end if %>
	</td>
<input type=hidden name="action" value="<% if TaskTypeID <> "" then %>update<% else %>insert<%end if %>_edit_pmTaskTypes"></tr>

</form>
</table>
<%

':: end hide form if
end if
%>


<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_pmTaskTypes_sql <> "" then
	cmd.CommandText = view_pmTaskTypes_sql
	rs.Filter = ""
	rs.CursorLocation = 3
	rs.CacheSize = 5
	rs.Open cmd
	if not rs.EOF then
			rs.MoveFirst
			rs.PageSize = 30
			max_count = cInt(rs.PageCount)
			num_recs = rs.RecordCount
			rs.AbsolutePage = page_no
			results = true
	else
		results = false
		rs.Close
	end if
else
	results = false
end if
rec_count = 0

%>

<table class='headerTable'>
<tr>
<td class='headerTD'>
Task Types
</td>
</tr>
</table>
<%

if results = true then

%>

<table  >
<form name="view_pmTaskTypes" action="admin_pmtasktypes.asp" method="get" >
<tr>
	<td class='fieldTD'></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=TaskType" class=fieldFont title="">TaskType</a></td>
</tr>
<%

do while not rs.EOF AND (rec_count < rs.Pagesize)

':: read db record
on error resume next
edit_link = rs("edit_link")
TaskTypeID = rs("TaskTypeID")
TaskType = rs("TaskType")
on error goto 0

%>
<tr>
	<td class='dataTD' >
		[ <a href='admin_pmtasktypes.asp?TaskTypeID=<% =TaskTypeID %>' class=dataFont>edit</a> ]<% =edit_link %>
	</td>
		
		<input type=hidden name="TaskTypeID" value="<% =TaskTypeID %>">
		
	<td class='dataTD' >
		<% =TaskType %>
	</td>
</tr>
<%

rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>

</form>
</table>
<%

else

%>

	no matches were found.

<%

end if

%>

<%
 if max_count > 1 then 
%>

<!-- paging footer -->
<TABLE class=HeaderTable >
	<tr>
		<td width="20%" class=HeaderTD>
			<% if page_no > 1 then %>
			<a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no-1 %>&sortby=<% =request("sortby") %>">PREV</a>
			<% else %>			<% end if %>		</td>
		<td align=center class=HeaderTD>
			Page&nbsp;
			<% for i = 1 to max_count %>
			<% if i = cint(page_no) then %>
			<b><%=i%></b>
			<% else %>
			<a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =i %>&sortby=<% =request("sortby") %>"><%=i%></a>
			<% end if %>
			<%next %>
		</td>
		<td align=right width="20%" class=HeaderTD>
			<% if cInt(page_no) < cInt(max_count) then %>
			<a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no+1 %>&sortby=<% =request("sortby") %>">NEXT</a>
			<% end if %>
		</td>
	</tr>
</TABLE>
<% end if %>


<!--#include file='i_footer.asp'-->


<%
':: assure that any db resources are freed
on error resume next
rs.Close
set rs = NOTHING
cn.Close
set cn = NOTHING
user_cn.Close
set user_cn = NOTHING
on error goto 0
%>