Subscript out of range

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Subscript out of range

Logged in as: Guest

arrSession:exec spGetSession 2,2,47168

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Subscript out of range
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1] 2 next > >>

Message

<< Older Topic Newer Topic >>

Subscript out of range - 5/17/2007 7:53:27 AM

webren

Posts: 16
Score: 0
Joined: 5/17/2007
From: College Park, MD
Status: offline

Hello,
Every time I try to view the next data in an array of database query information, I get this runtime error. I do check to make sure that the array is currently not at the end to make sure there is no out of bounds exception. The weird thing is, with certain information, it will work fine without getting the error, but with others, the error will display. I check for the next element in the array by doing something similar to theArray(3, rowCounter + 1) as the +1 is supposed to represent the next element.

Any guidance would be appreciated. Thanks.

Post #: 1

RE: Subscript out of range - 5/19/2007 2:46:30 AM

dm_4ever

Posts: 2366
Score: 38
Joined: 6/29/2006
From: Orange County, California
Status: offline

Is the information you're getting from your database returned as a recordset or an array?

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to webren)

Post #: 2

RE: Subscript out of range - 5/22/2007 8:38:02 AM

webren

Posts: 16
Score: 0
Joined: 5/17/2007
From: College Park, MD
Status: offline

Array

(in reply to dm_4ever)

Post #: 3

RE: Subscript out of range - 5/22/2007 12:03:47 PM

dm_4ever

Posts: 2366
Score: 38
Joined: 6/29/2006
From: Orange County, California
Status: offline

You might want to post what you're currently using.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to webren)

Post #: 4

RE: Subscript out of range - 5/24/2007 11:21:40 AM

webren

Posts: 16
Score: 0
Joined: 5/17/2007
From: College Park, MD
Status: offline

Currently using? I am using Microsoft's IIS server and the SQL language.

Is there anyway to check the next element in the array without comparing arrayElement to arrayElement + 1?

(in reply to dm_4ever)

Post #: 5

RE: Subscript out of range - 5/25/2007 1:10:17 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

By "using", I think we were looking for you to post the code that you are using. At least that is what would help me.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to webren)

Post #: 6

RE: Subscript out of range - 5/25/2007 5:22:41 AM

webren

Posts: 16
Score: 0
Joined: 5/17/2007
From: College Park, MD
Status: offline

An example of what I am trying to do is...

...with theArray being a two-dimensional array and rowCounter being the rows in the database. I clearly check to make sure that rowCounter is not at the end of the array, but even so, I get a runtime error on the line where I try to do theArray(3, rowCounter + 1). What is weird is I will get this runtime error for some pages, and I won't for other pages.

I hope my explanation wasn't confusing, and I appreciate any guidance to solving this problem.

Thank you.

(in reply to ebgreen)

Post #: 7

RE: Subscript out of range - 5/25/2007 6:47:42 AM

Skie

Posts: 58
Score: 0
Joined: 3/2/2006
Status: offline

I think you just need to change the minus to a plus.

(in reply to webren)

Post #: 8

RE: Subscript out of range - 5/25/2007 7:22:39 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

There is a good chance that is the fix. It depends on how the counter is initialized and incremented. That is why we need to see the code and we still haven't seen that part of the code.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to Skie)

Post #: 9

RE: Subscript out of range - 5/29/2007 8:19:04 AM

webren

Posts: 16
Score: 0
Joined: 5/17/2007
From: College Park, MD
Status: offline

Well, here's a basic example of what I am trying to do. This foreach loop gives me the same Subscript out of range error. The array is titled arr_rGet_EventInfo and is a two dimensional array, with the first parameter being the column and the second parameter being the row.

I am not quite sure what I am doing wrong to get the runtime error. To my understanding, a more appropriate loop for a 2-d array would be:

...but I do not care about any other column except the 3rd column. Can someone please point me in the right direction? Thank you.

(in reply to ebgreen)

