<% nMonth = request("month") if len(nMonth) < 1 then nMonth = 0 end if nYear = replace(request("year"), "#", "") if len(nYear) < 1 then nYear = 0 else if len(nYear) > 4 then nYear = left(nYear, 4) end if end if if cint(nMonth) = 0 and clng(nYear) = 0 then dtNow = now else dtNow = CheckLeadingZero(cint(nMonth)) & "/1/" & nYear end if response.write monthname(month(dtNow)) & " " & year(dtNow) %> Newsletter

<% dim dtNow dim objConn dim objRs Set objConn = Server.CreateObject("ADODB.Connection") Set objRs = Server.CreateObject("ADODB.Recordset") objConn.open APPLICATION("CONNECTIONSTRING") sSQL = "select eventdate, URL, title, weblink.weblinkid, durationhours, durationminutes, id, description from weblink, weblink_pgroup " sSQL = sSQL & "where weblink.weblinkid=weblink_pgroup.weblinkid and " sSQL = sSQL & "weblink_pgroup.pgroupid=" & application("PGROUPID") sSQL = sSQL & " and eventDate >= '" & checkleadingzero(month(dtNow)) & "/" & CheckLeadingZero(day(dtNow)) & "/" & year(dtNow) & " 00:00:00' " sSQL = sSQL & " and eventDate <= '" & checkleadingzero(month(dateadd("m", 2, dtNow))) & "/" & checkleadingzero(day(dateadd("m", 2, dtNow))) & "/" & year(dateadd("m", 2, dtNow)) & " 23:59:59'" sSQL = sSQL & " order by eventdate asc" objRs.Open sSQL,objConn if objRs.EOF = false then %>

<% do while objRs.EOF = false sTitle = objRs.Fields.item("title").value sURL = objRs.Fields.item("URL").value dtEvent = objRs.Fields.item("eventdate").value lEventId = objRs.Fields.item("id").value iDurationHours = objRs.Fields("durationhours").Value if isnull(iDurationHours) then iDurationHours = 0 end if if cint(iDurationHours) = 1 then sDuration = "01 Hr  " & CheckLeadingZero(objRs.Fields("durationminutes").Value) & " Min" else sDuration = CheckLeadingZero(iDurationHours) & " Hrs " & CheckLeadingZero(objRs.Fields("durationminutes").Value) & " Min" end if sDescription = objRs.Fields.item("description") ' Response.Write "" ' if len(sTitle) < 1 then ' Response.Write dtEvent 'else ' Response.Write sTitle 'end if 'Response.Write "
" %> <% objRs.MoveNext loop %>

<%Response.write CheckLeadingZero(Month(dtEvent)) & "/" & CheckLeadingZero(day(dtEvent)) & "/" & Year(dtEvent) nHour = cint(hour(dtEvent)) nMinutes = cint(minute(dtEvent)) if cint(nHour) > 12 then nHour = cint(nHour) - 12 sAMPM = " PM" else if cint(nHour) = 12 then sAMPM = " PM" else sAMPM = " AM" end if end if %>		<% if len(sURL) > 0 then Response.write "" end if Response.Write sTitle if len(sURL) > 0 then Response.write "" end if %>
<% Response.Write nHour & ":" & CheckLeadingZero(nMinutes) & sAMPM & " " %>		<%=replace(sDescription, vbcrlf, " ")%>

<% else Response.Write "No more events scheduled for this month

" & vbcrlf end if objRs.Close objConn.Close Set objConn = Nothing %>