My Little Scripts - agenda-calendar.asp

Scripts.com - Get the best scripts NOW!
HotScripts.com - Over 10 web rings.
more links...
Index News Samples Downloads E-Mail me Forum Sign Up
AGENDA-CALENDAR.ASP

Organise your week with agenda-calendar.asp. All you have to do is initialize the variables at the beginning of the script, and you're set. This is the ASP version of agenda-calendar.php.

Agenda Calendar was written to provide a unique look for each month of the year. To change this, you must edit the arrays declared at the end of the initial php block.
<%
Host =           "localhost"
User =           ""
PassWord =       ""
DataBaseName =   ""
TableName =      "agenda"

dim Connection

set Connection = server.CreateObject("ADODB.Connection")
Connection.open DataBaseName, User, PassWord

'Couldn't get recordsets to work with MyODBC:(
'set Tables = Server.CreateObject("ADODB.Recordset")

dim previous_month
dim this_month
dim next_month

dim current_day
dim current_month
dim current_year

'This below will create your table for you if it does not exist.
'Feel free to comment it out once the table is created.

'Couldn't get recordsets to work with MyODBC:(
'Tables.Open "show tables like '" & TableName & "'", Connection, 3, 3

set Tables = Connection.Execute("show tables like '" & TableName & "'")

if Tables.EOF = true then

   create = "create table " & TableName & _
            "(" & _
            "id int primary key auto_increment, " & _
            "text text, " & _
            "day int, " & _
            "month int, " & _
            "year int " & _
            ")"

  Connection.Execute(create)
end if

Entered_UserName = ""
Entered_PassWord = ""

if(Request.Cookies("UserName") <> "" and _
   Request.Cookies("PassWord") <> "") then
   Entered_UserName = Request.Cookies("UserName")
   Entered_PassWord = Request.Cookies("PassWord")
end if

isLogged = true

if Entered_UserName <> User or Entered_PassWord <> PassWord then
   isLogged = false
end if

'Execute MySQL queries if someone is logged in.
if isLogged = true then
   if param("save") <> "" then
      for week_day = 0 to 6
          current_day = param("day" & week_day)
          current_month = param("month" & week_day)
          current_year = param("year" & week_day)
          text = trim(param("text" & week_day))

          SQL_Select = "select count(id) from " & TableName & " where day = " & current_day & _
                       " and month = " & current_month & _
                       " and year = " & current_year

          if current_day <> "" and current_month <> "" or current_year <> "" then
             entries = Connection.Execute(SQL_Select)
             entry = entries(0)
          else
             entry = 0
          end if

          if entry < 1 then
             if text <> "" then
                Insert = "insert into " & TableName & " (text, day, month, year) values ('" & text & "', " & _
                         current_day & ", " & current_month & ", " & current_year & ")"
                'If there is no entry in the table for that day, create it.
                Connection.Execute(Insert)
             end if
          else
             if text <> "" then
                Update = "update " & TableName & " set text ='" & text & "' where day = " & current_day & _
                         " and month = " & current_month & " and year = " & current_year

                Connection.Execute(Update)
             else
                Delete = "delete from " & TableName & " where day = " & current_day & _
                         " and month = " & current_month & " and year = " & current_year
                'No point in keeping empty records in the table.
                Connection.Execute(Delete)
             end if
          end if
      next
   end if
end if

function schedule(today)
         'If no parameter is passed use the current date.
         if isnull(today) then
            today = date
         end if

         today = DateValue(today)

         current_day = day(today)
         week_day = Weekday(today)
         current_month = month(today)
         current_year = year(today)

         month_names = Array("January", _
                             "February", _
                             "March", _
                             "April", _
                             "May", _
                             "June", _
                             "July", _
                             "August", _
                             "September", _
                             "October", _
                             "November", _
                             "December")

         weekday_names = Array("Sunday", _
                               "Monday", _
                               "Tuesday", _
                               "Wednesday", _
                               "Thursday", _
                               "Friday", _
                               "Saturday")

         today = datevalue(current_month & "/" & current_day & "/" & current_year)

         sunday = current_day - week_day
         saturday = current_day + (6 - week_day)

         schedule_html = "<table height=""100%"" width=""100%"" cellspacing=""20"">" & vbNewLine

         schedule_html = schedule_html & "<tr><td align=""right"" valign=""top"">" & vbNewLine

         previous_month = datevalue(dateadd("m", -1, current_month &  "/1/" & current_year))
         this_month = datevalue(current_month & "/1/" & current_year)
         next_month = datevalue(dateadd("m", 1, current_month &  "/1/" & current_year))

         first_week_day = weekday(this_month) - 1
         days_in_this_month = datediff("d", this_month, next_month)

         schedule_html = schedule_html & "<table>" & vbNewLine

         schedule_html = schedule_html & "<tr><td align=""center"" class=""calendar_cell"">" & _
                           "<a class=""calendar_date"" " & _
                           "href=""agenda-calendar.asp?month=" & month(previous_month) & "&year=" & year(previous_month) & """><</a></td>" & vbNewLine

         schedule_html = schedule_html & "<td colspan=""5"" align=""center"" class=""calendar_cell"">" & _
                           "<font class=""calendar_month"">" & month_names(current_month - 1) & " " & current_year & "</font></td>" & vbNewLine

         schedule_html = schedule_html & "<td align=""center"" class=""calendar_cell"">" & _
                           "<a class=""calendar_date"" " & _
                           "href=""agenda-calendar.asp?month=" & month(next_month) & "&year=" & year(next_month) & """>></a></td></tr>" & vbNewLine

         schedule_html = schedule_html & "<tr>" & vbNewLine

         'Fill the first week of the month with the appropriate number of blanks.
         for week_day = 0 to first_week_day - 1
            schedule_html = schedule_html & "<td class=""calendar_cell""> </td>"
         next

         week_day = first_week_day
         for day_counter = 1 to days_in_this_month
             week_day = week_day mod 7

             if week_day = 0 then
                schedule_html = schedule_html & "</tr><tr>" & vbNewLine
             end if

             'Do something different for the current day.
             if current_day = day_counter then
                schedule_html = schedule_html & "<td class=""calendar_current_cell"" align=""center""><font class=""calendar_current_date"">" & day_counter & "</font></td>" & vbNewLine
             else
                schedule_html = schedule_html & "<td align=""center"" class=""calendar_cell""> " & _
                                "<a class=""calendar_date"" href=""agenda-calendar.asp?day=" & day_counter & "&month=" & current_month & "&year=" & current_year & """>" & _
                                day_counter & "</a> </td>" & vbNewLine
             end if

             week_day = week_day + 1
         next

         schedule_html = schedule_html & "</tr>" & vbNewLine
         schedule_html = schedule_html & "</table>" & vbNewLine

         schedule_html = schedule_html & "<br /><br />" & vbNewLine

         'Login.
         schedule_html = schedule_html & "<table align=""right"">" & vbNewLine

         if isLogged = true then
            schedule_html = schedule_html & "<tr>"
            schedule_html = schedule_html & "<td>"
            schedule_html = schedule_html & "<input type=""hidden"" name=""save"" value=""yes"" />"
            schedule_html = schedule_html & "<input type=""button"" value=""log out"" class=""calendar_cell"" "
            schedule_html = schedule_html & "onclick=""clearCookie('UserName');"
            schedule_html = schedule_html & "clearCookie('PassWord');"
            schedule_html = schedule_html & "document.EmptyForm.submit();"" />"
            schedule_html = schedule_html & "</td>"
            schedule_html = schedule_html & "<td width=""33%""></td>"
            schedule_html = schedule_html & "<td>"
            schedule_html = schedule_html & "<input type=""button"" value=""save"" class=""calendar_cell"" "
            schedule_html = schedule_html & "onclick=""document.save.submit();"" />"
            schedule_html = schedule_html & "</td>"
            schedule_html = schedule_html & "</tr>" & vbNewLine
         else
            schedule_html = schedule_html & "<form name=""login"">"
            schedule_html = schedule_html & "<tr>"
            schedule_html = schedule_html & "<td align=""right"">"
            schedule_html = schedule_html & "<input type=""text"" name=""UserName"" class=""calendar_cell"" />"
            schedule_html = schedule_html & "</td>"
            schedule_html = schedule_html & "</tr>"
            schedule_html = schedule_html & "<tr>"
            schedule_html = schedule_html & "<td align=""right"">"
            schedule_html = schedule_html & "<input type=""password"" name=""PassWord"" class=""calendar_cell"" />"
            schedule_html = schedule_html & "</twLine

             schedule_html = schedule_html & "</td></tr>" & vbNewLine
         next

         if isLogged = true then
            schedule_html = schedule_html & "</form>" & vbNewLine
         end if

         schedule_html = schedule_html & "</table></td></tr>" & vbNewLine

         schedule_html = schedule_html & "</table>" & vbNewLine

         schedule = schedule_html
end function

function getSchedule(current_day, current_month, current_year)
         'Couldn't get recordsets to work with MyODBC:(
         'set Recordset = Server.CreateObject("ADODB.Recordset")

         SQL_Select = "select text from " & TableName & " where " & _
                      "day = " & current_day & " and " & _
                      "month = " & current_month & " and " & _
                      "year = " & current_year

         'Couldn't get recordsets to work with MyODBC:(
         'Recordset.Open SQL_Select, Connection, 3, 3

         set Recordset = Connection.Execute(SQL_Select)

         if Recordset.EOF <> true then
            getSchedule = Recordset("text")
         else
            getSchedule = ""
         end if

         'Couldn't get recordsets to work with MyODBC:(
         'Recordset.Close()
end function

function rows(ByVal text)
         rows = 0

         position = instr(1, text, "" & vbNewLine)

         while position > 0
         rows = rows + 1
         text = right(text, len(text) - position - 1)
         position = instr(1, text, "" & vbNewLine)
         wend
end function

function param(Name)
         param = ""

         if Request.Form(Name) <> "" then
            param = Request.Form(Name)
         end if

         if Request.QueryString(Name) <> "" then
            param = Request.QueryString(Name)
         end if
end function

current_day = param("day")
current_month = param("month")
current_year = param("year")

today = null

if current_year <> "" then
   if current_day = "" then
      current_day = 1
   end if
   if current_month = "" then
      current_month = 1
   end if

   today = datevalue(current_month & "/" & current_day & "/" & current_year)
end if

agenda = schedule(today)

body = Array _
( _
"background-color:eeeeff;", _
"background-color:ffddee;", _
"background-color:dddddd;", _
"background-color:9999cc;", _
"background-color:ccff99;", _
"background-color:ffdd77;", _
"background-color:ffee00;", _
"background-color:eecc55;", _
"background-color:dd9900;", _
"background-color:000000;", _
"background-color:aa7700;", _
"background-color:ddffdd;" _
)

calendar_month = Array _
( _
"color:000000; font-weight:bold;", _
"color:ff0000; font-weight:bold;", _
"color:00ff00; font-weight:bold;", _
"color:000099; font-weight:bold;", _
"color:000000; font-weight:bold;", _
"color:ff8800; font-weight:bold;", _
"color:6666ff; font-weight:bold;", _
"color:ff6600; font-weight:bold;", _
"color:000000; font-weight:bold;", _
"color:9900ee; font-weight:bold;", _
"color:884400; font-weight:bold;", _
"color:55dd55; font-weight:bold;" _
)

calendar_cell = Array _
( _
"background-color:ffffff; border:1; border-style:solid; border-color:000000; color:000000;", _
"background-color:eeeeff; border:1; border-style:solid; border-color:0000ff; color:ff0000;", _
"background-color:999999; border:1; border-style:solid; border-color:550000; color:ffffff;", _
"background-color:9999ff; border:1; border-style:solid; border-color:550000; color:0000dd;", _
"background-color:ffdd77; border:1; border-style:solid; border-color:550000; color:000000;", _
"background-color:99ff99; border:2; border-style:solid; border-color:ff8800; color:ff8800;", _
"background-color:ffcccc; border:2; border-style:solid; border-color:6666ff; color:6666ff;", _
"background-color:eecc55; border:2; border-style:solid; border-color:ee9900; color:ff6600;", _
"background-color:ffcc00; border:2; border-style:solid; border-color:00aa00; color:000000;", _
"background-color:dd9900; border:2; border-style:solid; border-color:9900ee; color:9900ee;", _
"background-color:ffffff; border:2; border-style:solid; border-color:884400; color:884400;", _
"background-color:dd5555; border:2; border-style:solid; border-color:dd5555; color:55dd55;" _
)

calendar_current_cell = Array _
( _
"background-color:eeeeff; border:1; border-style:solid; border-color:0000ff;", _
"background-color:000000;", _
"background-color:dddddd; border:2; border-style:solid; border-color:009900;", _
"background-color:9999ff; border:1; border-style:solid; border-color:000000;", _
"background-color:ffff00; border:1; border-style:solid; border-color:000000;", _
"background-color:ffdd77;", _
"background-color:6666ff; border:2; border-style:solid; border-color:ffcccc;", _
"background-color:eecc55;", _
"background-color:dd9900;", _
"background-color:000000; border:2; border-style:solid; border-color:dd9900;", _
"background-color:884400; border:2; border-style:solid; border-color:884400;", _
"background-color:ddffdd; border:2; border-style:solid; border-color:dd5555;" _
)

calendar_date = Array _
( _
"background-color:ffffff; color:000000; text-decoration:none;", _
"background-color:eeeeff; color:ff0000; text-decoration:none;", _
"background-color:999999; color:ffffff; text-decoration:none;", _
"background-color:9999ff; color:0000dd; text-decoration:none;", _
"background-color:ffdd77; color:000000; text-decoration:none;", _
"background-color:99ff99; color:ff8800; text-decoration:none;", _
"background-color:ffcccc; color:6666ff; text-decoration:none;", _
"background-color:eecc55; color:ff6600; text-decoration:none;", _
"background-color:ffcc00; color:000000; text-decoration:none;", _
"background-color:dd9900; color:6600ee; text-decoration:none;", _
"background-color:ffffff; color:884400; text-decoration:none;", _
"background-color:dd5555; color:55dd55; text-decoration:none;" _
)

calendar_current_date = Array _
( _
"background-color:eeeeff; color:000000; text-decoration:none; font-weight:bold;", _
"background-color:000000; color:ffeeee; text-decoration:none; font-weight:bold;", _
"background-color:dddddd; color:000000; text-decoration:none; font-weight:bold;", _
"background-color:9999ff; color:000099; text-decoration:none; font-weight:bold;", _
"background-color:ffff00; color:000000; text-decoration:none; font-weight:bold;", _
"background-color:ffdd77; color:ff8800; text-decoration:none; font-weight:bold;", _
"background-color:6666ff; color:ffcccc; text-decoration:none; font-weight:bold;", _
"background-color:eecc55; color:ff6600; text-decoration:none; font-weight:bold;", _
"background-color:dd9900; color:000000; text-decoration:none; font-weight:bold;", _
"background-color:000000; color:dd9900; text-decoration:none; font-weight:bold;", _
"background-color:884400; color:ffffff; text-decoration:none; font-weight:bold;", _
"background-color:ddffdd; color:dd5555; text-decoration:none; font-weight:bold;" _
)

schedule_date = Array _
( _
"color:000000; font-weight:bold; background-color:ffffff; border:1; border-style:solid; border-color:000000;", _
"color:0000ff; font-weight:bold; background-color:ffffff; border:2; border-style:solid; border-color:ff0000;", _
"color:ffffff; font-weight:bold; background-color:999999; border:1; border-style:solid; border-color:000000;", _
"color:000099; font-weight:bold; background-color:9999ff; border:1; border-style:solid; border-color:550000;", _
"color:000000; font-weight:bold; background-color:ffdddd; border:1; border-style:solid; border-color:550000;", _
"color:ff8800; font-weight:bold; background-color:99ff99; border:2; border-style:solid; border-color:ff8800;", _
"color:6666ff; font-weight:bold; background-color:ffcccc; border:2; border-style:solid; border-color:6666ff;", _
"color:ff6600; font-weight:bold; background-color:eecc55; border:2; border-style:solid; border-color:ee9900;", _
"color:000000; font-weight:bold; background-color:00aa00; border:2; border-style:solid; border-color:ffcc00;", _
"color:dd9900; font-weight:bold; background-color:000000; border:2; border-style:solid; border-color:9900ee;", _
"color:884400; font-weight:bold; background-color:ffffff; border:2; border-style:solid; border-color:884400;", _
"color:dd5555; font-weight:bold; background-color:ddffdd; border:2; border-style:solid; border-color:55dd55;" _
)

schedule_entry = Array _
( _
"color:000000; background-color:ffffff; border-style:none;", _
"color:000000; background-color:ffffff; border-style:none;", _
"color:ffffff; background-color:999999; border-style:none;", _
"color:000099; background-color:9999ff; border-style:none;", _
"color:000000; background-color:ffdddd; border-style:none;", _
"color:ff8800; background-color:99ff99; border-style:none;", _
"color:6666ff; background-color:ffcccc; border-style:none;", _
"color:ff6600; background-color:eecc55; border-style:none;", _
"color:000000; background-color:00aa00; border-style:none;", _
"color:dd9900; background-color:000000; border-style:none;", _
"color:884400; background-color:ffffff; border-style:none;", _
"color:dd5555; background-color:ddffdd; border-style:none;" _
)
%>

<html>
<head>
<title>agenda calendar</title>

<style>
body
{
<%= body(month(this_month) - 1) %>
}

.calendar_month
{
<%= calendar_month(month(this_month) - 1) %>
}

.calendar_cell
{
<%= calendar_cell(month(this_month) - 1) %>
}

.calendar_current_cell
{
<%= calendar_current_cell(month(this_month) - 1) %>
}

.calendar_date
{
<%= calendar_date(month(this_month) - 1) %>
}

.calendar_current_date
{
<%= calendar_current_date(month(this_month) - 1) %>
}

.schedule_date_previous
{
<%= schedule_date(month(previous_month) - 1) %>
}

.schedule_date
{
<%= schedule_date(month(this_month) - 1) %>
}

.schedule_date_next
{
<%= schedule_date(month(next_month) - 1) %>
}

.schedule_entry_previous
{
<%= schedule_entry(month(previous_month) - 1) %>
}

.schedule_entry
{
<%= schedule_entry(month(this_month) - 1) %>
}

.schedule_entry_next
{
<%= schedule_entry(month(next_month) - 1) %>
}
</style>

<script>
function setCookie(name, value)
         {
         //If name is the empty string, it places a  at the beginning
         //of document.cookie, causing clearCookies() to malfunction.
         if(name != '')
            document.cookie = name + '=' + value;
         }

function clearCookie(name)
         {
         expires = new Date();
         expires.setYear(expires.getYear() - 1);

         document.cookie = name + '=null' + ' expires=' + expires;
         }

</script>
</head>

<body>
<%= agenda %>
</body>
</html>
<%
Connection.Close()
%>