Post #: 10

RE: Subscript out of range - 5/30/2007 12:34:44 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

I don't know how more plain I can be. We need to see your actual code. Examples just won't cut it. We need to see how you actually initialize and increment counters.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to webren)

Post #: 11

RE: Subscript out of range - 5/30/2007 5:09:37 AM

webren

Posts: 16
Score: 0
Joined: 5/17/2007
From: College Park, MD
Status: offline

I apologize for being so vague. I didn't want to post the actual code because of how long it is. Here is the code:

For cols = 1 To 7
       
                       'The database's first row is index 1, but when the database information is obtained into the 
                       'array, the first data element is index 0 because of VbScript syntax.  To avoid an out of 
                       'range error, it is necessary to check for rowCounter - 1 = size of the array instead of just
                       'rowCounter = size of the array.
                       'Once the number of rows is equal to the size of the array, the calender is finished being
                       'created/processed and exiting the for loop is necessary so no more rows/columns are created.
                       If rowCounter - 1 = UBound(theArray, 2) Then
                           finishedWithCalender = True
                           Exit For
                       End If
                       Response.Write("<td")
                       'The if statement checks to see which column the output data of the event should be displayed
                       'and makes sure that the month hasn't changed.  If the month has changed, a new calender
                       'will be created and the process will start from that respective day of the new calender.
                           If (cols = Weekday(theArray(3, rowCounter))) And (getMonth(theArray(3, rowCounter)) =                                  currentMonth) Then
                               'Start output data
                               If theArray(3, rowCounter + 1) <> UBound(theArray, 2) Then
                                   If Weekday(theArray(3, rowCounter)) = 1 Or Weekday(theArray(3, rowCounter)) = 7 Then
                                       'Displaying day of month
                                       Response.Write(" height = 160 bgcolor =""#faefcf"" align = center>")
                                       Response.Write("<table height = 28 bgcolor=""#edf2f5"" width = ""100%"">")
                                       Response.Write("<tr><td class = ""day"" align = center")
                                       
                                       Response.Write("><h2><font color = ""#FF0000"">" & getDay(theArray(3, rowCounter)))                        
                                       Response.Write("</font></h2></td></tr></table>")
                                       Response.Write("<font size = ""2"">" & theArray(2, rowCounter))
                                       'Displaying Time of event
                                       Response.Write("<br /><br />" & theArray(4, rowCounter))
                                       'Displaying Venue Name of event
                                       Response.Write("<br />" & theArray(9, rowCounter))
                                       'Displaying "Buy" link
                                       Response.Write("<br /><a href=http://www.greatseats.com/liveticketdetail.asp?event_id=")
                                       Response.Write((theArray(0, rowCounter)) & ">Buy Tickets</a></font>")
                                       'Go onto the next row in the database
                                       rowCounter = rowCounter + 1
                                       numOfEvents = numOfEvents + 1
                                       offCounter = rowCounter - 1    
                                       currentDay = currentDay + 1
                                       previousEvent = getDay(theArray(3, offCounter))
                                       If rowCounter - 1 <> UBound(theArray, 2) Then
                                           currentEvent = getDay(theArray(3, rowCounter))
                                       End If
                                   Else
                                       Response.Write(" height = 160 bgcolor =""#FFFFFF"" align = center>")
                                       Response.Write("<table height = 28 bgcolor=""#edf2f5"" width = ""100%"">")
                                       Response.Write("<tr><td class = ""day"" align = center>")
                                       
                                       Response.Write("<h2><font color = ""#FF0000"">" & getDay(theArray(3, rowCounter)))                        
                                       Response.Write("</font></h2></td></tr></table>")
                                       Response.Write("<font size = ""2"">" & theArray(2, rowCounter) & "</font>")
                                       'Displaying Time of event
                                       Response.Write("<br /><table class = ""data""><tr><td><font size = ""2"">" & theArray(4, rowCounter))
                                       'Displaying Venue Name of event
                                       Response.Write("<br />" & theArray(9, rowCounter))
                                       'Displaying "Buy" link
                                       Response.Write("<br /><a href=http://www.greatseats.com/liveticketdetail.asp?event_id=")
                                       Response.Write((theArray(0, rowCounter)) & ">Buy Tickets</a></font></td></tr></table>")
                                       'Go onto the next row in the database
                                       rowCounter = rowCounter + 1
                                       numOfEvents = numOfEvents + 1
                                       offCounter = rowCounter - 1    
                                       currentDay = currentDay + 1
                                       previousEvent = getDay(theArray(3, offCounter))
                                       If rowCounter - 1 <> UBound(theArray, 2) Then
                                           currentEvent = getDay(theArray(3, rowCounter))
                                       End If
                                   End If
                               Else
                                   Exit For
                               End If
                               difference = currentEvent - previousEvent
                           Elseif currentDay > getDaysInMonth(eventDate) Or currentDay <= 0 Then
                               Response.Write(" height = 160 bgcolor = ""#DEDEDE"">")
                               Response.Write("<table height = 28 bgcolor=""#edf2f5"" width = ""100%"">")
                               Response.Write("<tr><td class = ""day""")
                               Response.Write(">&nbsp;")                        
                               Response.Write("</td></tr></table>&nbsp;")
                               currentDay = currentDay + 1
                               difference = 0
                           Elseif Weekday(currentMonth & "/" & currentDay & "/" & Year(eventDate)) = 1 Or _
                           Weekday(currentMonth & "/" & currentDay & "/" & Year(eventDate)) = 7 Then
                               Response.Write(" height = 160 bgcolor =""#faefcf"">")
                               Response.Write("<table height = 28 bgcolor=""#edf2f5"" width = ""100%"">")
                               Response.Write("<tr><td class = ""day"" align = center")
                               Response.Write("><h2><font color = ""#FF0000"">" & currentDay)                        
                               Response.Write("</font></h2></td></tr></table>&nbsp;")
                               currentDay = currentDay + 1
                               difference = 0
                           Else
                               Response.Write(" height = 160 bgcolor =""#FFFFFF"">")
                               Response.Write("<table height = 28 bgcolor=""#edf2f5"" width = ""100%"">")
                               Response.Write("<tr><td class = ""day"" align = center")
                               Response.Write("><h2><font color = ""#FF0000"">" & currentDay)                        
                               Response.Write("</font></h2></td></tr></table>&nbsp;")
                               currentDay = currentDay + 1
                               difference = 0
                           End If
                           'End table cell
                           Response.Write("</td>")
                       Next

