<html>
<head>
<title>Events in Month - RJM Programming - August, 2023</title>
<style>
#eventcalendar {
background-color: #fcfcfc;
}

td {
padding-top: 2px;
padding-left: 2px;
padding-right: 2px;
padding-bottom: 12px;
}

.dayb {
color: white;
background-color: red;
padding: 5 5 5 5;
border-radius: 80px;
margin-bottom: 15px;
}

.dow {
color: purple;
font-style: bold;
}

.selday {
margin-left: 8px;
background-color: rgba(255,0,0,0.7);
display: inline-block;
width: 50px;
border-color: transparent;
text-overflow: ellipsis;
}

.tablurb {
background: linear-gradient(to right, white, lightpink, pink);
}

input[type="submit"] {
margin-bottom: 3px;
border-radius: 180px;
}

input[type="number"] {
margin-left: 3px;
margin-right: 3px;
border-radius: 180px;
background-color: #f3f3f3;
padding: 2 2 2 2;
}

#smonth {
margin-left: 3px;
margin-right: 3px;
border-radius: 180px;
background-color: #f9f9f9;
padding: 2 2 2 2;
}

.boldtitle {
background-color: rgba(0, 211, 107, 0.2);
}

.boldtitle + .tablurb {
margin-top: 8px;
}

.selhistory {
border-radius: 180px;
background-color: lightpink;
padding: 2 2 2 2;
}

</style>
<script type=text/javascript>

var defemail='', defsms='';
if (('' + window.localStorage.getItem('eventcollaboratoremailee')).replace(/^null/g,'').replace(/^undefined/g,'') != '') {
defemail=window.localStorage.getItem('eventcollaboratoremailee');
}
if (('' + window.localStorage.getItem('eventcollaboratorsmsno')).replace(/^null/g,'').replace(/^undefined/g,'') != '') {
defsms=window.localStorage.removeItem('eventcollaboratorsmsno');
}

var tblfrom='youllneverfindthis';
var tblto='youllneverfindthis';

var documentURL=document.URL;
documentURL=documentURL.replace('.php', '.htm');
var locationsearch=('?' + documentURL.replace(documentURL.split('?')[0].split('#')[0], '')).replace(/^\?$/g, '');

var bigbih=('' + ('' + location.hash).replace(/^null/g,'').replace(/^undefined/g,'')).split('bih=')[1] ? (decodeURIComponent(('' + location.hash).replace(/^null/g,'').replace(/^undefined/g,'').split('bih=')[1].split('&')[0])) : '';
if (bigbih != '' && bigbih.indexOf('xae' + 'mail') == -1) {
bigbih+='<a target=_blank id=xae' + 'mail style=display:none; href="mailto:' + defemail + '"></a>';
}
if (bigbih != '' && bigbih.indexOf('xas' + 'ms') == -1) {
bigbih+='<a target=_blank id=xas' + 'ms style=display:none; href="sms:' + defsms + '"></a>';
}
//if (bigbih.indexOf('</he' + 'ad>') != -1) { alert(bigbih.split('</he' + 'ad>')[1].substring(0,300)); }

var boh='', hih='', snum='';
var ehtm='events_' + documentURL.split('events_')[1].split('?')[0].split('#')[0];
var phpthere='', lastbut=null, wes=null, sparewes=null;

var viatext='', smallbih='';

var nts=1970, wo=null;
var presm=locationsearch.split('caltitle=')[1] ? eval(decodeURIComponent(locationsearch.split('caltitle=')[1].split('&')[0]).split(',')[0].replace('January','1').replace('February','2').replace('March','3').replace('April','4').replace('May','5').replace('June','6').replace('July','7').replace('August','8').replace('September','9').replace('October','10').replace('November','11').replace('December','12')) : -1;
var presy=locationsearch.split('caltitle=')[1] ? eval(decodeURIComponent(locationsearch.split('caltitle=')[1].split('&')[0]).split(',')[1].trim()) : -1970;
var tazo=locationsearch.split('ta01.00=')[1] ? (decodeURIComponent(locationsearch.split('ta01.00=')[1].split('&')[0])) : ' ';
var sm=locationsearch.split('smonth=')[1] ? eval(decodeURIComponent(locationsearch.split('smonth=')[1].split('&')[0])) : Math.abs(presm);
var sy=locationsearch.split('syear=')[1] ? eval(decodeURIComponent(locationsearch.split('syear=')[1].split('&')[0])) : Math.abs(presy);
var im=0;
var adate=null;
var dotw=['Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'];
var dinm=[31,29,31,30,31,30,31,31,30,31,30,31];
var trtemplate='';
var iijj=1;
var initialdb='MON';
var remellist=[];
var forceit=false;
var wassel=-1;
var xdate=new Date(1970, 0, 1, 0, 0, 0, 0);
var zdate=null;

function fixitzero(iniis, imin, imax) {
var minustwo=-2;
var premin='0';
if (('' + imin).length == 4) {
minustwo=-4;
premin='';
}
if (iniis.value.length == 1) {
if ((premin + iniis.value) >= (premin + imin).slice(minustwo) && (premin + iniis.value) <= (premin + imax).slice(minustwo)) {
iniis.value=premin + iniis.value;
} else {
iniis.value=(premin + imin).slice(-4);
}
} else if (iniis.value.length == eval(0 - eval('' + minustwo))) {
if (('' + iniis.value) >= (premin + imin).slice(minustwo) && ('' + iniis.value) <= (premin + imax).slice(minustwo)) {
iniis.value='' + iniis.value;
} else {
iniis.value=(premin + imin).slice(-4);
}
} else {
iniis.value=(premin + imin).slice(-4);
}
}

function sepit(ospel) {
var sptbls=('' + ospel.id).replace('sp','');
document.getElementById(('stwo' + ospel.id).replace('sp','')).title+=' ... but changed';
document.getElementById('i' + sptbls).value='' + ospel.innerHTML;
}

