<!-- #include file="i_utils.asp" -->
<%

check_security(1) 

%>
<%
'::::::::::::::::::: Copyright 2000-2002 Iatek. All Rights Reserved. ::::::::::::::::::
' Generated by ASPapp.com. More information can be obtained at http://www.aspapp.com 


':::: page structure

'-- variables are declared (dim)
'-- the "request_" and "validate_" subroutines for form output
'-- the "db_" subroutines for database SQL statements
'-- key database fields are requested
'-- the action variable is requested and handled
'-- main section (this ignores value of action variable)
'-- HTML begins: The 'i_header.asp' include file is displayed
'-- forms and content are displayed
'-- HTML ends: The 'i_footer.asp' include file is displayed
'-- close database resources

':::: recommended DATABASE SCHEMA for this page 

' Events: 
	' event_id: int identity|int: 4
	' user_id: int identity|int: 4
	' event_name: text|varchar: 50
	' event_desc: longtext|memo: 536870910
	' dt_start: datetime: 8
	' dt_end: datetime: 8
	' time_start: datetime: 8
	' time_end: datetime: 8
	' b_personal: byte: 1


dim time_start
dim time_end
dim event_id
dim user_id
dim event_name
dim event_desc
dim dt_start
dim dt_end
dim b_personal
dim edit_events_sql

sub request_edit_events
''' request form inputs from this form
	time_start = request("time_start")
	time_end = request("time_end")
	event_id = request("event_id")
	user_id = request("user_id")
	event_name = request("event_name")
	event_desc = request("event_desc")
	dt_start = request("dt_start")
	dt_end = request("dt_end")
	b_personal = request("b_personal")
end sub

sub validate_edit_events
''' request and validate data entered from this form
	time_start = trim(request("time_start"))
	time_end = trim(request("time_end"))
	event_id = trim(request("event_id"))
	user_id = trim(request("user_id"))
	if user_id = "" then
		error_list.add "578788","user_id must be specified."
		b_error = true
	end if
	event_name = trim(request("event_name"))
	if event_name = "" then
		error_list.add "578789","event title must be specified."
		b_error = true
	end if
	event_desc = trim(request("event_desc"))
	dt_start = trim(request("dt_start"))
	if dt_start = "" then
		error_list.add "578791","start date must be specified."
		b_error = true
	end if
	dt_end = trim(request("dt_end"))
	b_personal = trim(request("b_personal"))
end sub