Thanks for your time and help.

(in reply to ebgreen)

Post #: 12

RE: Subscript out of range - 5/30/2007 5:33:24 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

Still not all of the code, but enough that we can start to unravel the issue.

Where and how is rowCounter initialized?
What does theArray look like? Could you give an example?

This line is not valid syntax
If (cols = Weekday(theArray(3, rowCounter))) And (getMonth(theArray(3, rowCounter)) =

You refer many times to a database. Is this data held in a database? If so, then there are probably better ways to access the data than multi-dimensional arrays.

In the code that you posted, difference is never actaully used for anything. What is it's purpose?

Which specific line gives you an error and what is the exact text of the error?

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to webren)

Post #: 13

RE: Subscript out of range - 5/30/2007 6:55:18 AM

webren

Posts: 16
Score: 0
Joined: 5/17/2007
From: College Park, MD
Status: offline

Warning, it's a lot of code...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Response.Buffer = False%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Calendar Testing</title>
<link href="/styles_gs.css" rel="stylesheet" type="text/css" />
<style type="text/css">
table {
border-collapse: collapse;
table-layout: fixed;
}
/*table.data{
position:absolute;
bottom:0px;
}*/
td {
vertical-align: top;
border-top: 1px dashed #B8C8D5;
border-bottom: 1px dashed #B8C8D5;
border-left: 1px solid #edf2f5;
border-right: 1px solid #edf2f5;
}
th {
width: 65px;
border-top: 1px dashed #B8C8D5;
}
td.month {
border: none;
}
td.day {
border-top: none;
border-bottom: none;
}
div.day {
color: #FF0000; 
background: #EDF2F5;
font-size:22px;
}
div.data{
font-size:12px;

}
</style>