function nono(tao) {
var compval='';
if (tao.value.indexOf('?' + '>') != -1) {
tao.value=tao.value.replace(/\?\>/g, '? >');
}
if (tao.value.trim() != '' && document.getElementById('semail')) {
document.getElementById('semail').style.display='inline-block';
document.getElementById('ssms').style.display='inline-block';
}
if (bigbih.indexOf('</he' + 'ad>') != -1 || bigbih.indexOf('<b' + 'o' + 'dy') != -1 || bigbih.indexOf('<h' + '1') == 0) {
//alert(8 + ' ' + top.location.hash.length + 'vs' + bigbih.length + tao.id + ' ... ' + bigbih.split(' na' + 'me="').length + ' ... ' + bigbih.split('<tex' + 'tarea ').length);
// if (bigbih.indexOf('&' + tao.id + '=') != -1) { alert(bigbih.split('&' + tao.id + '=')[0].slice(-10) + '&' + tao.id + '=' + bigbih.split('"' + tao.id + '"')[1].substring(0,20)); }
if (bigbih.indexOf('&' + tao.id + '=') != -1) {
//alert(88);
compval=bigbih.split('&' + tao.id + '=')[1].split('&')[0].split(';')[0];
//alert(compval);
if (sparewes) {
if (sparewes.document.getElementById(tao.id)) {
if (sparewes.document.getElementById(tao.id).value != compval) {
//alert('87;' + compval);
bigbih=bigbih.replace('&' + tao.id + '=' + compval,'&' + tao.id + '=' + encodeURIComponent(sparewes.document.getElementById(tao.id).value));
documentURL=documentURL.replace('&' + tao.id + '=' + compval,'&' + tao.id + '=' + encodeURIComponent(sparewes.document.getElementById(tao.id).value));
//alert('newish ' + bigbih);
}
}
} else {
if (document.getElementById(tao.id)) {
if (document.getElementById(tao.id).value != compval) {
//alert(compval);
bigbih=bigbih.replace('&' + tao.id + '=' + compval,'&' + tao.id + '=' + encodeURIComponent(document.getElementById(tao.id).value));
documentURL=documentURL.replace('&' + tao.id + '=' + compval,'&' + tao.id + '=' + encodeURIComponent(document.getElementById(tao.id).value));
//alert('new ' + bigbih);
}
}
}
}
}
}

function selit(osel) {
var newtr='', lfor='sel', xinc=0.01, startnum=0.00, zero='0', tbls='', bt='';
var stbls=('' + osel.id).replace('sel','');
tbls=('' + osel.id).replace('sel','').split('.')[0];
document.getElementById(('stwo' + osel.id).replace('sel','')).title=osel.options[osel.selectedIndex].title;
if (osel.value == 'Bold') {
bt=prompt('Please optionally enter ' + document.getElementsByTagName('h2')[0].innerHTML.split('&')[0].replace('Events in ', 'Event on ' + document.getElementById('sone' + stbls).innerHTML.replace('SUN', 'Sunday').replace('MON', 'Monday').replace('TUE', 'Tuesday').replace('WED', 'Wednesday').replace('THU', 'Thursday').replace('FRI', 'Friday').replace('SAT', 'Saturday') + ', ' + tbls + ' ') + ' title (shown in bold text).', '');
if (bt == null) { bt=''; }
if (bt.trim() != '') {
document.getElementById('bd' + stbls).innerHTML='<input title="Event title" style=font-style:bold; type=hidden id=' + document.getElementById('bd' + stbls).id.replace('bd','bold') + ' name=' + document.getElementById('bd' + stbls).id.replace('bd','bold') + ' va' + 'lue="' + bt + '"></input>' + bt + '<br>';
}
osel.value='';
} else if (osel.value == 'Clone') {
startnum=('' + osel.id).replace('sel','');
if (('' + osel.id).replace('sel','').substring(0,1) == '0') { zero='0'; startnum=startnum.substring(1); }
startnum=startnum.replace('.00', '.01');
while (document.getElementById('sel' + zero + eval('' + startnum))) {
startnum='' + eval(xinc + eval('' + startnum)).toPrecision(2);
while (startnum.split('.')[1].length < 2) {
startnum+='0';
}
}
newtr=trtemplate.replace(/\.00/g, '.' + startnum.split('.')[1]).replace(/01\./g, tbls + '.');
document.getElementById('tbl' + tbls).innerHTML+=newtr.replace(initialdb, osel.getAttribute('data-dow')).replace(initialdb, osel.getAttribute('data-dow')).replace('>1<', '>' + tbls.replace(/^0/g,'') + '<');
osel.value='';
} else if (osel.value == '') {
document.getElementById('sp' + stbls).innerHTML='';
document.getElementById('i' + stbls).value='';
} else if (osel.value == '...') {
document.getElementById('sp' + stbls).innerHTML='...';
document.getElementById('i' + stbls).value='...';
osel.style.visibility='hidden';
} else if (osel.value == '&...') {
document.getElementById('sp' + stbls).innerHTML='& ';
document.getElementById('i' + stbls).value='&';
osel.style.visibility='hidden';
}
}


