<% function MonthlyList(strMonth,strYear,strBorderSize,strTableWidth,strMonthBGColor,strRowBGColor,strCols,strRows) 'strTempDay = Day(strTempDate) 'strTempMonth = Month(strTempDate) 'strTempYear = Year(strTempDate) strMonthName = MonthName(strMonth) 'set month name variable 'Response.Write tempmonthname if strMonth = 12 then strTempMonth = 0 strTempYear = strYear + 1 else strTempMonth = strMonth strTempYear = strYear end if %><% SQLstr = "SELECT * FROM Archives WHERE Date >= #" & strMonth & "/1/" & strYear & "# AND Date < #" & (strTempMonth + 1) & "/1/" & strTempYear & "# ORDER BY IssueNo" 'Response.Write SQLstr & "
" objRS.Open SQLstr,objConn,1 if not objRS.EOF then arrMonthlyIssues = objRS.GetRows() 'create array of issues for specified month and year %> <% strColCount = 0 'set column variable for incrementing strRowCount = 1 'set row variable for incrementing strColor1 = "" 'set background color 1 variable for alternation strColor2 = strRowBGColor 'set background color 2 variable for alternation strBGColor = strColor1 'set background color variable for output for i = 0 to ubound(arrMonthlyIssues,2) 'begin loop to write out table strColCount = strColCount + 1 if strColCount > strCols then 'check to see if column variable is greater than users specified number of columns %><% 'if so, close out row strColCount = 1 'reset column variable strRowCount = strRowCount + 1 if strRowCount > strRows and strRows > 0 then 'check to see if row variable is greater than users specified number of rows exit for 'if so, exit loop and close table end if if strBGColor = strColor1 then 'check for current background color and change to alternate strBGColor = strColor2 else strBGColor = strColor1 end if %><% end if %> <% if i = ubound(arrMonthlyIssues,2) and strcolcount < strcols then 'check to see if on last loop for j = (strColCount + 1) to strCols 'if so, write out remaining columns in row then exit %><% next end if next %>

1 then%>colspan="<%=strCols%>"<%end if%> align="center" bgcolor="<%=strMonthBGColor%>"><%=strMonthName%>
Volume <%=arrMonthlyIssues(1,i)%>: Issue <%=arrMonthlyIssues(2,i)%>

<% end if objRS.Close objConn.Close set objConn = nothing set objRS = nothing end function %>