</head>
<body>

<%
  
      arr_rGet_EventInfo = query_to_array_bitshop("SELECT DISTINCT EVENT_ID, VENUE_ID, EVENT_NAME, EVENT_DATE, EVENT_TIME, ACTIVE, VENUE_CITY, VENUE_STATE, LOC_ID, LOC_NAME, FORMER_NAME, CAT_ID, TOTALTICKETS, LOWTICKET, HIGHTICKET FROM EVENT_VENUE_VIEW_2 WHERE EVENT_NAME LIKE '%incubus%' AND EVENT_DATE <> '8/4/2007' ORDER BY EVENT_DATE")
   
  %>
   
  <% 
'==================================================================================================
'The "getMonthHeader" function will parse a date and obtain it's month value from the date which 
'will output the correct month heading for the calender.
'==================================================================================================
    Function getMonthHeader(actualDate)
        Dim theMonth
        theMonth = Month(actualDate)
        Select Case theMonth
            Case 1
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>January " & Year(actualDate) & "</h2></td></tr>")
          Case 2
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>February " & Year(actualDate) & "</h2></td></tr>")
          Case 3
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>March " & Year(actualDate) & "</h2></td></tr>")
          Case 4
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>April " & Year(actualDate) & "</h2></td></tr>")
          Case 5
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>May "  & Year(actualDate) & "</h2></td></tr>")
          Case 6
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>June " & Year(actualDate) & "</h2></td></tr>")
          Case 7
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>July " & Year(actualDate) & "</h2></td></tr>")
          Case 8
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>August " & Year(actualDate) & "</h2></td></tr>")
          Case 9
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>September " & Year(actualDate) & "</h2></td></tr>")
          Case 10
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>October " & Year(actualDate) & "</h2></td></tr>")
          Case 11
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>November " & Year(actualDate) & "</h2></td></tr>")
          Case 12
              getMonthHeader = Response.Write("<tr><td class = ""month""><h2>December " & Year(actualDate) & "</h2></td></tr>")
          Case Else
              getMonthHeader = Response.Write("Not a valid month")
        End Select
    End Function
    
'==================================================================================================
'The "getMonth" function will parse a date and return the numercial month value for the specified
'date.
'==================================================================================================
    Function getMonth(actualDate)
        Dim theMonth
      getMonth = Month(actualDate)
    End Function
    
'==================================================================================================
'The "getDay" function will parse a date and return the numercial day value for the specified
'date.
'==================================================================================================  
    Function getDay(actualDate)
        Dim theDay
      getDay = Day(actualDate)
    End Function
    
'==================================================================================================
'The "getDaysInMonth" function will parse a date and return the amount of days in the month of
'the specified date.
'==================================================================================================
    Function getDaysInMonth(actualDate)
       Dim theMonth, theYear, numOfDays
       theMonth = Month(actualDate)
      theYear = Year(actualDate)
      Select Case theMonth
          Case 1,3,5,7,8,10,12
              numOfDays = 31
          Case 4,6,9,11
              numOfDays = 30
             Case 2
              'Handle leap years
               If theYear Mod 4 = 0 And theYear Mod 100 <> 0 Or theYear Mod 400 = 0 Then
                   numOfDays = 29
              Else
                    numOfDays = 28
              End If    
      End Select    
      getDaysInMonth = numOfDays
    End Function
  