function sinit() {
var soydays=0, somdays=0, weekno=0, ordn='1st';
var dec='', ourdata='';
//alert('sinit');
boh=document.body.outerHTML;
hih=document.head.innerHTML;
if (document.getElementById('myform')) { document.getElementById('myform').action='./' + ehtm; }
if (sm != 0) { document.getElementById('smonth').value=('0' + sm).slice(-2); }
if (sy != 1970) { if (sy < 100) { sy+=2000; } document.getElementById('syear').value=(' ' + sy).slice(-4); }
if (documentURL.indexOf('?') != -1) {
if (documentURL.indexOf('?caltitle=') != -1) { ourdata='data-'; }
zdate=new Date(sy, 0, 1, 0, 0, 0, 0);
soydays=eval(zdate / (1000*60*60*24));
adate=new Date(sy, eval(-1 + sm), 1, 0, 0, 0, 0);
somdays=eval(adate / (1000*60*60*24));
weekno=Math.ceil((adate.getDay() + 1 + eval(somdays - soydays)) / 7); // thanks to https://www.javatpoint.com/calculate-current-week-number-in-javascript
//alert('' + dotw[adate.getDay()]);
var idow=adate.getDay();
var jdow=idow;
initialdb=dotw[idow].toUpperCase().substring(0,3);
trtemplate='<tr id=tr01.00><td style="background-color:#f4f4f4;width:30%;"><span id=sone01.00 class=dow>' + dotw[adate.getDay()].toUpperCase().substring(0,3) + '</span><br><br><span id=stwo01.00 class=dayb>1<span onblur=sepit(this); contenteditable=true id=sp01.00></span><input style=display:inline-block; type=hidden id=i01.00 name=i01.00 value=""></input><select data-dow=' + dotw[adate.getDay()].toUpperCase().substring(0,3) + ' class=selday onchange="selit(this);" id=sel01.00><option id=opt01.00 value=""></option><option title="All such in month (ie. weekly)" value="...">...</option><option title="And ..." value="&...">&</option><option title="Bold Title above Blurb" value=Bold>Title</option><option title="Clone for another Event on this Day" value=Clone>Clone</option></select></span></td><td class=blurb title="What is on?" id=tb01.00><span title="Event title" style="font-style:bold;color:blue;" class=boldtitle id=bd01.00></span><textarea onblur=parent.nono(this); name=ta01.00 id=ta01.00 style="width:100%;height=100%;" ' + ourdata + 'placeholder="Blurb ..." class=tablurb></textarea></td></tr>';
if (sm == 2 && eval(sy % 4) != 0) { dinm[1]=28; }
dec='<h' + '2>Events in ' + document.getElementById('smonth').innerHTML.split('"' + ('0' + sm).slice(-2) + '">')[1].split('<')[0] + ', ' + document.getElementById('syear').value + ' <input id=remember onclick="lastbut=this;" type=submit value=Remember style=background-color:lightgreen;></input><br><input type=hidden id=caltitle name=caltitle value="' + document.getElementById('smonth').innerHTML.split('"' + ('0' + sm).slice(-2) + '">')[1].split('<')[0] + ', ' + document.getElementById('syear').value + '"></input><div id=divtables><table cellpadding=20 cellspacing=20 id=t' + sy + ('0' + sm).slice(-2) + '><table style=width:98%; bordercolor="darkgreen" border=5 data-next="01" id=tbl01>' + trtemplate + '</table></table></div>';
for (iijj=2; iijj<=dinm[eval(-1 + sm)]; iijj++) {
jdow++;
if (jdow >= 7) { jdow=0; }
if (dotw[jdow].toUpperCase().substring(0,3) == 'SUN') {
ordn=ordn.replace('5th','6th').replace('4th','5th').replace('3rd','4th').replace('2nd','3rd').replace('1st','2nd');
weekno++;
dec+='<table><tr><td><hr></td><td><hr></td></tr></table>';
}
dec+='<table title="Week number in ' + sy + ' is ' + weekno + ' and is ' + ordn + ' week in ' + document.getElementById('smonth').innerHTML.split('"' + ('0' + sm).slice(-2) + '">')[1].split('<')[0] + ', ' + document.getElementById('syear').value + '" style=width:98%; bordercolor="darkgreen" border=5 id=tbl' + ('0' + iijj).slice(-2) + '>' + trtemplate.replace(/01\.00/g, ('0' + iijj).slice(-2) + '.00').replace(/\>1\</g, '>' + ('' + iijj) + '<').replace(dotw[idow].toUpperCase().substring(0,3), dotw[jdow].toUpperCase().substring(0,3)).replace(dotw[idow].toUpperCase().substring(0,3), dotw[jdow].toUpperCase().substring(0,3)) + '</table></table>';
}
if (tazo != ' ' && 2 == 2) {
document.title='Events in Month ' + (locationsearch.split('caltitle=')[1] ? (decodeURIComponent(locationsearch.split('caltitle=')[1].split('&')[0]).trim()).replace(/\+/g,' ') : '');
document.getElementById('eventcalendar').innerHTML='<hr></hr><form id=ecform onsubmit="return fanalyze(this);" action=./' + ehtm + ' method=GET><div id=dmore></div>' + dec + '<br><br><input id=remembermoi onclick="lastbut=this;" type=submit value=Remember style=background-color:lightgreen;></input></form><br><br><br><hr><br><br>';
var findeq='.01', aone=1, jk=1, lastchange='';
var thingos=documentURL.split(findeq + '=');
var args=documentURL.split('&');
var thislabel='', thisval='';
while (thingos.length > 1) {
for (jk=1; jk<thingos.length; jk++) {
if (lastchange != 'sel' + thingos[eval(-1 + jk)].slice(-2) + '.00') {
document.getElementById('sel' + thingos[eval(-1 + jk)].slice(-2) + '.00').value='Clone';
selit(document.getElementById('sel' + thingos[eval(-1 + jk)].slice(-2) + '.00'));
lastchange='sel' + thingos[eval(-1 + jk)].slice(-2) + '.00';
}
}
aone++;
findeq='.' + ('0' + aone).slice(-2);
thingos=documentURL.split(findeq + '=');
}
for (jk=1; jk<args.length; jk++) {
thislabel=args[jk].split('=')[0];
thisval=decodeURIComponent(args[jk].split('=')[1]).replace(/\ \;/g,' ').replace(/\&\;/g,'&');
//alert(thislabel + ' ... ' + thisval);
if (thisval != '') {
if (thisval.indexOf('#') != -1 && eval('' + thisval.split('#').length) == 2 && eval(1 + jk) == eval('' + args.length)) {
if (thisval.split('#')[1].indexOf('__') != -1) { thisval=thisval.split('#')[0]; }
}
if (thisval.substring(0,1) == '#' && eval(1 + jk) == eval('' + args.length)) { thisval=''; }
}
if (thislabel.substring(0,4) == 'bold') {
document.getElementById(thislabel.replace('bold', 'bd')).innerHTML='<input title="Event title" style=font-style:bold; type=hidden id=' + thislabel + ' name=' + thislabel + ' va' + 'lue="' + thisval.replace(/\+/g, ' ').replace(/\ \ \ /g, ' + ') + '"></input>' + thisval.replace(/\+/g, ' ').replace(/\ \ \ /g, ' + ') + '<br>';
} else if (thislabel.substring(0,1) == 'i') {
if (thisval.trim() != '') {
document.getElementById(thislabel.replace('i', 'sel')).style.color='white';
document.getElementById(thislabel.replace('i', 'sel')).style.backgroundColor='red';
}
document.getElementById(thislabel.replace('i', 'opt')).innerText=thisval.replace(/\+/g, ' ').replace(/\ \ \ /g, ' + '); //.replace(/\+$/g, ' ');
document.getElementById(thislabel).value=thisval.replace(/\+$/g, ' ');
} else {
document.getElementById(thislabel).value=thisval.replace(/\+/g, ' ').replace(/\ \ \ /g, ' + ');
}
}
}
}
if (dec != '' && tazo == ' ') {
document.getElementById('eventcalendar').innerHTML='<form id=ecform onsubmit="return fanalyze(this);" action=./' + ehtm + ' method=GET><div id=dmore></div>' + dec + '<br><br><input id=rememberme onclick="lastbut=this;" type=submit value=Remember style=background-color:lightgreen;></input></form><br><br><br><hr><br><br>';
}
if (document.URL.indexOf('caltitle=') != -1 && document.URL.indexOf('caltitle=&') == -1) {
document.getElementById('semail').style.display='inline-block';
document.getElementById('ssms').style.display='inline-block';
}
if (bigbih.indexOf('</he' + 'ad>') != -1 || bigbih.indexOf('<b' + 'o' + 'dy') != -1 || bigbih.indexOf('<h' + '1') == 0) {
//boh=document.body.outerHTML;
//hih=document.head.innerHTML;
//if (document.getElementById('divtables')) {
// tblfrom=document.getElementById('divtables').innerHTML;
// alert('Tblfrom=' + tblfrom);
//} else if (document.getElementById('eventcalendar')) {
// tblfrom=document.getElementById('eventcalendar').innerHTML;
//}
//bigbih=bigbih.replace('" id="eventcalendar"', 'margin-top:50px;" id="eventcalendar"');
viatext=' (via contact at ' + ('' + new Date()) + ')';
if (bigbih.indexOf('<h' + '1') == 0) {
smallbih=bigbih;
} else {
smallbih=bigbih.split('<b' + 'o' + '')[1].split('</b' + 'o' + 'd' + 'y>')[0].replace(bigbih.split('<b' + 'o' + '')[1].split('</b' + 'o' + 'd' + 'y>')[0].split('>')[0] + '>', '');
}
wes=windowopen('./events_in_month.htm','_blank','top=40,left=40,width=800,height=800');
//alert(bigbih);
if (wes) {
setTimeout(function(){
wes.document.write(bigbih);
setTimeout(function(){
boh=wes.document.body.outerHTML;
hih=wes.document.head.innerHTML;
if (wes.document.getElementById('divtables')) {
tblfrom=wes.document.getElementById('divtables').innerHTML;
//alert('tBlFrom=' + tblfrom);
wes.settf(tblfrom, boh, hih);
}
}, 4000);
}, 3000);
//document.body.innerHTML=bigbih;
setTimeout(function(){
wes.document.getElementById('semail').style.display='inline-block';
wes.document.getElementById('ssms').style.display='inline-block';
wes.document.getElementsByTagName('h1')[0].style.display='none';
wes.document.getElementsByTagName('h3')[0].style.display='none';
//wes.setviatext(viatext);
//wes.setphpthere(' ');
//wes.togglewords();
}, 5000);
}
}

if (document.getElementById('semail') && document.getElementById('ssms')) {
document.getElementById('semail').oncontextmenu=function(){ emailaskit(); };
document.getElementById('semail').ontouchmove=function(){ emailaskit(); };
document.getElementById('ssms').oncontextmenu=function(){ smsaskit(); };
document.getElementById('ssms').ontouchmove=function(){ smsaskit(); };
if (navigator.userAgent.match(/Android|BlackBerry|iPhone|iPad|iPod|Opera Mini|IEMobile/i)) {
document.getElementById('semail').title+=' Move gesture here can ask for new default remembered email address for collaboration purposes';
document.getElementById('ssms').title+=' Move gesture here can ask for new default remembered SMS number for collaboration purposes';
} else {
document.getElementById('semail').title+=' Right click here can ask for new default remembered email address for collaboration purposes';
document.getElementById('ssms').title+=' Right click here can ask for new default remembered SMS number for collaboration purposes';
}
}

setTimeout(formanalyze, 3000);
}

