My Little Scripts - agenda-calendar.asp

Scripts.com - Get the best scripts NOW!
HotScripts.com - Over 10 web rings.
more links...
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 7
          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()
%>