'==================================================================================================
'The "getgetNumOfRows" function will calculate how many rows needed for the calender.  The calender
'will not display all of the rows (weeks).  Instead, it will display the week of the current event 
'to the end of the month.  Ex. April 18th, 2007 being the first event - the function will display
'three rows (weeks) of the calender.
'==================================================================================================
    Function getNumOfRows(actualDate)
          Dim theDay, theNumOfDays, finishedWithRows, numOfRows 
          theDay = getDay(actualDate)
          theNumOfDays = getDaysInMonth(actualDate)
          finishedWithRows = False
          numOfRows = 0
          ' Case handeled where first event is on Saturday - add a row to count for that Saturday
          If Weekday(actualDate) = 7 Then
              numOfRows = numOfRows + 1
          End If
          Do Until finishedWithRows = True
              ' If first event is on a Saturday, traverse to the next week.
              If Weekday(actualDate) = 7 Then
                  ' Case handeled where the first day of event is a Saturday and is the last day of month
                  ' Ex. February 28th, 1998
                  If theDay = theNumOfDays Then
                      finishedWithRows = True
                  End If 
                  theDay = theDay + 1
                  actualDate = DateAdd("d",1,actualDate) ' Incrementing the date to be in synch with the day
              End If
              If theDay <= theNumOfDays Then
                  numOfRows = numOfRows + 1
              End If
              ' Traverse through the week until we've reached the end of the month or a Saturday
              Do Until (theDay = theNumOfDays) Or (Weekday(actualDate) = 7)
                  theDay = theDay + 1
                  actualDate = DateAdd("d",1,actualDate) ' Incrementing the date to be in synch with the day
              Loop
              If theDay = theNumOfDays Then
                  finishedWithRows = True
              End If
          Loop
          getNumOfRows = numOfRows
    End Function
    
    Function outputBlankRowData(ByRef greyOutRest, ByRef currentDay, ByRef tester, currentMonth, eventDate, difference)
      Do Until (greyOutRest = 7) Or (tester = difference)
          If currentDay > getDaysInMonth(eventDate) Or currentDay <= 0 Then
              Response.Write("<td height = 160 bgcolor =""#DEDEDE"" align = ""center"">")
              Response.Write("<div class=""day"">" & currentDay & "</div>&nbsp;")
              'Response.Write("<table height = 28 bgcolor = ""#edf2f5"" width=""100%"">")
              'Response.Write("<tr><td class = ""day"" align = center><h2><font color = ""#FF0000"">" & currentDay)
              'Response.Write("</font></h2></td></tr></table>&nbsp;")
              Response.Write("</td>")
          Elseif Weekday(currentMonth & "/" & currentDay & "/" & Year(eventDate)) = 1 Or _
          Weekday(currentMonth & "/" & currentDay & "/" & Year(eventDate)) = 7 Then
              Response.Write("<td height = 160 bgcolor =""#faefcf"" align = ""center"">")
              Response.Write("<div class=""day"">" & currentDay & "</div>&nbsp;")
              'Response.Write("<table height = 28 bgcolor = ""#edf2f5"" width=""100%"">")
              'Response.Write("<tr><td class = ""day"" align = center><h2><font color = ""#FF0000"">" & currentDay)
              'Response.Write("</font></h2></td></tr>")    
              'Response.Write("</table>&nbsp;")
              Response.Write("</td>")
          Else
              Response.Write("<td height = 160 bgcolor =""#ffffff"" align = ""center"">")
              Response.Write("<div class=""day"">" & currentDay & "</div>&nbsp;")
              'Response.Write("<table height = 28 bgcolor = ""#edf2f5"" width=""100%"">")
              'Response.Write("<tr><td class = ""day"" align = center><h2><font color = ""#FF0000"">" & currentDay)
              'Response.Write("</font></h2></td></tr>")
              'Response.Write("</table>&nbsp;")
              Response.Write("</td>")
          End If
          greyOutRest = greyOutRest + 1
          currentDay = currentDay + 1
          tester = tester + 1
      Loop
      If greyOutRest = 7 Then
          Response.Write("</tr><tr>")
      End If
    End Function
      