function wopencheck(iois) {
var aconto = null;
aconto = (iois.contentWindow || iois.contentDocument);
if (aconto != null) {
if (aconto.document) { aconto = aconto.document; }
if (aconto.body != null) {
aconto.body.innerHTML=smallbih;
//aconto.setviatext(viatext);
}
}
}

function setviatext(towhat) {
viatext=towhat;
}

function windowopen(poneis, ptwois, pthreeis) {
document.getElementById('divas').innerHTML='<iframe name=ovif id=ovif style="position:absolute;top:140px;left:0px;width:100%;height:100%;z-index:99;" src="' + poneis + '" onload=wopencheck(this);></iframe>';
//document.getElementsByTagName('h1')[0].style.opacity='0.0';
//document.getElementsByTagName('h3')[0].style.opacity='0.0';
if (bigbih.indexOf('</he' + 'ad>') != -1 || bigbih.indexOf('<b' + 'o' + 'dy') != -1 || bigbih.indexOf('<h' + '1') == 0) {
sparewes=window.open(poneis.split('.htm')[0] + '.php', 'ovif'); // sparewes=window.open(poneis, 'ovif');
//sparewes.document.write('<b' + 'od' + 'y' + bigbih.split('<b' + 'od' + 'y')[1].split('</b' + 'od' + 'y>')[0] + '</b' + 'od' + 'y>');
sparewes.document.write(bigbih);
} else {
sparewes=window.open(poneis.split('.htm')[0] + '.php', 'ovif');
sparewes.document.write(bigbih);
}
//sparewes=window.open(poneis, 'ovif');
setTimeout(function(){
boh=sparewes.document.body.outerHTML;
hih=sparewes.document.head.innerHTML;
if (sparewes.document.getElementById('divtables')) {
tblfrom=sparewes.document.getElementById('divtables').innerHTML;
//alert('TBlFrom=' + tblfrom);
sparewes.parent.settf(tblfrom, boh, hih);
}
}, 4000);
setTimeout(function(){
sparewes.document.getElementById('semail').style.display='inline-block';
sparewes.document.getElementById('ssms').style.display='inline-block';
var sdem=sparewes.document.getElementById('semail').outerHTML;
var sdss=sparewes.document.getElementById('ssms').outerHTML;
sparewes.document.getElementsByTagName('h1')[0].innerHTML=sparewes.document.getElementsByTagName('h1')[0].innerHTML.replace(sdss,'');
sparewes.document.getElementsByTagName('h1')[0].innerHTML=sparewes.document.getElementsByTagName('h1')[0].innerHTML.replace(sdem,'');
sparewes.document.getElementsByTagName('h1')[0].style.display='none';
sparewes.document.getElementsByTagName('h3')[0].style.display='none';
if (sparewes.document.getElementById('dmore')) {
sparewes.document.getElementById('dmore').innerHTML+=(' ' + sdem.replace('doeJUNKmail(', 'parent.doe' + 'mail(') + ' ' + sdss.replace('dosJUNKms(', 'parent.dos' + 'ms(') + '<br>');
}
//sparewes.setviatext(viatext);
//sparewes.setphpthere(' ');
//sparewes.togglewords();
}, 5000);
return null;
}

