")
//Nested loop to print the table columns
for iColumn=0 to 6
//Begin the table cell
if iRow = 0 then
sPrint = ""
sPrint = sPrint & ""
Response.Write(sPrint)
elseif iRow = 1 then
sPrint = " | "
sPrint = sPrint + ""
Response.Write(sPrint)
end if
//Prepare the data to print in the cell
if iRow = 0 then
sPrint = dayarray(iColumn)
elseif iRow = 1 then
iOffset = iColumn-iToday+1
dateColumn = DateAdd("d", iOffset, dateNow)
sPrint = Month(dateColumn) & "/"
sPrint = sPrint & Day(dateColumn) & "/"
sPrint = sPrint & Year(dateColumn)
end if
//If this is today, bold the data
if iColumn = (iToday-1) then
sPrint = "" & sPrint & ""
end if
//Write the data into the cell
Response.Write(sPrint)
//Close the table cell
Response.Write(" | ")
next
Response.Write("
")
next
Response.Write("