'==================================================================================================
'The "makeCalender" function will create all of the calenders for the designated months that the 
'events are on.  Each table cell will be represented as a day on the calender which will show vital
'information about the event.  The table cells that do not have an event associated with them (no
'event on that day) will be greyed out.  Each month will be displayed in it's own respective table.
'==================================================================================================

Function makeCalender(theArray)
          Dim eventDate, finishedWithCalender, rowCounter, rows, cols, currentMonth, endOfWeekCase, greyOutRest
          Dim howManyEventsInMonth, counter, helper, numOfEvents, currentEvent, difference, currentDay
          finishedWithCalender = False
          rowCounter = 0
          howManyEventsInMonth = 0
          counter = 0
          helper = 0
          offCounter = 0
  %>
      <div align = "center">
          
  <%
          Do Until finishedWithCalender = True
              numOfEvents = 0
              'First row from the database
              eventDate = theArray(3, rowCounter) 'Column is first parameter, row is second parameter
              'currentMonth is used to make sure that when an event is on the last day of the month, the next
              'following event won't be on the same calender.  Ex. July 31st, 2007 is on a Tuesday, and August 1st,
              '2007 is on a Wednesday.  Keeping track of current month will make sure the August date is on the 
              'Wednesday slot of August.
              currentMonth = getMonth(eventDate)
              currentDay = 0
              Select Case Weekday(eventDate)
                    Case 1
                      currentDay = getDay(eventDate)
                  Case 2
                      currentDay = getDay(eventDate) - 1
                  Case 3
                      currentDay = getDay(eventDate) - 2
                  Case 4
                      currentDay = getDay(eventDate) - 3
                  Case 5
                      currentDay = getDay(eventDate) - 4
                  Case 6
                      currentDay = getDay(eventDate) - 5
                  Case Else
                      currentDay = getDay(eventDate) - 6
              End Select
              'Start table
              Response.Write("<table width=771>")
              Call getMonthHeader(eventDate)
              Response.Write("</table>")
              Response.Write("<table width=771>")
              %>
                  <tr>
                      
                      <th>Sunday</th>
                      <th>Monday</th>
                      <th>Tuesday</th>
                      <th>Wednesday</th>
                         <th>Thursday</th>
                      <th>Friday</th>
                      <th>Saturday</th>
                  </tr>
              <%
              howManyEventsInMonth = 0
              helper = counter
              finished = False
              'This do until loop will make sure that no extra rows are printed out for the calender.
              Do Until finished = True
                  If counter - 1 = UBound(theArray, 2) Then
                      Exit Do
                  End If
                  If currentMonth >= getMonth(theArray(3, counter)) Then
                      counter = counter + 1
                  Else
                      finished = True
                  End If
              Loop
              'howManyEventsInMonth is used because once all of the events for the designated month have been
              'printed out, there's no need to print out any more rows for that month.
              howManyEventsInMonth = counter - helper
              
              For rows = 1 To getNumOfRows(eventDate)
                  If numOfEvents = howManyEventsInMonth Then
                      Exit For
                  End If
                  'Start row
                  Response.Write("<tr>")
                  previousEvent = getDay(theArray(3, offCounter))
                  currentEvent = getDay(theArray(3, rowCounter))
                  
                  difference = currentEvent - previousEvent
                  For cols = 1 To 7
                  
                      ''''''''''''''''''''''''''''''''''''''''''''
                      
                      If difference >= 7  Then
                          tester = 1
                          greyOutRest = Weekday(theArray(3, offCounter))
                          Call outputBlankRowData(greyOutRest, currentDay, tester, currentMonth, eventDate, difference)

Do Until tester = difference
                              greyOutRest = 0
                              Call outputBlankRowData(greyOutRest, currentDay, tester, currentMonth, eventDate, difference)