If statement breaks loop

The code below shows two if statements inside of a loop. The first if statement is commented out because when it runs I get the following error:

Microsoft VBScript compilation error '800a040e'
'loop' without 'do'
/portal/routings/routings2.asp, line 108
Loop
^

The second if statement doesn't cause me any problems at all.

<%Do until rs1.EOF %>
	<%'if rs1("expr3") = "Pick" then 
		  'rdate = FormatDateTime("1/1/2100", 0 )
		  'else if rs1("expr3") = "***URGENT***" then 
		  'rdate = FormatDateTime("1/2/1900", 0 )
		  'else if rs1("expr3") = "No Date" then 
		  'rdate = FormatDateTime("1/1/1900", 0 )
		  'else rdate = FormatDateTime(rs1("expr3"), 0 )
		  'end if%>
		
		<%if cdate(rdate) < Date() then 
		cssName = "passed" 
		elseif cdate(rdate) = Date() then
		cssName = "current" 
		else cssName = "future"		
		end if 
		response.write cssName 'Just a test to see if it works
		%>
        
    <tr class="cssName">
      <td><%Response.Write rs1("expr2")%></td>
      <td><a href="/portal/invoicing/jobcostdetail.asp?job=<%Response.Write rs1("job")%>" target="_blank">
        <%Response.Write rs1("job")%>
        </a></td>
      <td><%Response.Write rs1("customer")%></td>
      <td><%Response.Write rs1("Part_Number")%></td>
      <td><%Response.Write rs1("Description")%></td>
      <td><%Response.Write rs1("Rev")%></td>
      <td><%Response.Write rs1("Promised_Quantity")%>/<%Response.Write rs1("Order_Unit")%></td>
      <td><%if rs1("EXPR1") = "S" then Response.Write "Started" else Response.Write "Open"%></td>
      <td><%Response.Write rs1("est_total_hrs")%></td>
      <td><%Response.Write rs1("Comment")%></td>
      <td><%Response.Write FormatDateTime(rs1("expr3"), 0 )%></td>
    </tr>
<%rs1.MoveNext()
Loop%>

Select all Open in new window

As a bonus for me how can I get the value of cssName created in the second if statement and put it in a <tr> class on line 20 of the code?

Thanks for any help in advance.