<%
IF SESSION("SESSIONVALID") <> 1 THEN
SESSION("location") = "calendareditpage.asp"
response.redirect("login.asp")
END IF
Dim cnnSimple ' ADO connection
Dim rstSimple ' ADO recordset
Dim strDBPath ' path to our Access database (*.mdb) file
strDBPath = Server.MapPath("..\fpdb\calendar.mdb")
DB_CONNECTIONSTRING = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDBPath & ";"
IF SESSION("SESSIONVALID") = 1 THEN
IF request("direction") = "" THEN
session("nowdate") = now()
END IF
IF request("direction")="back" THEN
Session("nowdate") = Session("nowdate") - 7
END IF
IF request("direction") = "next" THEN
Session("nowdate") = Session("nowdate") + 7
END IF
function dayofweek (day)
Select CASE DAY
Case 1
dayofweek = "Sunday"
Case 2
dayofweek = "Monday"
Case 3
dayofweek = "Tuesday"
Case 4
dayofweek = "Wednesday"
Case 5
dayofweek = "Thursday"
Case 6
dayofweek = "Friday"
Case 6
dayofweek = "Saturday"
END SELECT
END FUNCTION
strDBPath = Server.MapPath("..\fpdb\calendar.mdb")
daysback=(weekday(now())-1)
IF Request("Action") = "delete" or request("Action") = "weekly" THEN
SQLstr = "SELECT * FROM results where key ="& request("id")
ELSE
SQLstr = "SELECT * FROM results where (cdate(date) > #"& session("nowdate")-daysback-1 &" #) AND (cdate(date) < #"& session("nowdate")- daysback + 8 &" #) ORDER BY DATE, TIME"
END IF
Set cnnSimple = Server.CreateObject("ADODB.Connection")
cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
Set rstSimple = server.CreateObject("ADODB.Recordset")
'Set rstSimple = cnnSimple.Execute(sqlstr)
rstSimple.Open SQLstr, DB_CONNECTIONSTRING, 1, 3
IF REQUEST("action") = "add" THEN
rstsimple.addnew
rstsimple.Fields("Date").Value = cdate(request.form("date"))
rstsimple.Fields("time").Value = request.form("time")
rstsimple.Fields("Event").Value = request.form("event")
rstsimple.update
response.redirect("calendareditpage.asp")
END IF
IF REQUEST("action") = "weekly" THEN
rstsimple.movefirst
tempdate=rstsimple.Fields("Date").Value + 7
temptime=rstsimple.Fields("time").Value
tempevent=rstsimple.Fields("Event").Value
rstsimple.addnew
rstsimple.Fields("Date").Value = tempdate
rstsimple.Fields("time").Value = temptime
rstsimple.Fields("Event").Value = tempevent
rstsimple.update
response.redirect("calendareditpage.asp")
END IF
IF Request("Action") = "delete" THEN
rstsimple.movefirst
rstsimple.delete
'rstsimple.update
response.redirect("calendareditpage.asp")
END IF
%>
Guest View Weekly Monthly Complete Add
Week of <%= month(Session("nowdate")-daysback) %>/<%=day(Session("nowdate")-daysback)%>/<%= year(Session("nowdate")-daysback) %>
<%IF Session("nowdate")-now() > 0 THEN %>
<% ELSE %> <%END IF%>
<%IF Session("nowdate")-now() < 60 THEN %>
<% ELSE %> <%END IF%>
|
Date |
Date |
Time |
Event |
|
<%
TEMPDATE = NOW() - 1000
rows =0
Do While Not rstSimple.EOF
%>
<%IF TEMPDATE <> rstSimple.Fields("Date").Value Then%>
|
|
|
|
|
|
|
<%=dayofweek(weekday(rstSimple.Fields("Date").Value))%> |
<%= month(rstSimple.Fields("Date").Value) %>/<%=day(rstSimple.Fields("Date").Value)%>/<%= year(rstSimple.Fields("Date").Value) %> |
<%ELSE%>
|
|
|
<%END IF%>
<%=(rstSimple.Fields("Time").Value)%> |
<%= rstSimple.Fields("event").Value %> |
">
delete
">copy to next week
|
<%
TEMPDATE = rstSimple.Fields("Date").Value
rstSimple.MoveNext
rows = rows + 1
Loop%>
<%IF rows < 1 THEN%>
Sorry, our calendar isn't up to this date!
<%END IF%>
<%END IF%>
Guest View Weekly
Monthly Add