sub get_defaults_edit_events
''' set default values for this form
	dt_start = "" & request("dt_start") & ""
	b_personal = 1
end sub

sub db_select_edit_Events
	sql = "SELECT " & _ 
	"time_start, " & _ 
	"time_end, " & _ 
	"event_id, " & _ 
	"user_id, " & _ 
	"event_name, " & _ 
	"event_desc, " & _ 
	"dt_start, " & _ 
	"dt_end, " & _ 
	"b_personal FROM Events" & _ 
	" WHERE " & _ 
	"Events.event_id = " & to_sql(event_id,"number") & ""
	on error resume next
	set rs = cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "select_data_edit_Events", "The data selection failed. " & err.description
	elseif rs.EOF then
		b_results = false
		msg_list.add "select_data_edit_Events", "The record was removed from the database."
	else
		time_start = rs("time_start")
		time_end = rs("time_end")
		event_id = rs("event_id")
		user_id = rs("user_id")
		event_name = rs("event_name")
		event_desc = rs("event_desc")
		dt_start = rs("dt_start")
		dt_end = rs("dt_end")
		b_personal = rs("b_personal")
	end if
	rs.Close
	on error goto 0
end sub
sub db_insert_edit_Events
	sql = "INSERT INTO Events" & _ 
	"(" & _ 
	"time_start," & _ 
	"time_end," & _ 
	"user_id," & _ 
	"event_name," & _ 
	"event_desc," & _ 
	"dt_start," & _ 
	"dt_end," & _ 
	"b_personal" & _ 
	") VALUES (" & to_sql(time_start,"date") & "," & _ 
	"" & to_sql(time_end,"date") & "," & _ 
	"" & to_sql(user_id,"number") & "," & _ 
	"" & to_sql(event_name,"text") & "," & _ 
	"" & to_sql(event_desc,"text") & "," & _ 
	"" & to_sql(dt_start,"date") & "," & _ 
	"" & to_sql(dt_end,"date") & "," & _ 
	"" & to_sql(b_personal,"number") & ")" & _ 
	""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.Number <> 0 then
		b_error = true
		error_list.add "db_insert_edit_Events" & err.Number ,"The database insert failed. " & err.Description
	else
		set rs = cn.Execute("SELECT @@IDENTITY")
		event_id = rs(0)
		rs.Close
		msg_list.add "db_insert_edit_Events","The database insert was successful."	end if
	on error goto 0
end sub
sub db_update_edit_Events
	sql = "UPDATE Events SET " & _ 
	"time_start = " & to_sql(time_start,"date") & ", " & _ 
	"time_end = " & to_sql(time_end,"date") & ", " & _ 
	"user_id = " & to_sql(user_id,"number") & ", " & _ 
	"event_name = " & to_sql(event_name,"text") & ", " & _ 
	"event_desc = " & to_sql(event_desc,"text") & ", " & _ 
	"dt_start = " & to_sql(dt_start,"text") & ", " & _ 
	"dt_end = " & to_sql(dt_end,"text") & ", " & _ 
	"b_personal = " & to_sql(b_personal,"number") & " WHERE " & _ 
	"event_id = " & to_sql(event_id,"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_Events" & err.Number ,"The database update failed. " & err.Description
	else
	end if
	on error goto 0
end sub
sub db_delete_edit_Events
	sql = "DELETE FROM Events" & _ 
	" WHERE " & _ 
	"event_id = " & to_sql(event_id,"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_Events" & err.Number ,"The database deletion failed. " & err.Description
	else
		msg_list.add "db_delete_edit_Events","The record was removed."
	end if
	on error goto 0
end sub

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

':: request action
action = lcase(request("action"))

':: handle the action
select case action

case "select_edit_events"
'  select the requested key record from database
if event_id <> "" then
	db_select_edit_Events
else
	b_error = true
	error_list.add "edit_edit_Events", "Specify record to select."
end if


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

validate_edit_events
if dt_end = "" then
	dt_end = dt_start
	msg_list.add "noenddate", "Since no end date was specified, it has been set to the start date."
end if

'' append AM/PM
if len(time_start) > 0 then time_start = time_start & " " & request("start_ampm")
if len(time_end) > 0 then time_end = time_end & " " & request("end_ampm")

if len(time_end) > 0 then
	'' start_time before end_time?
	if (dt_start=dt_end) AND (TimeValue(time_start) > TimeValue(time_end)) then
		error_list.add "endtime", "End time (" & time_end & ") is not after the start time (" & time_start & ")."
		b_error = true
	end if
end if

if not b_error then db_insert_edit_events


case "update_edit_events"
'  request form data and update an existing database record
validate_edit_events

'' if no end date, set it to start date
if dt_end = "" then
	dt_end = dt_start
	msg_list.add "noenddate", "Since no end date was specified, it has been set to the start date."
end if

'' append AM/PM to time
if len(time_start) > 0 then time_start = time_start & " " & request("start_ampm")
if len(time_end) > 0 then time_end = time_end & " " & request("end_ampm")

'' if the same day, make user start_time is before end_time
if (dt_start=dt_end) AND (TimeValue(time_start) > TimeValue(time_end)) then
	error_list.add "startendtime", "End time (" & time_end & ") is not after the start time (" & time_start & ")."
	b_error = true
end if

if not b_error then
	db_update_edit_events
end if

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


end select

':: handle the default case(s) (ignores value of action parameter)

user_id = session("user_id")

if event_id <> "" then
	db_select_edit_events
else
	get_defaults_edit_events
end if
%>

<!--#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_Events then
%>

<table class='headerTable'>
<tr>
<td class='headerTD'>
<A href='calendar.asp'>Calendar</A> &#8250; Schedule Event
</td>
</tr>
</table>
<table  >
<form id="edit_Events" name="edit_Events" action="upd_events.asp" method="post" >

	<td class='labelTD'></td>

	<td class='labelTD'></td>
		
		<input type=hidden name="event_id" value="<% =event_id %>">
		
		
		<input type=hidden name="user_id" value="<% =user_id %>">
		
<tr>
	<td class='labelTD'>event title</td>
	<td class='dataTD' >
		<input type=text  name="event_name" size="" maxlength="50" value="<% =event_name%>">
	</td>
	<td class='labelTD'>specify a name for this event</td>
</tr>
<tr>
	<td class='labelTD'>description</td>
	<td class='dataTD' >
		
		<textarea  name="event_desc" rows='6' cols='70'><% =event_desc%></textarea>
		
	</td>
	<td class='labelTD'>describe the details of this event/schedule item</td>
</tr>
<tr>
	<td class='labelTD'>start date</td>
	<td class='dataTD' >
		<input type=text  name="dt_start" size="" maxlength="10" value="<% =dt_start%>"><%

if time_start <> "" then 
	if right(time_start,2) = "PM" then b_pm = true
	time_start = formatdatetime(time_start,3)
	time_start = left(time_start,len(time_start)-3) 
end if

%>
&nbsp;time <input type=text size=10 name=time_start value="<% =time_start %>"> <select name=start_ampm><option>AM</option><option <% if b_pm then %>selected<% end if %>>PM</option></select>
	</td>
	<td class='labelTD'>enter the date (mm/dd/yy) on which the event begins</td>
</tr>
<tr>
	<td class='labelTD'>end date</td>
	<td class='dataTD' >
		<input type=text  name="dt_end" size="" maxlength="10" value="<% =dt_end%>"><%

b_pm = false
if time_end <> "" then 
	if right(time_end,2) = "PM" then b_pm = true
	time_end = formatdatetime(time_end,3)
	time_end = left(time_end,len(time_end)-3)
end if
%>
&nbsp;time <input type=text size=10 name=time_end value="<% =time_end %>"> <select name=end_ampm><option>AM</option><option <% if b_pm then %>selected<% end if %>>PM</option></select>
	</td>
	<td class='labelTD'>enter the date (mm/dd/yy) on which the event ends</td>
</tr>
<tr>
	<td class='labelTD'>hide from others?</td>
	<td class='dataTD' >
		<% if b_personal = "" then b_personal = false %>
		<input type=checkbox  <% if b_personal then %>checked<% end if %> name="b_personal" value="1">
	</td>
	<td class='labelTD'>check this to make the event hidden from other users</td>
</tr>
<tr>
	<td class=labelTD align=right>&nbsp;
	<% if event_id <> "" then %><input type=button name=new_button value='NEW' onclick="window.location = '<% =request.servervariables("script_name") %>'"><% end if %>
	</td>
	<td class=dataTD>
	<% if event_id = "" then %><input type=submit name=insert_button value='ADD TO CALENDAR'><% end if %>
	<% if event_id <> "" then %><input type=submit name=update_button value='UPDATE'><% end if %>
	<% if event_id <> "" then %><input type=submit name=delete_button value='DELETE' onclick="document.edit_Events.action.value = 'delete_edit_Events'"><% end if %>
	</td>
	<td class=labelTD>&nbsp;
	</td>
<input type=hidden name="action" value="<% if event_id <> "" then %>update<% else %>insert<%end if %>_edit_Events"></tr>

</form>
</table>
<%

':: end hide form if
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
%>