<% Set cnn1 = CreateObject("ADODB.Connection") cnn1.ConnectionString = "driver={MySQL};server=data.aip182.aisites.com;uid=aip182aii_aip;pwd=aiphportal;database=aip182aii_portal" cnn1.Open set rstQuery = CreateObject("ADODB.Recordset") strRstQuery = "SELECT * from clubactivities WHERE pend<2 and clubeventdayofweek = 'Monday'" set rstQuery = cnn1.Execute(strRstQuery) If Not (rstQuery.BOF AND rstQuery.EOF) Then Do Until rstQuery.EOF clubid = rstQuery.Fields("clubid") clubeventid = rstQuery.Fields("clubeventid") clubname = rstQuery.Fields("clubname") clubeventname = rstQuery.Fields("clubeventname") clubeventdate = rstQuery.Fields("clubeventdate") clubeventtime = rstQuery.Fields("clubeventtime") clubeventlocation = rstQuery.Fields("clubeventlocation") clubeventdayofweek = rstQuery.Fields("clubeventdayofweek") clubeventshortdescription = rstQuery.Fields("clubeventshortdescription") clubeventdescription = rstQuery.Fields("clubeventdescription") clubeventurl = rstQuery.Fields("clubeventurl") clubeventurlname = rstQuery.Fields("clubeventurlname") clubeventemail = rstQuery.Fields("clubeventemail") clubeventemailname = rstQuery.Fields("clubeventemailname") clubeventphoto = rstQuery.Fields("clubeventphoto") pend = rstQuery.Fields("pend") %> <% rstQuery.MoveNext Loop Else Response.Write(" ") End If cnn1.close %> <% Set cnn1 = CreateObject("ADODB.Connection") cnn1.ConnectionString = "driver={MySQL};server=data.aip182.aisites.com;uid=aip182aii_aip;pwd=aiphportal;database=aip182aii_portal" cnn1.Open set rstQuery = CreateObject("ADODB.Recordset") strRstQuery = "SELECT * from clubactivities WHERE pend<2 and clubeventdayofweek = 'Tuesday'" set rstQuery = cnn1.Execute(strRstQuery) If Not (rstQuery.BOF AND rstQuery.EOF) Then Do Until rstQuery.EOF clubid = rstQuery.Fields("clubid") clubeventid = rstQuery.Fields("clubeventid") clubname = rstQuery.Fields("clubname") clubeventname = rstQuery.Fields("clubeventname") clubeventdate = rstQuery.Fields("clubeventdate") clubeventtime = rstQuery.Fields("clubeventtime") clubeventlocation = rstQuery.Fields("clubeventlocation") clubeventdayofweek = rstQuery.Fields("clubeventdayofweek") clubeventshortdescription = rstQuery.Fields("clubeventshortdescription") clubeventdescription = rstQuery.Fields("clubeventdescription") clubeventurl = rstQuery.Fields("clubeventurl") clubeventurlname = rstQuery.Fields("clubeventurlname") clubeventemail = rstQuery.Fields("clubeventemail") clubeventemailname = rstQuery.Fields("clubeventemailname") clubeventphoto = rstQuery.Fields("clubeventphoto") pend = rstQuery.Fields("pend") %> <% rstQuery.MoveNext Loop Else Response.Write(" ") End If cnn1.close %> <% Set cnn1 = CreateObject("ADODB.Connection") cnn1.ConnectionString = "driver={MySQL};server=data.aip182.aisites.com;uid=aip182aii_aip;pwd=aiphportal;database=aip182aii_portal" cnn1.Open set rstQuery = CreateObject("ADODB.Recordset") strRstQuery = "SELECT * from clubactivities WHERE pend<2 and clubeventdayofweek = 'Wednesday'" set rstQuery = cnn1.Execute(strRstQuery) If Not (rstQuery.BOF AND rstQuery.EOF) Then Do Until rstQuery.EOF clubid = rstQuery.Fields("clubid") clubeventid = rstQuery.Fields("clubeventid") clubname = rstQuery.Fields("clubname") clubeventname = rstQuery.Fields("clubeventname") clubeventdate = rstQuery.Fields("clubeventdate") clubeventtime = rstQuery.Fields("clubeventtime") clubeventlocation = rstQuery.Fields("clubeventlocation") clubeventdayofweek = rstQuery.Fields("clubeventdayofweek") clubeventshortdescription = rstQuery.Fields("clubeventshortdescription") clubeventdescription = rstQuery.Fields("clubeventdescription") clubeventurl = rstQuery.Fields("clubeventurl") clubeventurlname = rstQuery.Fields("clubeventurlname") clubeventemail = rstQuery.Fields("clubeventemail") clubeventemailname = rstQuery.Fields("clubeventemailname") clubeventphoto = rstQuery.Fields("clubeventphoto") pend = rstQuery.Fields("pend") %> <% rstQuery.MoveNext Loop Else Response.Write(" ") End If cnn1.close %> <% Set cnn1 = CreateObject("ADODB.Connection") cnn1.ConnectionString = "driver={MySQL};server=data.aip182.aisites.com;uid=aip182aii_aip;pwd=aiphportal;database=aip182aii_portal" cnn1.Open set rstQuery = CreateObject("ADODB.Recordset") strRstQuery = "SELECT * from clubactivities WHERE pend<2 and clubeventdayofweek = 'Thursday'" set rstQuery = cnn1.Execute(strRstQuery) If Not (rstQuery.BOF AND rstQuery.EOF) Then Do Until rstQuery.EOF clubid = rstQuery.Fields("clubid") clubeventid = rstQuery.Fields("clubeventid") clubname = rstQuery.Fields("clubname") clubeventname = rstQuery.Fields("clubeventname") clubeventdate = rstQuery.Fields("clubeventdate") clubeventtime = rstQuery.Fields("clubeventtime") clubeventlocation = rstQuery.Fields("clubeventlocation") clubeventdayofweek = rstQuery.Fields("clubeventdayofweek") clubeventshortdescription = rstQuery.Fields("clubeventshortdescription") clubeventdescription = rstQuery.Fields("clubeventdescription") clubeventurl = rstQuery.Fields("clubeventurl") clubeventurlname = rstQuery.Fields("clubeventurlname") clubeventemail = rstQuery.Fields("clubeventemail") clubeventemailname = rstQuery.Fields("clubeventemailname") clubeventphoto = rstQuery.Fields("clubeventphoto") pend = rstQuery.Fields("pend") %> <% rstQuery.MoveNext Loop Else Response.Write(" ") End If cnn1.close %> <% Set cnn1 = CreateObject("ADODB.Connection") cnn1.ConnectionString = "driver={MySQL};server=data.aip182.aisites.com;uid=aip182aii_aip;pwd=aiphportal;database=aip182aii_portal" cnn1.Open set rstQuery = CreateObject("ADODB.Recordset") strRstQuery = "SELECT * from clubactivities WHERE pend<2 and clubeventdayofweek = 'Friday'" set rstQuery = cnn1.Execute(strRstQuery) If Not (rstQuery.BOF AND rstQuery.EOF) Then Do Until rstQuery.EOF clubid = rstQuery.Fields("clubid") clubeventid = rstQuery.Fields("clubeventid") clubname = rstQuery.Fields("clubname") clubeventname = rstQuery.Fields("clubeventname") clubeventdate = rstQuery.Fields("clubeventdate") clubeventtime = rstQuery.Fields("clubeventtime") clubeventlocation = rstQuery.Fields("clubeventlocation") clubeventdayofweek = rstQuery.Fields("clubeventdayofweek") clubeventshortdescription = rstQuery.Fields("clubeventshortdescription") clubeventdescription = rstQuery.Fields("clubeventdescription") clubeventurl = rstQuery.Fields("clubeventurl") clubeventurlname = rstQuery.Fields("clubeventurlname") clubeventemail = rstQuery.Fields("clubeventemail") clubeventemailname = rstQuery.Fields("clubeventemailname") clubeventphoto = rstQuery.Fields("clubeventphoto") pend = rstQuery.Fields("pend") %> <% rstQuery.MoveNext Loop Else Response.Write(" ") End If cnn1.close %> <% Set cnn1 = CreateObject("ADODB.Connection") cnn1.ConnectionString = "driver={MySQL};server=data.aip182.aisites.com;uid=aip182aii_aip;pwd=aiphportal;database=aip182aii_portal" cnn1.Open set rstQuery = CreateObject("ADODB.Recordset") strRstQuery = "SELECT * from clubactivities WHERE pend<2 and clubeventdayofweek = 'Saturday'" set rstQuery = cnn1.Execute(strRstQuery) If Not (rstQuery.BOF AND rstQuery.EOF) Then Do Until rstQuery.EOF clubid = rstQuery.Fields("clubid") clubeventid = rstQuery.Fields("clubeventid") clubname = rstQuery.Fields("clubname") clubeventname = rstQuery.Fields("clubeventname") clubeventdate = rstQuery.Fields("clubeventdate") clubeventtime = rstQuery.Fields("clubeventtime") clubeventlocation = rstQuery.Fields("clubeventlocation") clubeventdayofweek = rstQuery.Fields("clubeventdayofweek") clubeventshortdescription = rstQuery.Fields("clubeventshortdescription") clubeventdescription = rstQuery.Fields("clubeventdescription") clubeventurl = rstQuery.Fields("clubeventurl") clubeventurlname = rstQuery.Fields("clubeventurlname") clubeventemail = rstQuery.Fields("clubeventemail") clubeventemailname = rstQuery.Fields("clubeventemailname") clubeventphoto = rstQuery.Fields("clubeventphoto") pend = rstQuery.Fields("pend") %> <% rstQuery.MoveNext Loop Else Response.Write(" ") End If cnn1.close %> <% Set cnn1 = CreateObject("ADODB.Connection") cnn1.ConnectionString = "driver={MySQL};server=data.aip182.aisites.com;uid=aip182aii_aip;pwd=aiphportal;database=aip182aii_portal" cnn1.Open set rstQuery = CreateObject("ADODB.Recordset") strRstQuery = "SELECT * from clubactivities WHERE pend<2 and clubeventdayofweek = 'Sunday'" set rstQuery = cnn1.Execute(strRstQuery) If Not (rstQuery.BOF AND rstQuery.EOF) Then Do Until rstQuery.EOF clubid = rstQuery.Fields("clubid") clubeventid = rstQuery.Fields("clubeventid") clubname = rstQuery.Fields("clubname") clubeventname = rstQuery.Fields("clubeventname") clubeventdate = rstQuery.Fields("clubeventdate") clubeventtime = rstQuery.Fields("clubeventtime") clubeventlocation = rstQuery.Fields("clubeventlocation") clubeventdayofweek = rstQuery.Fields("clubeventdayofweek") clubeventshortdescription = rstQuery.Fields("clubeventshortdescription") clubeventdescription = rstQuery.Fields("clubeventdescription") clubeventurl = rstQuery.Fields("clubeventurl") clubeventurlname = rstQuery.Fields("clubeventurlname") clubeventemail = rstQuery.Fields("clubeventemail") clubeventemailname = rstQuery.Fields("clubeventemailname") clubeventphoto = rstQuery.Fields("clubeventphoto") pend = rstQuery.Fields("pend") %> <% rstQuery.MoveNext Loop Else Response.Write(" ") End If cnn1.close %> <% Set cnn1 = CreateObject("ADODB.Connection") cnn1.ConnectionString = "driver={MySQL};server=data.aip182.aisites.com;uid=aip182aii_aip;pwd=aiphportal;database=aip182aii_portal" cnn1.Open set rstQuery = CreateObject("ADODB.Recordset") strRstQuery = "SELECT * from clubactivities WHERE pend=2 ORDER BY clubeventid ASC" set rstQuery = cnn1.Execute(strRstQuery) If Not (rstQuery.BOF AND rstQuery.EOF) Then Do Until rstQuery.EOF clubid = rstQuery.Fields("clubid") clubeventid = rstQuery.Fields("clubeventid") clubname = rstQuery.Fields("clubname") clubeventname = rstQuery.Fields("clubeventname") clubeventdate = rstQuery.Fields("clubeventdate") clubeventtime = rstQuery.Fields("clubeventtime") clubeventlocation = rstQuery.Fields("clubeventlocation") clubeventdayofweek = rstQuery.Fields("clubeventdayofweek") clubeventshortdescription = rstQuery.Fields("clubeventshortdescription") clubeventdescription = rstQuery.Fields("clubeventdescription") clubeventurl = rstQuery.Fields("clubeventurl") clubeventurlname = rstQuery.Fields("clubeventurlname") clubeventemail = rstQuery.Fields("clubeventemail") clubeventemailname = rstQuery.Fields("clubeventemailname") clubeventphoto = rstQuery.Fields("clubeventphoto") pend = rstQuery.Fields("pend") %> <% rstQuery.MoveNext Loop Else Response.Write(" ") End If cnn1.close %>
Upcoming Events


