<%
' #############################################################
' ## Change the database_location field to be the local path ##
' ## to the database file. For instance, if you move the ##
' ## database file inside of a folder named "data123" the ##
' ## field would be changed to: ##
' ## ##
' ## database_location = "data123/o12calgold.mdb" ##
' ## ##
' #############################################################
database_location = "o12calgold.mdb"
%>
<%
database_type = 0
database_prefix = "o12calgold_"
dsn = "DBQ=" & Server.Mappath(database_location) & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn
Set RSBODY = Server.CreateObject("ADODB.Recordset")
SQLBODY = "SELECT * FROM " & database_prefix & "Settings WHERE SettingID=1"
RSBODY.Open SQLBODY, Conn, 1, 3
%>
<%
Dim mailComponent(5)
Dim mailComponentName(5)
mailComponent(0) = "SMTPsvg.Mailer"
mailComponent(1) = "Persits.MailSender"
mailComponent(2) = "CDONTS.NewMail"
mailComponent(3) = "CDO.Message"
mailComponent(4) = "Dundas.Mailer"
mailComponent(5) = "Jmail.smtpmail"
mailComponentName(0) = "ASPMail"
mailComponentName(1) = "ASPEMail"
mailComponentName(2) = "CDONTS"
mailComponentName(3) = "CDOSYS"
mailComponentName(4) = "Dundas Mailer"
mailComponentName(5) = "JMail"
Function findMonth(varDate)
'Finds month given YYYYMMDD
findMonth = CInt(Right(Left(varDate,6),2))
End Function
Function findDay(varDate)
'Finds day given YYYYMMDD
findDay = CInt(Right(Left(varDate,8),2))
End Function
Function findYear(varDate)
'Finds year given YYYYMMDD
findYear = CInt(Left(varDate,4))
End Function
Function findHour(varDate)
'Finds hour given YYYYMMDD
If CInt(Right(Left(varDate,10),2)) > 12 Then
findHour = CInt(Right(Left(varDate,10),2)) - 12
ElseIf CInt(Right(Left(varDate,10),2)) = 0 Then
findHour = 12
ElseIf CInt(Right(Left(varDate,10),2) < 10) Then
findHour = CInt(Right(Left(varDate,10),1))
Else
findHour = CInt(Right(Left(varDate,10),2))
End If
End Function
Function findHourLong(varDate)
'Finds 0-23 hour given YYYYMMDD
findHourLong = CInt(Right(Left(varDate,10),2))
End Function
Function findMinute(varDate)
'Finds minute given YYYYMMDD
findMinute = Right(Left(varDate,12),2)
End Function
Function findSecond(varDate)
'Finds second given YYYYMMDD
findSecond = Right(varDate,2)
End Function
Function findAMPM(varDate)
'Finds AM/PM given YYYYMMDD
If Right(Left(varDate,10),2) >= 12 Then
findAMPM = "PM"
Else
findAMPM = "AM"
End If
End Function
Function findYearRev(varDate)
'Finds year given MM/YY/DDDD
findYearRev = Right(varDate, 4)
End Function
Function findMonthRev(varDate)
'Finds month given MM/YY/DDDD
If RSBODY("DateFormat") = "MM/DD/YYYY" Then
findMonthRev = Left(varDate, InStr(varDate, "/") - 1)
Else
findMonthRev = Mid(varDate, InStr(varDate, "/") + 1, InStrRev(varDate, "/") - InStr(varDate, "/") - 1)
End If
End Function
Function findDayRev(varDate)
'Finds month given MM/YY/DDDD
If RSBODY("DateFormat") = "MM/DD/YYYY" Then
findDayRev = Mid(varDate, InStr(varDate, "/") + 1, InStrRev(varDate, "/") - InStr(varDate, "/") - 1)
Else
findDayRev = Left(varDate, InStr(varDate, "/") - 1)
End If
End Function
Function findDate(varDate)
'Finds MM/DD/YYYY given YYYYMMDD
If RSBODY("DateFormat") = "MM/DD/YYYY" Then
findDate = findMonth(varDate) & "/" & findDay(varDate) & "/" & findYear(varDate)
Else
findDate = findDay(varDate) & "/" & findMonth(varDate) & "/" & findYear(varDate)
End If
End Function
Function findShortDate(varDate)
'Finds YYYYMMDD given YYYYMMDDHHMMSS
findShortDate = prepareDate(findMonth(varDate), findDay(varDate), findYear(varDate))
End Function
Function findTime(varDate)
'Finds HH:MMAMPM given YYYYMMDD
findTime = CInt(findHour(varDate)) & ":" & findMinute(varDate) & lcase(findAMPM(varDate))
End Function
Function findTimeName(varDate)
'Finds HH:MMAMPM given YYYYMMDD
If CInt(findHour(varDate)) = 12 AND CInt(findMinute(varDate)) = 0 AND findAMPM(varDate) = "AM" Then
findTimeName = "Midnight"
ElseIf CInt(findHour(varDate)) = 12 AND CInt(findMinute(varDate)) = 0 AND findAMPM(varDate) = "PM" Then
findTimeName = "Noon"
ElseIf CInt(findHour(varDate)) = 11 AND CInt(findMinute(varDate)) = 59 AND findAMPM(varDate) = "PM" Then
findTimeName = "Midnight"
Else
findTimeName = CInt(findHour(varDate)) & ":" & findMinute(varDate) & lcase(findAMPM(varDate))
End If
End Function
Function findDateName(varDate)
'Finds Name DD, YYYY given YYYYMMDD
If RSBODY("DateFormat") = "MM/DD/YYYY" Then
findDateName = MonthName(findMonth(varDate)) & " " & findDay(varDate) & ", " & findYear(varDate)
Else
findDateName = findDay(varDate) & " " & MonthName(findMonth(varDate)) & " " & findYear(varDate)
End If
End Function
Function findDateTime(varDate)
'Finds MM/DD/YYYY HH:MM:SS AMPM given YYYYMMDD
If RSBODY("DateFormat") = "MM/DD/YYYY" Then
findDateTime = findMonth(varDate) & "/" & findDay(varDate) & "/" & findYear(varDate) & " " & findHour(varDate) & ":" & findMinute(varDate) & ":" & findSecond(varDate) & " " & findAMPM(varDate)
Else
findDateTime = findDay(varDate) & "/" & findMonth(varDate) & "/" & findYear(varDate) & " " & findHour(varDate) & ":" & findMinute(varDate) & ":" & findSecond(varDate) & " " & findAMPM(varDate)
End If
End Function
Function findDateTimeShort(varDate)
'Finds MM/DD/YYYY HH:MM AMPM given YYYYMMDD
If RSBODY("DateFormat") = "MM/DD/YYYY" Then
findDateTime = findMonth(varDate) & "/" & findDay(varDate) & "/" & findYear(varDate) & " " & findHour(varDate) & ":" & findMinute(varDate) & " " & findAMPM(varDate)
Else
findDateTime = findDay(varDate) & "/" & findMonth(varDate) & "/" & findYear(varDate) & " " & findHour(varDate) & ":" & findMinute(varDate) & " " & findAMPM(varDate)
End If
End Function
Function prepareDate(x, y, z)
varMonth = x
varDay = y
varYear = z
' Finds YYYYMMDD given Month, Day, Year
If varMonth < 10 Then
varMonth = "0" & varMonth
End If
If varDay < 10 Then
varDay = "0" & varDay
End If
prepareDate = varYear & varMonth & varDay
End Function
Function prepareDateTime(varMonth, varDay, varYear, varHour, varMinute, varSecond)
' Finds YYYYMMDD given Month, Day, Year
varMonth1 = varMonth
If varMonth1 < 10 Then
varMonth1 = "0" & varMonth1
End If
varDay1 = varDay
If varDay1 < 10 Then
varDay1 = "0" & varDay1
End If
varHour1 = varHour
If varHour1 < 10 Then
varHour1 = "0" & varHour1
End If
varMinute1 = varMinute
If varMinute1 < 10 Then
varMinute1 = "0" & varMinute1
End If
varSecond1 = varSecond
If varSecond1 < 10 Then
varSecond1 = "0" & varSecond1
End If
prepareDateTime = varYear & varMonth1 & varDay1 & varHour1 & varMinute1 & varSecond1
End Function
Function dateToday()
varMonth = Month(Now)
varDay = Day(Now)
varYear = Year(Now)
dateToday = prepareDate(varMonth, varDay, varYear)
End Function
Function prepareDateTimeNow()
If Month(Now) < 10 Then
varMonth = "0" & Month(Now)
Else
varMonth = Month(Now)
End If
If Day(Now) < 10 Then
varDay = "0" & Day(Now)
Else
varDay = Day(Now)
End If
If Hour(Now) < 10 Then
varHour = "0" & Hour(Now)
Else
varHour = Hour(Now)
End If
If Minute(Now) < 10 Then
varMinute = "0" & Minute(Now)
Else
varMinute = Minute(Now)
End If
If Second(Now) < 10 Then
varSecond = "0" & Second(Now)
Else
varSecond = Second(Now)
End If
prepareDateTimeNow = Year(Now) & varMonth & varDay & varHour & varMinute & varSecond
End Function
Function addDate(strBy, strDate, intNum)
iYear = CInt(findYear(strDate))
iMonth = CInt(findMonth(strDate))
iDay = CInt(findDay(strDate))
iHour = CInt(findHourLong(strDate))
iMinute = CInt(findMinute(strDate))
iSecond = CInt(findSecond(strDate))
iDays = daysOfMonth(iMonth, iYear)
If strBy = "d" Then
' Add Days
iDay = iDay + intNum
Do While iDay > daysOfMonth(iMonth, iYear)
iDay = iDay - daysOfMonth(iMonth, iYear)
iMonth = iMonth + 1
If iMonth = 13 Then
iMonth = 1
iYear = iYear + 1
End If
Loop
ElseIf strBy = "w" Then
' Add Weeks
iDay = iDay + (intNum * 7)
Do While iDay > daysOfMonth(iMonth, iYear)
iDay = iDay - daysOfMonth(iMonth, iYear)
iMonth = iMonth + 1
If iMonth = 13 Then
iMonth = 1
iYear = iYear + 1
End If
Loop
ElseIf strBy = "m" Then
' Add Weeks
iMonth = iMonth + intNum
Do While iMonth > 12
iMonth = iMonth - 12
iYear = iYear + 1
Loop
ElseIf strBy = "y" Then
' Add Weeks
iYear = iYear + intNum
End If
addDate = prepareDateTime(iMonth, iDay, iYear, iHour, iMinute, iSecond)
End Function
Function subDate(strBy, strDate, intNum)
iYear = CInt(findYear(strDate))
iMonth = CInt(findMonth(strDate))
iDay = CInt(findDay(strDate))
iHour = CInt(findHourLong(strDate))
iMinute = CInt(findMinute(strDate))
iSecond = CInt(findSecond(strDate))
iDays = daysOfMonth(iMonth, iYear)
If strBy = "d" Then
' Add Days
iDay = iDay - intNum
Do While iDay < 0
iMonth = iMonth - 1
iDay = iDay + daysOfMonth(iMonth, iYear)
If iMonth = 0 Then
iMonth = 12
iYear = iYear - 1
End If
Loop
ElseIf strBy = "w" Then
' Add Weeks
iDay = iDay - (intNum * 7)
Do While iDay < 0
iMonth = iMonth - 1
iDay = iDay + daysOfMonth(iMonth, iYear)
If iMonth = 0 Then
iMonth = 12
iYear = iYear - 1
End If
Loop
ElseIf strBy = "m" Then
' Add Weeks
iMonth = iMonth - intNum
Do While iMonth < 1
iMonth = iMonth + 12
iYear = iYear - 1
Loop
ElseIf strBy = "y" Then
' Add Weeks
iYear = iYear - intNum
End If
subDate = prepareDateTime(iMonth, iDay, iYear, iHour, iMinute, iSecond)
End Function
Function findFirstDayOfWeek(varDate)
iMonth = findMonth(varDate)
iDay = findDay(varDate)
iYear = findYear(varDate)
thisDayOfWeek = findDayOfWeek(iMonth, iDay, iYear)
findFirstDayOfWeek = subDate("d", varDate, thisDayOfWeek)
End Function
Function findDayOfMonth(varYear, varMonth, varWhich, varWhichDay)
iNumDays = daysOfMonth(varMonth, varYear)
Dim Days(7)
For i = 1 to iNumDays
tmp = i
curWeekDay = findDayOfWeek(varMonth, tmp, varYear) + 1
Days(curWeekDay) = Days(curWeekDay) + 1
If curWeekDay = varWhichDay AND Days(curWeekDay) = varWhich Then
findDayOfMonth = i
Exit For
End If
Next
' Check for last
If Len(findDayOfMonth) = 0 AND varWhich = 5 Then
For i = iNumDays to 1 step -1
tmp = i
If findDayOfWeek(varMonth, tmp, varYear) + 1 = varWhichDay Then
findDayOfMonth = i
Exit For
End If
Next
End If
End Function
Function findFirstDayOfMonth(varMonth, varYear)
findFirstDayOfMonth = prepareDateTime(varMonth, 1, varYear, 0, 0, 0)
End Function
Function findGraphWidth(varTotal, varThis)
findGraphWidth = Round(((varThis / varTotal * 100) * 2),0)
End Function
Function findGraphPercent(varTotal, varThis)
findGraphPercent = FormatNumber((varThis / varTotal * 100),2)
End Function
Function findResponseRate(varResponses,varViews)
If varViews = 0 Then
findResponseRate = 0
Else
findResponseRate = FormatNumber((varResponses / varViews * 100),2)
End If
End Function
Function sendMail(varTo, varFrom, varEmailComp, varSMTPServer, varBody, varSubject)
If varEmailComp = "CDONTS" Then
Set mailObj = Server.CreateObject("CDONTS.NewMail")
mailObj.BodyFormat = 1
mailObj.MailFormat = 1
mailObj.To = varTo
mailObj.From = varFrom
mailObj.Subject = varSubject
mailObj.Body = varBody
mailObj.Send
Set mailObj = Nothing
ElseIf varEmailComp = "CDOSYS" Then
Set mailObj = Server.CreateObject("CDO.Message")
mailObj.To = varTo
mailObj.From = varFrom
mailObj.Subject = varSubject
mailObj.TextBody = varBody
mailObj.Send
Set mailObj = Nothing
ElseIf varEmailComp = "ASPEmail" Then
Set mailObj = Server.CreateObject("Persits.MailSender")
mailObj.Host = varSMTPServer
mailObj.IsHTML = False
mailObj.AddAddress varTo
mailObj.From = varFrom
mailObj.Subject = varSubject
mailObj.Body = varBody
mailObj.Send
Set mailObj = Nothing
ElseIf varEmailComp = "ASPMail" Then
Set mailObj = Server.CreateObject("SMTPsvg.Mailer")
mailObj.RemoteHost = varSMTPServer
mailObj.CharSet = 2
mailObj.FromName = varFrom
mailObj.FromAddress= varFrom
mailObj.AddRecipient varTo,varTo
mailObj.Subject = varSubject
mailObj.BodyText = varBody
mailObj.SendMail
ElseIf varEmailComp = "JMail" Then
set mailObj = Server.CreateOBject("JMail.Message")
mailObj.Logging = true
mailObj.silent = true
mailObj.From = varFrom
mailObj.AddRecipient varTo
mailObj.Subject = varSubject
mailObj.body = varBody
mailObj.Send(varSMTPServer)
ElseIf varEmailComp = "Dundas" Then
Set mailObj = Server.CreateOBject("Dundas.Mailer")
mailObj.FromAddress = varFrom
mailObj.TOs.Add varTo
mailObj.Subject = varSubject
mailObj.body = varBody
mailObj.SendMail
End If
sendMail = 1
End Function
Function true_mod(x, y)
tmp = x Mod y
If tmp < 0 Then
true_mod = tmp + y
Else
true_mod = tmp
End If
End Function
Function isLeapYear(yr)
If isDivisibleBy(yr, 4) Then
If isDivisibleBy(yr, 100) Then
If isDivisibleBy(yr, 400) Then
isLeapYear = True
Else
isLeapYear = False
End If
Else
isLeapYear = True
End If
Else
isLeapYear = False
End If
End Function
Function isDivisibleBy(x, y)
If x Mod y = 0 Then
isDivisibleBy = True
Else
isDivisibleBy = False
End If
End Function
Function daysOfMonth(m, y)
Select Case m
Case 1, 3, 5, 7, 8, 10, 12
daysOfMonth = 31
Case 4, 6, 9, 11
daysOfMonth = 30
Case Else
If isLeapYear(y) Then
daysOfMonth = 29
Else
daysOfMonth = 28
End If
End Select
End Function
Function findDayOfWeek(x, y, z)
m = x
d = y
yr = z
If m < 3 Then
m = m + 10
yr = yr - 1
Else
m = m - 2
End If
y = true_mod(yr, 100)
c = yr \ 100
a = (13 * m - 1) \ 5
b = y \ 4
e = c \ 4
f = a + b + e + d + y - 2 * c
findDayOfWeek = true_mod(f, 7)
End Function
Function prepareSQL(varString)
If Len(varString) > 0 Then
prepareSQL = Replace(varString,"'","''")
Else
prepareSQL = varString
End If
End Function
Function prepareHTML(varString)
If Len(varString) > 0 Then
varString = Replace(varString,"<","<")
varString = Replace(varString,">",">")
varString = Replace(varString,"''","'")
prepareHTML = Replace(varString,"""",""")
Else
prepareHTML = varString
End If
End Function
Function prepareRenderHTML(varString)
If Len(varString) > 0 Then
prepareRenderHTML = Replace(varString,"''","'")
Else
prepareRenderHTML = varString
End If
End Function
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then
IsObjInstalled = True
End If
Set xTestObj = Nothing
Err = 0
End Function
%>
Ocean12 Calendar Manager Gold
