How would one set up an event for every third Monday? I have tried to set this up but it never comes out on the correct date.
Thanks
Thanks
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
Script error: Indice en dehors de la plage: '[number: 2]' 'checks if changes submitted action = Request.QueryString.Item("action") If action = "dbaddrecord" then DBAddRecord End If if (ucase(Request.ServerVariables("AUTH_USER"))) = (ucase("guest")) then response.redirect "accessdenied.asp" End If js = "<SCRIPT language=JAVASCRIPT>" & vbNewLine js = js & "function goValidate(){" & vbNewLine js = js & "if (Date.parse(document.all.adminform.colCal_EventDate.value) == """") {" & vbNewLine js = js & "alert(""Your must enter an EVENT DATE"");" & vbNewLine js = js & "return false;" & vbNewLine js = js & "document.all.adminform.colCal_EventDate.focus();" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_EventTitle.value == """" ) {" & vbNewLine js = js & "alert(""You must enter and EVENT TITLE"");" & vbNewLine js = js & "return false;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_EventBody.value == """" ) {" & vbNewLine js = js & "alert(""You must enter and EVENT DESCRIPTION"");" & vbNewLine js = js & "return false;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_EventAllDay.checked == """") {" & vbNewLine js = js & "StartTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventStartTime.value" & vbNewLine js = js & "EndTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventEndTime.value" & vbNewLine js = js & "StartTime = new Date(StartTime)" & vbNewLine js = js & "EndTime = new Date(EndTime)" & vbNewLine js = js & "if (Date.parse(StartTime) > Date.parse(EndTime)) {" & vbNewLine js = js & "alert(""You END TIME cannot be before you START TIME"");" & vbNewLine js = js & "return false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "return true;" & vbNewLine js = js & "}" & vbNewLine js = js & "function checkedAllDay(){" & vbNewLine js = js & "if (document.all.adminform.colCal_EventAllDay.checked == true) {" & vbNewLine js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine js = js & "document.all.colCal_EventEndTime.disabled=true;" & vbNewLine js = js & "}" & vbNewLine 'next if statement added to keep starttime enabled if homeseer reminder is checked. js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_EventAllDay.checked == false) {" & vbNewLine js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine js = js & "document.all.colCal_EventEndTime.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "function checkedcurrent(){" & vbNewLine js = js & "if (document.all.adminform.colCal_UseCurrent.checked == false) {" & vbNewLine js = js & "document.all.colCal_EventRecurresNum.disabled=true;" & vbNewLine js = js & "document.all.colCal_EventRecureType.disabled=true;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_UseCurrent.checked == true) {" & vbNewLine js = js & "document.all.colCal_EventRecurresNum.disabled=false;" & vbNewLine js = js & "document.all.colCal_EventRecureType.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "function checkedrecurring(){" & vbNewLine js = js & "if (document.all.adminform.colCal_EventRecurres.checked == false) {" & vbNewLine js = js & "document.all.colCal_EventRecurEndDate.disabled=true;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_EventRecurres.checked == true) {" & vbNewLine js = js & "document.all.colCal_EventRecurEndDate.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "function checkedfirst(){" & vbNewLine js = js & "if (document.all.adminform.colCal_UseFirst.checked == false) {" & vbNewLine js = js & "document.all.colCal_RefOccurrence.disabled=true;" & vbNewLine js = js & "document.all.colCal_RefDay.disabled=true;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_UseFirst.checked == true) {" & vbNewLine js = js & "document.all.colCal_RefOccurrence.disabled=false;" & vbNewLine js = js & "document.all.colCal_RefDay.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "function checkedremind(){" & vbNewLine js = js & "if (document.all.adminform.Remind_Homeseer.checked == false) {" & vbNewLine 'added line below to enable a strt time to use for all day event in homeseer reminder js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine js = js & "document.all.colCal_EventRemindDaysBefore.disabled=true;" & vbNewLine js = js & "document.all.colCal_EventRemindHoursBefore.disabled=true;" & vbNewLine js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=true;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine 'added line below to enable a strt time to use for all day event in homeseer reminder js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine js = js & "document.all.colCal_EventRemindDaysBefore.disabled=false;" & vbNewLine js = js & "document.all.colCal_EventRemindHoursBefore.disabled=false;" & vbNewLine js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "// -->" & vbNewLine js = js & "</SCRIPT>" & vbNewLine js = js & "<SCRIPT language="" src="" javascript?? datepicker popcalendar.js?? calendar></SCRIPT>" & vbNewLine js = js & vbNewLine hsHeader = hs.GetPageHeader("Add Event","","",False,False,False,False,False) hsHeader = replace(hsHeader,"","<STYLE>" & vbNewLine & StyleCode & "</STYLE>" & vbNewLine & js & vbNewLine & "") response.write hsheader 'checks if changes submitted action = Request.QueryString.Item("action") If action = "dbaddrecord" then DBAddRecord End If if (ucase(Request.ServerVariables("AUTH_USER"))) = (ucase("guest")) then response.redirect "accessdenied.asp" End If js = "<SCRIPT language=JAVASCRIPT>" & vbNewLine js = js & "function goValidate(){" & vbNewLine js = js & "if (Date.parse(document.all.adminform.colCal_EventDate.value) == """") {" & vbNewLine js = js & "alert(""Your must enter an EVENT DATE"");" & vbNewLine js = js & "return false;" & vbNewLine js = js & "document.all.adminform.colCal_EventDate.focus();" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_EventTitle.value == """" ) {" & vbNewLine js = js & "alert(""You must enter and EVENT TITLE"");" & vbNewLine js = js & "return false;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_EventBody.value == """" ) {" & vbNewLine js = js & "alert(""You must enter and EVENT DESCRIPTION"");" & vbNewLine js = js & "return false;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_EventAllDay.checked == """") {" & vbNewLine js = js & "StartTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventStartTime.value" & vbNewLine js = js & "EndTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventEndTime.value" & vbNewLine js = js & "StartTime = new Date(StartTime)" & vbNewLine js = js & "EndTime = new Date(EndTime)" & vbNewLine js = js & "if (Date.parse(StartTime) > Date.parse(EndTime)) {" & vbNewLine js = js & "alert(""You END TIME cannot be before you START TIME"");" & vbNewLine js = js & "return false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "return true;" & vbNewLine js = js & "}" & vbNewLine js = js & "function checkedAllDay(){" & vbNewLine js = js & "if (document.all.adminform.colCal_EventAllDay.checked == true) {" & vbNewLine js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine js = js & "document.all.colCal_EventEndTime.disabled=true;" & vbNewLine js = js & "}" & vbNewLine 'next if statement added to keep starttime enabled if homeseer reminder is checked. js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_EventAllDay.checked == false) {" & vbNewLine js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine js = js & "document.all.colCal_EventEndTime.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "function checkedcurrent(){" & vbNewLine js = js & "if (document.all.adminform.colCal_UseCurrent.checked == false) {" & vbNewLine js = js & "document.all.colCal_EventRecurresNum.disabled=true;" & vbNewLine js = js & "document.all.colCal_EventRecureType.disabled=true;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_UseCurrent.checked == true) {" & vbNewLine js = js & "document.all.colCal_EventRecurresNum.disabled=false;" & vbNewLine js = js & "document.all.colCal_EventRecureType.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "function checkedrecurring(){" & vbNewLine js = js & "if (document.all.adminform.colCal_EventRecurres.checked == false) {" & vbNewLine js = js & "document.all.colCal_EventRecurEndDate.disabled=true;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_EventRecurres.checked == true) {" & vbNewLine js = js & "document.all.colCal_EventRecurEndDate.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "function checkedfirst(){" & vbNewLine js = js & "if (document.all.adminform.colCal_UseFirst.checked == false) {" & vbNewLine js = js & "document.all.colCal_RefOccurrence.disabled=true;" & vbNewLine js = js & "document.all.colCal_RefDay.disabled=true;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.colCal_UseFirst.checked == true) {" & vbNewLine js = js & "document.all.colCal_RefOccurrence.disabled=false;" & vbNewLine js = js & "document.all.colCal_RefDay.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "function checkedremind(){" & vbNewLine js = js & "if (document.all.adminform.Remind_Homeseer.checked == false) {" & vbNewLine 'added line below to enable a strt time to use for all day event in homeseer reminder js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine js = js & "document.all.colCal_EventRemindDaysBefore.disabled=true;" & vbNewLine js = js & "document.all.colCal_EventRemindHoursBefore.disabled=true;" & vbNewLine js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=true;" & vbNewLine js = js & "}" & vbNewLine js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine 'added line below to enable a strt time to use for all day event in homeseer reminder js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine js = js & "document.all.colCal_EventRemindDaysBefore.disabled=false;" & vbNewLine js = js & "document.all.colCal_EventRemindHoursBefore.disabled=false;" & vbNewLine js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=false;" & vbNewLine js = js & "}" & vbNewLine js = js & "}" & vbNewLine js = js & "// -->" & vbNewLine js = js & "</SCRIPT>" & vbNewLine js = js & "<SCRIPT language="" src="" javascript?? datepicker popcalendar.js?? calendar></SCRIPT>" & vbNewLine js = js & vbNewLine hsHeader = hs.GetPageHeader("Add Event","","",False,False,False,False,False) hsHeader = replace(hsHeader,"","<STYLE>" & vbNewLine & StyleCode & "</STYLE>" & vbNewLine & js & vbNewLine & "") response.write hsheader
'split datetime into date and time arrstring = Split(hsDateStart," ") response.write "compteSplit:" & ubound(arrstring)+1 & "<BR>" hsdate = Trim(arrstring(0)) hstime = trim(arrstring(1)) & " " & trim(arrstring(2))
Comment