function formanalyze() {
var fio=document.getElementsByTagName('form')[0];
var delm='?';
var fioih=fio.innerHTML;
var fions=fioih.split(' na' + 'me="');
var testurl=documentURL.split('?')[0].split('#')[0];
for (var ijk=1; ijk<fions.length; ijk++) {
testurl+=delm + fions[ijk].split('"')[0] + '=' + encodeURIComponent(document.getElementById(fions[ijk].split('"')[0]).value.replace(/\?\>/g,'? >'));
delm='&';
}
setTimeout(formanalyze, 3000);
if (eval('' + testurl.length) >= 750) {
if (maybe(document.getElementById('remember'))) { document.getElementById('remember').value='New Window'; }
if (maybe(document.getElementById('rememberme'))) { document.getElementById('rememberme').value='New Window'; }
if (maybe(document.getElementById('remembermoi'))) { document.getElementById('remembermoi').value='New Window'; }
} else {
if (document.getElementById('remember')) { document.getElementById('remember').value=document.getElementById('remember').value.replace(/^Remember$/g, 'Remember' + viatext).replace(/^Remember$/g, 'Remember via Bookmark'); }
if (document.getElementById('rememberme')) { document.getElementById('rememberme').value=document.getElementById('rememberme').value.replace(/^Remember$/g, 'Remember' + viatext).replace(/^Remember$/g, 'Remember via Bookmark'); }
if (document.getElementById('remembermoi')) { document.getElementById('remembermoi').value=document.getElementById('remembermoi').value.replace(/^Remember$/g, 'Remember' + viatext).replace(/^Remember$/g, 'Remember via Bookmark'); }
}
return eval('' + testurl.length);
}

function maybe(remel) {
if (remel) {
if (remel.value.indexOf('Remember') == 0) {
if (remellist.length == 0) {
if (phpthere != '') { setInterval(togglewords, 5000); }
}
remellist.push(remel.id);
return true;
} else {
return false;
}
}
return false;
}

function togglewords() {
for (var iv=0; iv<remellist.length; iv++) {
if (document.getElementById(remellist[iv])) {
document.getElementById('semail').style.display='inline-block';
document.getElementById('ssms').style.display='inline-block';
if (document.getElementById(remellist[iv]).value == 'New Window') {
document.getElementById(remellist[iv]).value = 'Record to Remember' + (viatext == '' ? ' via Bookmark' : viatext);
} else {
document.getElementById(remellist[iv]).value = 'New Window';
}
}
}
}

function settf(towhat, towhatboh, towhathih) {
tblfrom=towhat;
boh=towhatboh;
hih=towhathih;
//alert('TBLFROM=' + tblfrom);
}

