Exception occured i loop! Varför?

Vad kan vara fel? Jag får "Exeption occured"... vad betyder det?
Följande skall loopa om datumet är, samt så länge datumet är... det rätta!

  		  	
Do while CInt(Right(RS("Datum"),2)) = CInt(iCounter)	  	                Response.Write("Pass:" &VbCrLf & dagpass)
        		Response.Write VbCrLf
        		Response.Write Rs("Pass")
	        	Response.Write VbCrLf
    	    	Response.Write Int(rs("tid")/60) & ":" & Right("0" &  (rs("tid") MOD 60), 2) &VbCrLf & "h."
        		Response.Write VbCrLf 
        		Response.Write Rs("Str") &VbCrLf & "km." & VbCrLf
        		Response.Write "<br>"
        		Response.Write Rs("Kommentar")
        		dagpass = dagpass + 1
		RS.MoveNext
Loop
		    	%>

Se till så du inte får med div. bindesträck och slashar.

CInt(Day(CDate(RS("Datum"))))

om datumet i databasen är av giltigt datumformat.

MVH

Du måste alltid testa för eof i första hand

Do while not rs.eof
if CInt(Day(CDate(RS("Datum")))) <> CInt(iCounter) then exit do

Så där ja!

Do while not Rs.EOF
If CInt(Right(RS("Datum"),2)) <> CInt(iCounter) Then Exit Do	
              If CInt(Right(RS("Datum"),2)) = CInt(iCounter) Then
	                Response.Write("Pass:" &VbCrLf & dagpass)
        		Response.Write VbCrLf
        		Response.Write Rs("Pass")
	        	Response.Write VbCrLf
    	    	Response.Write Int(rs("tid")/60) & ":" & Right("0" &  (rs("tid") MOD 60), 2) &VbCrLf & "h."
        		Response.Write VbCrLf 
        		Response.Write Rs("Str") &VbCrLf & "km." & VbCrLf
        		Response.Write "<br>"
        		Response.Write Rs("Kommentar")
        		dagpass = dagpass + 1
		RS.MoveNext
	End If
Loop

Tack!