Click on Event Name for More Information about Each Event
This Week's Events

Monday
<%= clubname %> - <%= clubeventname %>
<%= clubeventtime %>, <%= clubeventlocation %>
<%= clubeventshortdescription %>
The webmaster has not been informed of any upcoming activities for today.

Tuesday
<%= clubname %> - <%= clubeventname %>
<%= clubeventtime %>, <%= clubeventlocation %>
<%= clubeventshortdescription %>
The webmaster has not been informed of any upcoming activities for today.


Wednesday
<%= clubname %> - <%= clubeventname %>
<%= clubeventtime %>, <%= clubeventlocation %>
<%= clubeventshortdescription %>
The webmaster has not been informed of any upcoming activities for today.

Thursday
<%= clubname %> - <%= clubeventname %>
<%= clubeventtime %>, <%= clubeventlocation %>
<%= clubeventshortdescription %>
The webmaster has not been informed of any upcoming activities for today.

Friday
<%= clubname %> - <%= clubeventname %>
<%= clubeventtime %>, <%= clubeventlocation %>
<%= clubeventshortdescription %>
The webmaster has not been informed of any upcoming activities for today.

Saturday
<%= clubname %> - <%= clubeventname %>
<%= clubeventtime %>, <%= clubeventlocation %>
<%= clubeventshortdescription %>
The webmaster has not been informed of any upcoming activities for today.

Sunday
<%= clubname %> - <%= clubeventname %>
<%= clubeventtime %>, <%= clubeventlocation %>
<%= clubeventshortdescription %>
The webmaster has not been informed of any upcoming activities for today.

NEXT WEEK and Beyond:
<%= clubeventdayofweek %>, <%= clubeventdate %>
<%= clubname %> - <%= clubeventname %>
<%= clubeventtime %>, <%= clubeventlocation %>
<%= clubeventshortdescription %>
The webmaster has not been informed of any upcoming activities for NEXT WEEK and beyond.