<%@ LANGUAGE=VBSCRIPT %> <%Option Explicit%> <% If Request.Form("AddEvent") = "Add Event" Then Response.Redirect("add_event.asp") End If If Request.Form("EditEvent") = "Edit Event" Then Response.Redirect("edit_event.asp") End If Dim DB_CONNECTIONSTRING Dim objRecordset Dim sColor DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("./events/users2.mdb") & ";" Set objRecordset = Server.CreateObject("ADODB.Recordset") objRecordset.Open "OrderedEvents", DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable %> <% Function GetDaysInMonth(iMonth, iYear) Select Case iMonth Case 1, 3, 5, 7, 8, 10, 12 GetDaysInMonth = 31 Case 4, 6, 9, 11 GetDaysInMonth = 30 Case 2 If IsDate("February 29, " & iYear) Then GetDaysInMonth = 29 Else GetDaysInMonth = 28 End If End Select End Function Function GetWeekdayMonthStartsOn(iMonth, iYear) GetWeekdayMonthStartsOn = WeekDay(CDate(iMonth & "/1/" & iYear)) End Function Function SubtractOneMonth(dDate) Dim iDay, iMonth, iYear iDay = Day(dDate) iMonth = Month(dDate) iYear = Year(dDate) If iMonth = 1 Then iMonth = 12 iYear = iYear - 1 Else iMonth = iMonth - 1 End If If iDay > GetDaysInMonth(iMonth, iYear) Then iDay = GetDaysInMonth(iMonth, iYear) SubtractOneMonth = CDate(iMonth & "-" & iDay & "-" & iYear) End Function Function AddOneMonth(dDate) Dim iDay, iMonth, iYear iDay = Day(dDate) iMonth = Month(dDate) iYear = Year(dDate) If iMonth = 12 Then iMonth = 1 iYear = iYear + 1 Else iMonth = iMonth + 1 End If If iDay > GetDaysInMonth(iMonth, iYear) Then iDay = GetDaysInMonth(iMonth, iYear) AddOneMonth = CDate(iMonth & "-" & iDay & "-" & iYear) End Function Dim dDate ' Date we're displaying calendar for Dim iDIM ' Days In Month Dim iDOW ' Day Of Week that month starts on Dim iCurrent ' Variable we use to hold current day of month as we write table Dim iPosition ' Variable we use to hold current position in table If IsDate(Request.QueryString("date")) Then dDate = CDate(Request.QueryString("date")) Else If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then dDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Else dDate = Date() If Request.QueryString.Count <> 0 Then Response.Write "The date you picked was not a valid date. The calendar was set to today's date.

" End If End If End If iDIM = GetDaysInMonth(Month(dDate), Year(dDate)) iDOW = GetWeekdayMonthStartsOn(Month(dDate), Year(dDate)) %> Artspawn Studios
Artspawn Studios

Artspawn Studios
13931 Bear Creek Rd.
Woodinville, WA 98077
425 881-2192
lisa@artspawn.org
 		Artspawn Studios is owned and operated by Lisa Sheets and Matt Saettler.

It is our goal to be an affordable and local arts resource to Snoqualmie Valley artists and the local community.

We provide services for the visual and performance arts
Artspawn Schedule
<% If iDOW <> 1 Then Response.Write(vbTab & "" & vbCrLf) iPosition = 1 Do While iPosition < iDOW Response.Write(vbTab & vbTab & "" & vbCrLf) iPosition = iPosition + 1 Loop End If '-- Write days of month in proper day slots -- iCurrent = 1 iPosition = iDOW Do While iCurrent <= iDIM '-- open the table row -- If iPosition = 1 Then Response.Write(vbTab & "" & vbCrLf) End If '-- Write the date and subject -- Response.Write(vbTab & vbTab & "" & vbCrLf) '-- Close the table row -- If iPosition = 7 Then Response.Write vbTab & "" & vbCrLf iPosition = 0 End If '-- Increment variables -- iCurrent = iCurrent + 1 iPosition = iPosition + 1 Loop If iPosition <> 1 Then Do While iPosition <= 7 Response.Write(vbTab & vbTab & "" & vbCrLf) iPosition = iPosition + 1 Loop Response.Write vbTab & "" & vbCrLf End If %>
<-- <%= MonthName(Month(dDate)) & " " & Year(dDate) %> -->
Sun Mon Tue Wed Thu Fri Sat
 
" & iCurrent & "") If Not objRecordset.BOF Then objRecordset.MoveFirst Do Until objRecordset.EOF If objRecordset.Fields("Year") = Year(dDate) Then If objRecordset.Fields("Month") = Month(dDate) Then If objRecordset.Fields("Day") = iCurrent Then If objRecordset.Fields("PublicEvent") = "True" Then Response.Write("") else Response.Write("") end if Response.Write("
" & objRecordset.Fields("StartTime") & " : " & objRecordset.Fields("EndTime") ) Response.Write("
") if objRecordset.Fields("InfoURL") <> "" Then response.Write("") end if Response.Write(objRecordset.Fields("Subject") & "
") if objRecordset.Fields("InfoURL") <> "" Then response.Write("") end if ' Response.Write("
" & objRecordset.Fields("Subject") & "
") Response.Write(objRecordset.Fields("Message") ) End If End If End If objRecordset.MoveNext Loop End If Response.Write("
 
<% objRecordset.Close Set objRecordset = Nothing %>
Key
Public Event
Private Event