function hfanalyze() {
var fio=document.getElementById('ecform'), fioih='', fions=[], ijk=0;
//alert(9);
if (forceit) { forceit=false; return true; }
//alert(98);
var delm='?';
var testurl=documentURL.split('?')[0].split('#')[0];
if (fio) {
fioih=fio.innerHTML;
fions=fioih.split(' na' + 'me="');
//alert(fions.length);
for (ijk=1; ijk<fions.length; ijk++) {
if (1 == 6 && boh.indexOf(' na' + 'me="' + fions[ijk].split('"')[0] + '"') != -1) {
compval=boh.split(' na' + 'me="' + fions[ijk].split('"')[0] + '"')[1].split(' va' + 'lue="')[1].split('"')[0];
if (document.getElementById(fions[ijk].split('"')[0])) {
if (document.getElementById(fions[ijk].split('"')[0]).value != compval) {
boh=boh.replace(' na' + 'me="' + fions[ijk].split('"')[0] + '"' + boh.split(' na' + 'me="' + fions[ijk].split('"')[0] + '"')[1].split(' va' + 'lue="')[0] + ' va' + 'lue="' + compval, ' na' + 'me="' + fions[ijk].split('"')[0] + '"' + boh.split(' na' + 'me="' + fions[ijk].split('"')[0] + '"')[1].split(' va' + 'lue="')[0] + ' va' + 'lue="' + document.getElementById(fions[ijk].split('"')[0]).value);
}
}
}
testurl+=delm + fions[ijk].split('"')[0] + '=' + encodeURIComponent(document.getElementById(fions[ijk].split('"')[0]).value.replace(/\?\>/g,'? >'));
delm='&';
}
} else if (sparewes) {
fio=sparewes.document.getElementById('ecform');
if (fio) {
fioih=fio.innerHTML;
fions=fioih.split(' na' + 'me="');
//alert(fions.length);
for (ijk=1; ijk<fions.length; ijk++) {
if (1 == 6 && boh.indexOf(' na' + 'me="' + fions[ijk].split('"')[0] + '"') != -1) {
compval=boh.split(' na' + 'me="' + fions[ijk].split('"')[0] + '"')[1].split(' va' + 'lue="')[1].split('"')[0];
if (sparewes.document.getElementById(fions[ijk].split('"')[0])) {
if (sparewes.document.getElementById(fions[ijk].split('"')[0]).value != compval) {
boh=boh.replace(' na' + 'me="' + fions[ijk].split('"')[0] + '"' + boh.split(' na' + 'me="' + fions[ijk].split('"')[0] + '"')[1].split(' va' + 'lue="')[0] + ' va' + 'lue="' + compval, ' na' + 'me="' + fions[ijk].split('"')[0] + '"' + boh.split(' na' + 'me="' + fions[ijk].split('"')[0] + '"')[1].split(' va' + 'lue="')[0] + ' va' + 'lue="' + sparewes.document.getElementById(fions[ijk].split('"')[0]).value);
}
}
}
testurl+=delm + fions[ijk].split('"')[0] + '=' + encodeURIComponent(sparewes.document.getElementById(fions[ijk].split('"')[0]).value.replace(/\?\>/g,'? >'));
delm='&';
}
}
}
//alert(testurl.length);
//if (eval('' + testurl.length) < 750) { return true; }
//if (lastbut.value.indexOf('New') == 0 || 11 == 11) {
if (22 == 22) {
if (bigbih.indexOf('</he' + 'ad>') != -1 || bigbih.indexOf('<b' + 'o' + 'dy') != -1 || bigbih.indexOf('<h' + '1') == 0) {
//boh='<b' + 'od' + 'y' + bigbih.split('<b' + 'od' + 'y')[1].split('</b' + 'od' + 'y>')[0] + '</b' + 'od' + 'y>';
hih=parent.document.head.innerHTML;
//testurl=documentURL;
}
if (document.getElementById('divtables')) {
tblto=document.getElementById('divtables').innerHTML;
//alert(tblto);
} else if (document.getElementById('eventcalendar')) {
tblto=document.getElementById('eventcalendar').innerHTML;
//alert('2:' + tblto);
} else if (bigbih.indexOf('</he' + 'ad>') != -1 || bigbih.indexOf('<b' + 'o' + 'dy') != -1 || bigbih.indexOf('<h' + '1') == 0) {
boh='<b' + 'od' + 'y' + bigbih.split('<b' + 'od' + 'y')[1].split('</b' + 'od' + 'y>')[0] + '</b' + 'od' + 'y>';
hih=parent.document.head.innerHTML;
//testurl=documentURL;
//boh=document.body.outerHTML;
//alert(9865);
}
//wo=window.open('', '_blank', 'top=50,left=50,height=600,width=600');
//wo.document.write('<html><he' + 'ad>' + hih.replace("=docum" + "ent.URL", "='" + testurl.replace(/\'/g, "' + String.fromCharCode(39) + '") + "'") + '</h' + 'ead>' + boh + '</html>');
return ('<html><he' + 'ad>' + hih.replace("=docum" + "ent.URL", "='" + testurl.replace(/\'/g, "' + String.fromCharCode(39) + '") + "'") + '</h' + 'ead>' + boh.replace(tblfrom,tblto) + '</html>');
//return ('<html><he' + 'ad>' + hih.replace("=docum" + "ent.URL", "='" + testurl.replace(/\'/g, "' + String.fromCharCode(39) + '") + "'") + '</h' + 'ead>' + document.body.outerHTML + '</html>');
} else if (phpthere != '') {
if (1 == 1) {
postit(fio, false, testurl);
} else {
fio.target='phpif';
fio.method='POST';
fio.action='./events_in_month.php';
if (!document.getElementById('dmore')) {
document.getElementById('ddmore').innerHTML='<input type=hidden id=caltitle name=caltitle value="' + document.getElementById('myoldsel').options[document.getElementById('myoldsel').selectedIndex].innerText + '"></input><input type=hidden id=phpthere name=phpthere value="' + phpthere + '"></input><input type=hidden id=bigurl name=bigurl value="' + testurl + '"></input>';
} else {
document.getElementById('dmore').innerHTML='<input type=hidden id=phpthere name=phpthere value="' + phpthere + '"></input><input type=hidden id=bigurl name=bigurl value="' + testurl + '"></input>';
}
}
return 'true';
}
return 'false';
}

function fanalyze(fio) {
if (forceit) { forceit=false; return true; }
var delm='?';
var fioih=fio.innerHTML;
var fions=fioih.split(' na' + 'me="');
var testurl=documentURL.split('?')[0].split('#')[0];
//alert(fions.length);
for (var ijk=1; ijk<fions.length; ijk++) {
testurl+=delm + fions[ijk].split('"')[0] + '=' + encodeURIComponent(document.getElementById(fions[ijk].split('"')[0]).value.replace(/\?\>/g,'? >'));
delm='&';
}
//alert(testurl.length);
if (eval('' + testurl.length) < 750) { return true; }
if (lastbut.value.indexOf('New') == 0) {
wo=window.open('', '_blank', 'top=50,left=50,height=600,width=600');
wo.document.write('<html><he' + 'ad>' + hih.replace("=docum" + "ent.URL", "='" + testurl.replace(/\'/g, "' + String.fromCharCode(39) + '") + "'") + boh + '</html>');
} else if (phpthere != '') {
if (1 == 1) {
postit(fio, false, testurl);
} else {
fio.target='phpif';
fio.method='POST';
fio.action='./events_in_month.php';
if (!document.getElementById('dmore')) {
document.getElementById('ddmore').innerHTML='<input type=hidden id=caltitle name=caltitle value="' + document.getElementById('myoldsel').options[document.getElementById('myoldsel').selectedIndex].innerText + '"></input><input type=hidden id=phpthere name=phpthere value="' + phpthere + '"></input><input type=hidden id=bigurl name=bigurl value="' + testurl + '"></input>';
} else {
document.getElementById('dmore').innerHTML='<input type=hidden id=phpthere name=phpthere value="' + phpthere + '"></input><input type=hidden id=bigurl name=bigurl value="' + testurl + '"></input>';
}
}
return true;
}
return false;
}

function postit(pfio, clickit, ptesturl) {
//alert(phpthere + ' ' + ptesturl);
if (phpthere != '') {
if (ptesturl.indexOf('caltitle=') != -1) {
if (document.getElementById('caltitle')) {
//alert(document.getElementById('myoldsel').options[document.getElementById('myoldsel').selectedIndex].innerText);
document.getElementById('caltitle').value=document.getElementById('myoldsel').options[document.getElementById('myoldsel').selectedIndex].innerText;
} //else {
//alert('oops');
//}
}

pfio.target='phpif';
pfio.method='POST';
pfio.action='./events_in_month.php?';
if (!document.getElementById('dmore')) {
if (!lastbut && ptesturl.indexOf('#') != -1) {
//alert('Yes ' + document.getElementById('myoldsel').options[document.getElementById('myoldsel').selectedIndex].innerText);
location.href=documentURL.split('?')[0].split('#')[0].replace('.html','.php').replace('.htm','.php') + '?exactlabel=' + ptesturl.split('#')[1];
} else {
document.getElementById('ddmore').innerHTML='<input type=hidden id=caltitle name=caltitle value="' + document.getElementById('myoldsel').options[document.getElementById('myoldsel').selectedIndex].innerText + '"></input><input type=hidden id=phpthere name=phpthere value="' + phpthere + '"></input><input type=hidden id=bigurl name=bigurl value="' + ptesturl + '"></input>';
}
} else {
if (document.URL.replace('?smonth=', '?exactlabel=').indexOf('?exactlabel=') != -1 && ptesturl.indexOf('#') != -1) {
//alert('OOps ' + ptesturl.split('#')[1]);
location.href=documentURL.split('?')[0].split('#')[0].replace('.html','.php').replace('.htm','.php') + '?exactlabel=' + ptesturl.split('#')[1];
} else {
//alert('Oops ');
document.getElementById('dmore').innerHTML='<input type=hidden id=phpthere name=phpthere value="' + phpthere + '"></input><input type=hidden id=bigurl name=bigurl value="' + ptesturl + '"></input>';
}
}
if (clickit) {
if (!lastbut) {
forceit=true;
pfio.submit();
} else {
//alert(1564);
forceit=true;
lastbut.click();
lastbut=null;
}
wassel=document.getElementById('myoldsel').innerHTML.split('</option>').length;
setTimeout(newcheckif, 3000);
}
}
}

function newcheckif() {
if (document.getElementById('myoldsel').innerHTML.split('</option>').length != wassel) {
if (document.getElementById('myoldsel').innerHTML.split(' va' + 'lue="')[eval(-1 + document.getElementById('myoldsel').innerHTML.split(' va' + 'lue="').length)].split('"')[0].replace(/\ \;/g,' ').replace(/\&\;/g,'&').indexOf('#') != -1) {
location.href=documentURL.split('?')[0].split('#')[0].replace('.html','.php').replace('.htm','.php') + '?exactlabel=' + document.getElementById('myoldsel').innerHTML.split(' va' + 'lue="')[eval(-1 + document.getElementById('myoldsel').innerHTML.split(' va' + 'lue="').length)].split('"')[0].replace(/\ \;/g,' ').replace(/\&\;/g,'&').split('#')[1];
} else {
wo=window.open('', '_blank', 'top=50,left=50,height=600,width=600');
wo.document.write('<html><he' + 'ad>' + hih.replace("=docum" + "ent.URL", "='" + document.getElementById('myoldsel').innerHTML.split(' va' + 'lue="')[eval(-1 + document.getElementById('myoldsel').innerHTML.split(' va' + 'lue="').length)].split('"')[0].replace(/\ \;/g,' ').replace(/\&\;/g,'&') + "'").replace(/\'/g, "' + String.fromCharCode(39) + '") + boh + '</html>');
}
}
}

function setphpthere(towhat) {
phpthere=towhat;
}

function checkif(iois) {
var aconto = null;
if (iois.src.indexOf('?init=') != -1) {
aconto = (iois.contentWindow || iois.contentDocument);
if (aconto != null) {
if (aconto.document) { aconto = aconto.document; }
if (aconto.body != null) {
phpthere=aconto.body.innerText.replace(/\ \;/g,' ').replace(/\&\;/g,'&');
}
iois.src=iois.src.split('?')[0];
}
} else if (iois.src.indexOf('?') != -1 && iois.src.indexOf('?exactlabel=') == -1) {
aconto = (iois.contentWindow || iois.contentDocument);
if (aconto != null) {
document.getElementById('dmore').innerHTML='';
documentURL=aconto.body.innerText.replace(/\ \;/g,' ').replace(/\&\;/g,'&');
locationsearch=('?' + documentURL.replace(documentURL.split('?')[0].split('#')[0], '')).replace(/^\?$/g, '');
if (1 == 1) {
wo=window.open('', '_blank', 'top=50,left=50,height=600,width=600');
wo.document.write('<html><he' + 'ad>' + hih.replace("=docum" + "ent.URL", "='" + documentURL.replace(/\ \;/g,' ').replace(/\&\;/g,'&').replace(/\'/g, "' + String.fromCharCode(39) + '") + "'") + boh + '</html>');
} else {
setTimeout(sinit, 2000);
}
}
}
}


function doemail(inidea) {
var azx=top.document.getElementById('xae' + 'mail');
if (!azx) { azx=top.document.createElement("a"); }
//if (1 == 1) {
//document.getElementById('divas').appendChild(azx);
//} else {
top.document.body.appendChild(azx);
//}
azx.style = "display: none";
azx.target = "_top";
azx.id = 'xae' + 'mail';
//if (1 == 6 && bigbih.indexOf('</he' + 'ad>') != -1 || bigbih.indexOf('<b' + 'o' + 'dy') != -1 || bigbih.indexOf('<h' + '1') == 0) {
//azx.href = 'mailto:' + inidea + '?subject=' + encodeURIComponent(document.getElementsByTagName('h2')[0].innerHTML.split('&')[0].split('<')[0].replace(/\`/g,'').replace(/^Events\ in\ /g, 'Events in Month ').substring(0)) + '&body=' + encodeURIComponent(document.URL.split('?')[0].split('#')[0] + '#bih=' + encodeURIComponent(bigbih)); //encodeURIComponent(document.URL.split('#')[0] + '<h2' + document.body.innerHTML.split('<h2')[1]));
//} else {
if (sparewes) {
azx.href = 'mailto:' + inidea + '?subject=' + encodeURIComponent(sparewes.document.getElementsByTagName('h2')[0].innerHTML.split('&')[0].split('<')[0].replace(/\`/g,'').replace(/^Events\ in\ /g, 'Events in Month ').substring(0)) + '&body=' + encodeURIComponent(document.URL.split('?')[0].split('#')[0] + '#bih=' + encodeURIComponent(parent.hfanalyze())); //encodeURIComponent(document.URL.split('#')[0] + '<h2' + sparewes.document.body.innerHTML.split('<h2')[1]));
} else {
azx.href = 'mailto:' + inidea + '?subject=' + encodeURIComponent(document.getElementsByTagName('h2')[0].innerHTML.split('&')[0].split('<')[0].replace(/\`/g,'').replace(/^Events\ in\ /g, 'Events in Month ').substring(0)) + '&body=' + encodeURIComponent(document.URL.split('?')[0].split('#')[0] + '#bih=' + encodeURIComponent(parent.hfanalyze())); //encodeURIComponent(document.URL.split('#')[0] + '<h2' + document.body.innerHTML.split('<h2')[1]));
}
//}
azx.click();
return '';
}

function dosms() {
if (('' + window.localStorage.getItem('eventcollaboratoremailee')).replace(/^null/g,'').replace(/^undefined/g,'') != '') {
defemail=window.localStorage.getItem('eventcollaboratoremailee');
}
if (('' + window.localStorage.getItem('eventcollaboratorsmsno')).replace(/^null/g,'').replace(/^undefined/g,'') != '') {
defsms=window.localStorage.removeItem('eventcollaboratorsmsno');
}
//alert('' + eval('' + ('sms:' + snum + '&body=' + encodeURIComponent(document.URL.split('?')[0].split('#')[0] + '#bih=' + encodeURIComponent(parent.hfanalyze()))).length));
if (eval('' + ('sms:' + snum + '&body=' + encodeURIComponent(document.URL.split('?')[0].split('#')[0] + '#bih=' + encodeURIComponent(parent.hfanalyze()))).length) >= 18000) {
snum=('' + prompt('Please enter SMS number to send to. We suspect message is too long for an SMS and if you enter an email address here instead, we will try to send an email instead. Append space(s) to remember, whatever you enter, for next time.', snum)).replace(/^null/g, (defemail.indexOf('@') != -1 ? defemail : (defsms != '' ? defsms : '')) );
} else {
snum=('' + prompt('Please enter SMS number to send to. Append space(s) to remember for next time.', snum)).replace(/^null/g, (defsms != '' ? defsms : (defemail.indexOf('@') != -1 ? defemail : '')));
}
if (snum == null) { snum=''; }
if (snum.indexOf('@') != -1) {
if (snum.trim() != snum) {
snum=snum.trim();
if (('' + window.localStorage.getItem('eventcollaboratoremailee')).replace(/^null/g,'').replace(/^undefined/g,'') != '') {
window.localStorage.removeItem('eventcollaboratoremailee');
}
window.localStorage.setItem('eventcollaboratoremailee', snum);
defemail=snum;
}
return doemail(snum);
} else if (snum.trim() != '' && snum.trim().replace(/0/g,'').replace(/1/g,'').replace(/2/g,'').replace(/3/g,'').replace(/4/g,'').replace(/5/g,'').replace(/6/g,'').replace(/7/g,'').replace(/8/g,'').replace(/9/g,'').trim() == '') {
//alert('Snum=' + snum + '?');
if (snum.trim() != snum) {
snum=snum.trim();
if (('' + window.localStorage.getItem('eventcollaboratorsmsno')).replace(/^null/g,'').replace(/^undefined/g,'') != '') {
window.localStorage.removeItem('eventcollaboratorsmsno');
}
window.localStorage.setItem('eventcollaboratorsmsno', snum);
defsms=snum;
}
var azx=top.document.getElementById('xas' + 'ms');
if (azx == null) { azx=top.document.createElement("a"); }
//if (1 == 1) {
// document.getElementById('divas').appendChild(azx);
//} else {
top.document.body.appendChild(azx);
// }
azx.id = 'xas' + 'ms';
azx.target = "_top";
azx.style = "display: none";
azx.href = 'sms:' + snum + '&body=' + encodeURIComponent(document.URL.split('?')[0].split('#')[0] + '#bih=' + encodeURIComponent(parent.hfanalyze()));
azx.click();
}
return '';
}


function emailaskit() {
if (defemail == defemail.trim()) {
defemail=defemail.trim() + ' ';
var emailm=prompt('Enter default email address.', defemail.trim());
if (emailm == null) { emailm=''; }
if (emailm.trim() != '' && emailm.trim().indexOf('@') != -1) {
defemail=emailm.trim() + ' ';
if (('' + window.localStorage.getItem('eventcollaboratoremailee')).replace(/^null/g,'').replace(/^undefined/g,'') != '') {
defemail=window.localStorage.removeItem('eventcollaboratoremailee');
}
window.localStorage.setItem('eventcollaboratoremailee', emailm.trim());
}
}
defemail=defemail.trim() + ' ';
}

function smsaskit() {
if (defsms == defsms.trim()) {
defsms=defsms.trim() + ' ';
var smsm=prompt('Enter default SMS number.', defsms.trim());
if (smsm == null) { smsm=''; }
if (smsm.trim() != '' && smsm.trim().replace(/0/g,'').replace(/1/g,'').replace(/2/g,'').replace(/3/g,'').replace(/4/g,'').replace(/5/g,'').replace(/6/g,'').replace(/7/g,'').replace(/8/g,'').replace(/9/g,'').trim() == '') {
defsms=smsm.trim() + ' ';
if (('' + window.localStorage.getItem('eventcollaboratorsmsno')).replace(/^null/g,'').replace(/^undefined/g,'') != '') {
window.localStorage.removeItem('eventcollaboratorsmsno');
}
window.localStorage.setItem('eventcollaboratorsmsno', smsm.trim());
}
}
defsms=defsms.trim() + ' ';
}

setTimeout(sinit, 2000);

</script>
</head>
<body data-onload=sinit();>
<h1>Events in Month  <button style=display:none; title='Share via Email' id=semail onclick="doemail(defemail);">📧</button> <button style=display:none; title='Share via SMS' id=ssms onclick=dosms();>📟</button> <div style=display:inline-block; id=oldones><select class=selhistory onchange="if (this.value != '') { lastbut=null; postit(document.getElementsByTagName('form')[0], true, this.value); }" id=myoldsel style=display:none;><option value=''>Recorded ones ...</option></select></div></h1>
<h3>RJM Programming - August, 2023</h3>
<div style="text-shadow:-1px 1px 1px #ff2d95;" id=eventcalendar></div>

<form id=myform action=./events_in_month.html method=GET><div id=ddmore></div>
<select style=display:inline-block; id="smonth" name="smonth" title="Month"><option value="01">January</option><option value="02">February</option><option value="03">March</option><option value="04">April</option><option value="05">May</option><option value="06">June</option><option value="07">July</option><option value="08">August</option><option value="09">September</option><option value="10">October</option><option value="11">November</option><option value="12">December</option></select>, <input style=display:inline-block;min-width:55px; onblur=fixitzero(this,this.value,nts); onchange=fixitzero(this,this.value,nts); step=1 min=1970 type="number" id="syear" name="syear" value="1970" title="Year"></input>
<input id=rememberyou onclick="lastbut=this;" type=submit id=mysub value="Ready to Fill in Events ..." style='background-color:yellow;'></input>
</form>
<iframe id=phpif name=phpif src='./events_in_month.php?init=y' style=display:none; onload=checkif(this);></iframe>
<div id=divas></div>
</body>
</html>