/*
Table used to recored event types, such as: daily, meeting and so on.
you can add what ever you like.
*/
CREATE TABLE dbo.CALENDAR_EVENT_TYPE (
EVENT_TYPE smallint NOT NULL ,
EVENT_NAME varchar (100) NOT NULL ,
CONSTRAINT PK___3__12 PRIMARY KEY CLUSTERED
(
EVENT_TYPE
),
CONSTRAINT UQ_CALENDAR_EVENT_TYPE_4__12 UNIQUE NONCLUSTERED
(
EVENT_NAME
)
)
/*
Table used to add somebody's event
*/
CREATE TABLE dbo.CALENDAR (
EVENT_ID int IDENTITY(1, 1) NOT NULL, /* this is auto-number column, in fact a key */
NAME char (8) NOT NULL , /* User name, who add this record */
DATE_TIME datetime NOT NULL , /* the time of the event */
EVENT_NAME varchar (100) NOT NULL , /* the title of the event */
EVENT_TYPE smallint NOT NULL , /* what is the type of the event */
DETAIL varchar (255) NULL , /* description in detail */
CONSTRAINT PK___2__12 PRIMARY KEY CLUSTERED /* set primary key */
(
EVENT_ID,
NAME,
DATE_TIME,
EVENT_TYPE
),
CONSTRAINT FK_CALENDAR_3__12 FOREIGN KEY /* set foreign key */
(
EVENT_TYPE
) REFERENCES dbo.CALENDAR_EVENT_TYPE (
EVENT_TYPE
)
)
<%
If Session("UserName")="" Then ' prior to this page, you must write a logon page by yoursef. in this page, you must check user's information then set a Session variable
Session("redirectPage")=Request.ServerVariables("SCRIPT_NAME")
Response.redirect("password.asp")
END If
%>
<!-- #include file="opendb.inc"-->
<!-- #include file="FormatDateTimeCn.vbs"-->
<%
Dim dtToday
'dtToday = Date()
dtToday = Session("DATE_IN_USE")
Dim dtCurViewMonth ' First day of the currently viewed month
Dim dtCurViewDay ' Current day of the currently viewed month
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
<TITLE>Personal Event Calendar</TITLE>
<LINK REV="made" HREF="mailto:[email protected]">
<META NAME="author" content="Hardy Wang">
<META name="generator" content="My Hands">
<META name="keywords" content="Calendar">
</HEAD>
<BODY BACKGROUND="bg120.gif">
<H2 ALIGN=CENTER>Personal Event Calendar</H2>
<% REM This section defines functions to be used later on. %>
<% REM This sets the Previous Sunday and the Current Month %>
<%
'--------------------------------------------------
Function DtPrevSunday(ByVal dt)
Do While WeekDay(dt) > vbSunday
dt = DateAdd("d", -1, dt)
Loop
DtPrevSunday = dt
End Function
'--------------------------------------------------
%>
<%
' REM Set current view month from posted CURDATE, or the current date as appropriate.
' if posted from the form
If InStr(1, Request.Form, "MonthPrev", 1) > 0 Then
dtCurViewMonth = DateAdd("m", -1, Request.Form("CURDATE"))
ElseIf InStr(1, Request.Form, "MonthNext", 1) > 0 Then
dtCurViewMonth = DateAdd("m", 1, Request.Form("CURDATE"))
ElseIf InStr(1, Request.Form, "YearPrev", 1) > 0 Then
dtCurViewMonth = DateAdd("yyyy", -1, Request.Form("CURDATE"))
ElseIf InStr(1, Request.Form, "YearNext", 1) > 0 Then
dtCurViewMonth = DateAdd("yyyy", 1, Request.Form("CURDATE"))
Else
If Request("Y") <> "" and Request("M") <> "" Then
' This means it's clicked through
dtCurViewMonth = DateSerial(Request("Y"), Request("M"), 1)
Session("DATE_IN_USE") = DateSerial(Request("Y"), Request("M"), Request("D"))
dtToday = Session("DATE_IN_USE")
Else
' This means it's the first time enter this page
dtCurViewMonth = DateSerial(Year(dtToday), Month(dtToday), 1)
End If
End If
%>
<% REM --------BEGINNING OF DRAW CALENDAR SECTION-------- %>
<% REM This section executes the event query and draws a matching calendar. %>
<%
Dim iDay, iWeek, sFontColor
%>
<FORM NAME="fmNextPrev" ACTION="<%=Request("SCRIPT_NAME")%>" METHOD=POST>
<TABLE WIDTH=100% BORDER=0>
<TR><TD VALIGN=TOP>
<TABLE CELLPADDING=3 CELLSPACING=0 BORDER=0 BGCOLOR="#99CCFF" BORDERCOLORDARK="#003399" BORDERCOLORLIGHT="#FFFFFF">
<TR VALIGN=MIDDLE ALIGN=CENTER>
<TD COLSPAN=7>
<TABLE CELLPADDING=0 CELLSPACING=0 WIDTH="100%" BORDER=0>
<TR VALIGN=MIDDLE ALIGN=CENTER>
<TD ALIGN=LEFT>
<INPUT TYPE=IMAGE NAME="YearPrev" SRC="dbl_left_arrow.gif" BORDER=0 HSPACE=0 VSPACE=0 ALT="Prev Year">
</TD>
<TD ALIGN=RIGHT>
<INPUT TYPE=IMAGE NAME="MonthPrev" SRC="left_arrow.gif" BORDER=0 HSPACE=0 VSPACE=0 ALT="Prev Month">
</TD>
<TD>
<FONT FACE="Arial" COLOR="#000000" SIZE=-1>
<B><%=MonthName(Month(dtCurViewMonth)) & " " & Year(dtCurViewMonth)%></B>
</FONT>
</TD>
<TD ALIGN=LEFT>
<INPUT TYPE=IMAGE NAME="MonthNext" SRC="right_arrow.gif" BORDER=0 HSPACE=0 VSPACE=0 ALT="Next Month">
</TD>
<TD ALIGN=RIGHT>
<INPUT TYPE=IMAGE NAME="YearNext" SRC="dbl_right_arrow.gif" BORDER=0 HSPACE=0 VSPACE=0 ALT="Next Year">
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR VALIGN=TOP ALIGN=CENTER BGCOLOR="#000099">
<TH><FONT COLOR="#FFFFFF" FACE="ARIAL" SIZE=-1>S</FONT></TH>
<TH><FONT COLOR="#FFFFFF" FACE="ARIAL" SIZE=-1>M</FONT></TH>
<TH><FONT COLOR="#FFFFFF" FACE="ARIAL" SIZE=-1>T</FONT></TH>
<TH><FONT COLOR="#FFFFFF" FACE="ARIAL" SIZE=-1>W</FONT></TH>
<TH><FONT COLOR="#FFFFFF" FACE="ARIAL" SIZE=-1>T</FONT></TH>
<TH><FONT COLOR="#FFFFFF" FACE="ARIAL" SIZE=-1>F</FONT></TH>
<TH><FONT COLOR="#FFFFFF" FACE="ARIAL" SIZE=-1>S</FONT></TH>
</TR>
<%
dtCurViewDay = DtPrevSunday(dtCurViewMonth)
For iWeek = 0 To 5
Response.Write "<TR>" & vbCrLf
For iDay = 0 To 6
If dtCurViewDay = dtToday Then
Response.Write "<TD BGCOLOR=#ffffcc>"
Else
Response.Write "<TD>"
End If
'---- Write day of month
If Month(dtCurViewDay) = Month(dtCurViewMonth) Then
Response.Write "<A HREF=" & Request("SCRIPT_NAME") & "?M=" & Month(dtCurViewDay) & "&D=" & Day(dtCurViewDay) & "&Y=" & Year(dtCurViewDay) & " TITLE=" & Year(dtCurViewDay) & "-" & Month(dtCurViewDay) & "-" & Day(dtCurViewDay) & ">"
Response.Write "<FONT FACE=""Arial"" SIZE=""-2"" COLOR=#000000><B>"
Else
Response.Write "<FONT FACE=""Arial"" SIZE=""-2"" COLOR=#8A8A8A><B>"
End If
Response.Write Day(dtCurViewDay)
Response.Write "</B></FONT>"
If Month(dtCurViewDay) = Month(dtCurViewMonth) Then
Response.Write "</A>"
End If
Response.Write "</TD>" & vbCrLf
dtCurViewDay = DateAdd("d", 1, dtCurViewDay)
Next
Response.Write "</TR>" & vbCrLf
Next
%>
<%REM --------END OF DRAW CALENDAR SECTION-------- %>
<%REM --------BEGIN OF SELECTED DAY'S EVENT SECTION-------- %>
<TR>
<TD COLSPAN=7 bgcolor="006699">
<font color=white size="1">
Anniversary
</FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=7 bgcolor=#dddddd>
<font color=black size="1">
<%
' The exsisting values, that can be viewed, updated and deleted
Query = "select EVENT_ID, EVENT_NAME, Years=DateDiff(year, DATE_TIME, '"
Query = Query & FormatDateTimeCn(dtToday, 4)
Query = Query & "') from CALENDAR where EVENT_TYPE=8 and NAME='"
Query = Query & Session("UserName")
Query = Query & "' and datepart(month, DATE_TIME)="
Query = Query & Month(dtToday)
Query = Query & " and datepart(day, DATE_TIME)="
Query = Query & Day(dtToday)
set Check = dbConnection.Execute(Query)
Do While Not Check.EOF
Response.Write("<a href=""delete_special.asp?event_id=" & trim(Check("EVENT_ID")) & """>")
Response.Write("<img src=""button_delete_large.gif"" width=8 height=8 border=0 alt=Delete>")
Response.Write("</a>" & vbCrLf)
Response.Write(trim(Check("EVENT_NAME")) & " " & trim(Check("Years")) & "Year<br>")
Check.MoveNext
Loop
%>
</FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=7 bgcolor="006699">
<font color=white size="1">Today's Birthday</FONT></TD>
</TR>
<TR>
<TD COLSPAN=7 bgcolor=#dddddd>
<font color=black size="1">
<%
Query = "select EVENT_ID, EVENT_NAME, Years=DateDiff(year, DATE_TIME, '"
Query = Query & FormatDateTimeCn(dtToday, 4)
Query = Query & "') from CALENDAR where EVENT_TYPE=9 and NAME='"
Query = Query & Session("UserName")
Query = Query & "' and datepart(month, DATE_TIME)="
Query = Query & Month(dtToday)
Query = Query & " and datepart(day, DATE_TIME)="
Query = Query & Day(dtToday)
'Response.Write(Query)
set Check = dbConnection.Execute(Query)
Do While Not Check.EOF
Response.Write("<a href=""delete_special.asp?event_id=" & trim(Check("EVENT_ID")) & """>")
Response.Write("<img src=""button_delete_large.gif"" width=8 height=8 border=0 alt=Delete>")
Response.Write("</a>" & vbCrLf)
Response.Write(trim(Check("EVENT_NAME")) & " " & trim(Check("Years")) & "Year<br>")
Check.MoveNext
Loop
%>
</FONT>
</TD>
</TR>
<%REM --------END OF SELECTED DAY'S EVENT SECTION-------- %>
</TABLE>
</TD>
<%REM --------BEGIN OF SELECTED DAY'S DETAIL EVENT LIST-------- %>
<%
DateString = "?Y=" & Year(Session("DATE_IN_USE"))
DateString = DateString & "&M=" & Month(Session("DATE_IN_USE"))
DateString = DateString & "&D=" & Day(Session("DATE_IN_USE"))
%>
<TD VALIGN=TOP>
<TABLE CELLPADDING="1" CELLSPACING="1" BORDER="0">
<TR><TD COLSPAN=3 BGCOLOR=#000000></TD></TR>
<TR><TD COLSPAN=3 BGCOLOR=#CCCC99>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH="100%">
<TR>
<TD BGCOLOR=#B5B500><%=Session("UserName")%>'s event arrangement(<%=FormatDateTimeCn(dtToday, 0)%>)</TD>
<TD BGCOLOR=#B5B500 ALIGN=RIGHT>
<img src="button_bigplus.gif" alt="insert new">Add
<img src="button_delete_large.gif" alt="delete">Delete
<img src="button_zoomin.gif" alt="view/update">View/Update
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR><TD COLSPAN=3 BGCOLOR=#000000></TD></TR>
<%
' are there some events today?
Dim EventsArray(60, 24)
'For i=0 to 60
' For j=0 to 24
' EventsArray(i, j) = ""
' Next
'Next
Query = "SELECT EVENT_DESC=CALENDAR_EVENT_TYPE.EVENT_NAME+': '+CALENDAR.EVENT_NAME, H=datepart(hour, DATE_TIME), M=datepart(minute, DATE_TIME) FROM CALENDAR, CALENDAR_EVENT_TYPE where "
Query = Query & "datepart(year, DATE_TIME) = datepart(year, '"
Query = Query & FormatDateTimeCn(dtToday, 4)
Query = Query & "') and datepart(month, DATE_TIME) = datepart(month, '"
Query = Query & FormatDateTimeCn(dtToday, 4)
Query = Query & "') and datepart(day, DATE_TIME) = datepart(day, '"
Query = Query & FormatDateTimeCn(dtToday, 4)
Query = Query & "') and NAME='"
Query = Query & Session("UserName") & "'"
Query = Query & " and CALENDAR.EVENT_TYPE=CALENDAR_EVENT_TYPE.EVENT_TYPE"
'Response.Write(Query)
set Check = dbConnection.Execute(Query)
Do while Not Check.EOF
EventsArray(CInt(trim(Check("M"))), CInt(trim(Check("H")))) = trim(Check("EVENT_DESC"))
Check.MoveNext
Loop
%>
<%
For i = 8 to 22
' from 08:00:00 to 22:00:00
%>
<TR>
<TD BGCOLOR="#6699CC" NOWRAP ROWSPAN="2" ALIGN=RIGHT VALIGN=MIDDLE WIDTH=1%>
<font color="white" face=verdana font size="4"><%=i%></b></font>
</td>
<td width="1%" bgcolor=#6699CC align=center valign=center>
<% If EventsArray(0, i) <> "" Then %>
<A HREF="detail.asp<%=DateString%>&SH=<%=i%>&SM=0&Action=Update">
<img src="button_zoomin.gif" border=0 alt="View/Update">
</a>
<% Else %>
<A HREF="detail.asp<%=DateString%>&SH=<%=i%>&SM=0&Action=Add">
<img src="button_bigplus.gif" border=0 alt="Add">
</a>
<% End If %>
</td>
<TD BGCOLOR="#DDDDDD">
<%
If EventsArray(0, i) <> "" Then
Response.Write("<A HREF=""detail.asp" & DateString & "&SH=" & i & "&SM=0&Action=Delete"">")
Response.Write("<img src=""button_delete_large.gif"" border=0 alt=""Delete"">")
Response.Write("</a>")
Response.Write(EventsArray(0, i))
Else
Response.Write(" ")
End If
%>
</TD>
</TR>
<TR>
<TD WIDTH=1% BGCOLOR=#6699CC ALIGN=CENTER VALIGN=CENTER>
<% If EventsArray(30, i) <> "" Then %>
<A HREF="detail.asp<%=DateString%>&SH=<%=i%>&SM=30&Action=Update">
<img src="button_zoomin.gif" border=0 alt="View/Update">
</a>
<% Else %>
<A HREF="detail.asp<%=DateString%>&SH=<%=i%>&SM=30&Action=Add">
<img src="button_bigplus.gif" border=0 alt="Add">
</a>
<% End If %>
</td>
<td bgcolor="#dddddd">
<%
If EventsArray(30, i) <> "" Then
Response.Write("<A HREF=""detail.asp" & DateString & "&SH=" & i & "&SM=30&Action=Delete"">")
Response.Write("<img src=""button_delete_large.gif"" border=0 alt=""Delete"">")
Response.Write("</a>")
Response.Write(EventsArray(30, i))
Else
Response.Write(" ")
End If
%>
</td>
</TR>
<% Next %>
</TABLE>
</TD>
<%REM --------END OF SELECTED DAY'S DETAIL EVENT LIST-------- %>
</TR>
</TABLE>
<INPUT TYPE=HIDDEN NAME="CURDATE" VALUE="<%=dtCurViewMonth%>">
</FORM>
</BODY>
</HTML>
<%
If Session("UserName")="" Then
Session("redirectPage")=Request.ServerVariables("SCRIPT_NAME")
Response.redirect("password.asp")
END If
%>
<!-- #include file="opendb.inc"-->
<!-- #include file="FormatDateTimeCn.vbs"-->
<%
Request("D") & "/" & Request("Y") & " " & Request("SH") & ":" & Request("SM") & ":0"
start_date_month = Request("M")
start_date_day = Request("D")
start_date_year = Request("Y")
start_date_hour = Request("SH")
start_date_minute = Request("SM")
Message = ""
Action = trim(Request("Action"))
'Response.Write(Action)
%>
<%
' register data now
If Request("Add") <> "" Then
' Response.Write("Hi")
If trim(Request("title")) = "" Then
Message = "Please add a title for thsievent"
Action = "Add"
start_date_month = Request("start_date_month")
start_date_day = Request("start_date_day")
start_date_year = Request("start_date_year")
start_date_hour = Request("start_date_hour")
start_date_minute = Request("start_date_minute")
Else
Query = "insert into CALENDAR (NAME, DATE_TIME, EVENT_NAME, EVENT_TYPE, DETAIL) values('"
Query = Query & Session("UserName")
Query = Query & "', '"
If trim(Request("event_type_id")) = "8" or trim(Request("event_type_id")) = "9" Then
' it is not ncessary to add the time part for anniversary and birthday
Query = Query & trim(Request("start_date_month"))
Query = Query & "/"
Query = Query & trim(Request("start_date_day"))
Query = Query & "/"
Query = Query & trim(Request("start_date_year"))
Else
Query = Query & trim(Request("start_date_month"))
Query = Query & "/"
Query = Query & trim(Request("start_date_day"))
Query = Query & "/"
Query = Query & trim(Request("start_date_year"))
Query = Query & " "
Query = Query & trim(Request("start_date_hour"))
Query = Query & ":"
Query = Query & trim(Request("start_date_minute")) & ":0"
End If
Query = Query & "', '"
Query = Query & trim(Request("title"))
Query = Query & "', "
Query = Query & trim(Request("event_type_id"))
If trim(Request("detail")) = "" Then
Query = Query & ", null)"
Else
Query = Query & ", '" & trim(Request("detail"))
Query = Query & "')"
End If
'Response.Write(Query)
dbConnection.Execute(Query)
response.redirect("index.asp")
End If
ElseIf Request("Update") <> "" Then
If trim(Request("title")) = "" or len(trim(Request("detail"))) > 255 Then
Response.redirect("index.asp")
Else
Query = "update CALENDAR set EVENT_NAME='"
Query = Query & trim(Request("title"))
Query = Query & "', EVENT_TYPE=" & trim(Request("event_type_id"))
Query = Query & ", DETAIL='"
Query = Query & trim(Request("detail")) & "'"
Query = Query & " where EVENT_ID=" & trim(Request("event_id"))
Query = Query & " and NAME='" & Session("UserName") & "'"
'Response.Write(Query)
dbConnection.Execute(Query)
Response.redirect("index.asp")
End If
End If
%>
<%
' Build event list
Dim EventList(100)
Query = "select * from CALENDAR_EVENT_TYPE order by EVENT_TYPE"
set Check = dbConnection.Execute(Query)
Do while Not Check.EOF
EventList(CInt(trim(Check("EVENT_TYPE")))) = trim(Check("EVENT_NAME"))
Check.MoveNext
Loop
Select Case Action
Case "Add"
' Add new entry here
'Query = "select * from CALENDAR_EVENT_TYPE order by EVENT_TYPE"
'set Check = dbConnection.Execute(Query)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Final//EN">
<HTML>
<HEAD>
<TITLE>Add your entry now</TITLE>
<LINK REV="made" HREF="mailto:[email protected]">
<META NAME="author" content="Hardy Wang">
<META name="generator" content="My Hands">
<META name="keywords" content="new, entry">
<BODY BACKGROUND="bg120.gif">
<script language=javascript>
window.status="<%=Message%>"
</script>
<CENTER>
<FORM action="<%=Request("SCRIPT_NAME")%>" method=post>
<table width=80% border=0>
<tr><th colspan=2><font size=+2>Add new event</font></th></tr>
<tr><td bgcolor=black colspan=2><font color=white><b>Description</b></font></td></tr>
<tr>
<td bgcolor="#DDDDDD" align=right><B>Event Title</B></td>
<td bgcolor="#DDDDDD"><input type=text size=60 name=title maxlength=100></td>
</tr>
<tr>
<td bgcolor="#DDDDDD" align=right><B>Event Type</B></td>
<td bgcolor="#DDDDDD">
<select name=event_type_id>
<%
'Do while not Check.EOF
' Response.Write("<option value=" & trim(Check("EVENT_TYPE")) & ">" & trim(Check("EVENT_NAME")))
' Check.MoveNext
'Loop
For i = 0 to 100
If EventList(i) <> "" Then
Response.Write("<option value=" & i & ">" & EventList(i))
End If
Next
%>
</select>
</td>
</tr>
<tr>
<td bgcolor="#DDDDDD" align=right><B>Detail</B></td>
<td bgcolor="#DDDDDD">
<textarea name="detail" rows="4" cols="50" wrap="virtual"></textarea>
</td>
</tr>
<tr><td colspan=2> </td></tr>
<tr><td bgcolor=black colspan=2><FONT COLOR="#FFFFFF"><B>Event Time</B></FONT></td></tr>
<tr>
<td bgcolor="#DDDDDD" align=right><B>Begin time</B></td>
<td bgcolor="#DDDDDD">
<%=start_date_year%>Year<%=start_date_month%>Month<%=start_date_day%>day
<%=start_date_hour%>:<%=start_date_minute%>
<input type=hidden name=start_date_month value="<%=start_date_month%>">
<input type=hidden name=start_date_day value="<%=start_date_day%>">
<input type=hidden name=start_date_year value="<%=start_date_year%>">
<input type=hidden name=start_date_hour value="<%=start_date_hour%>">
<input type=hidden name=start_date_minute value="<%=start_date_minute%>">
</td>
</tr>
<tr><td colspan=2 align=center><input type=submit value=Submit name=Add></td></tr></table>
</FORM>
</BODY></HTML>
<%
Case "Update"
' update existing entry here
Query = "select * from CALENDAR where NAME='"
Query = Query & Session("UserName")
Query = Query & "' and NOT EVENT_TYPE IN (8, 9)"
Query = Query & " and DATE_TIME='"
Query = Query & trim(Request("M")) & "/"
Query = Query & trim(Request("D")) & "/"
Query = Query & trim(Request("Y")) & " "
Query = Query & trim(Request("SH")) & ":"
Query = Query & trim(Request("SM")) & ":0'"
'Response.Write(Query)
Set Check = dbConnection.Execute(Query)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Final//EN">
<HTML>
<HEAD>
<TITLE>Update your entry now</TITLE>
<LINK REV="made" HREF="mailto:[email protected]">
<META NAME="author" content="Hardy Wang">
<META name="generator" content="My Hands">
<META name="keywords" content="view, update, entry">
<BODY BACKGROUND="bg120.gif">
<script language=javascript>
window.status="<%=Message%>"
</script>
<CENTER>
<FORM action="<%=Request("SCRIPT_NAME")%>" method=post>
<input type=hidden name=event_id value="<%=trim(Check("EVENT_ID"))%>">
<table width=80% border=0>
<tr><th colspan=2><font size=+2>View/Update Events</font></th></tr>
<tr><td bgcolor=black colspan=2><font color=white><b>Description</b></font></td></tr>
<tr>
<td bgcolor="#DDDDDD" align=right><B>Event Title</B></td>
<td bgcolor="#DDDDDD"><input type=text size=60 name=title maxlength=100 value="<%=trim(Check("EVENT_NAME"))%>"></td>
</tr>
<tr>
<td bgcolor="#DDDDDD" align=right><B>Event Type</B></td>
<td bgcolor="#DDDDDD">
<select name=event_type_id>
<%
For i = 0 to 100
If EventList(i) <> "" Then
If CInt(trim(Check("EVENT_TYPE"))) = i Then
Selected = "selected"
Else
Selected = ""
End If
Response.Write("<option value=" & i & " " & Selected & ">" & EventList(i))
End If
Next
%>
</select>
</td>
</tr>
<tr>
<td bgcolor="#DDDDDD" align=right><B>Detail</B></td>
<td bgcolor="#DDDDDD">
<textarea name="detail" rows="4" cols="50" wrap="virtual"><%=trim(Check("DETAIL"))%></textarea>
</td>
</tr>
<tr><td colspan=2> </td></tr>
<tr><td bgcolor=black colspan=2><FONT COLOR="#FFFFFF"><B>Event Type</B></FONT></td></tr>
<tr>
<td bgcolor="#DDDDDD" align=right><B>Begin Time</B></td>
<td bgcolor="#DDDDDD">
<%=start_date_year%>Year<%=start_date_month%>Month<%=start_date_day%>Day
<%=start_date_hour%>:<%=start_date_minute%>
</td>
</tr>
<tr><td colspan=2 align=center><input type=submit value=Submit name=Update></td></tr></table>
</FORM>
</BODY></HTML>
<%
Case "Delete"
' delete entry here
Query = "delete CALENDAR where NAME='"
Query = Query & Session("UserName")
Query = Query & "' and DATE_TIME='"
Query = Query & trim(Request("M")) & "/" & trim(Request("D")) & "/" & trim(Request("Y"))
Query = Query & " " & trim(Request("SH")) & ":" & trim(Request("SM")) & ":0'"
Query = Query & " and (not EVENT_TYPE=8) and (not EVENT_TYPE=9)"
'Response.Write(Query)
dbConnection.Execute(Query)
Response.redirect("index.asp")
%>
<%
End Select
%>
<%
If Session("UserName")="" Then
Session("redirectPage")=Request.ServerVariables("SCRIPT_NAME")
Response.redirect("password.asp")
END If
%>
<!-- #include file="opendb.inc"-->
<%
Query = "delete CALENDAR where EVENT_ID="
Query = Query & trim(Request("event_id"))
Query = Query & " and NAME='"
Query = Query & Session("UserName") & "'"
dbConnection.Execute(Query)
response.redirect("index.asp")
%>