Problem med SELECT.

Visual InterDev indikerer at der er en fejl til sidst i mit script. Her er min kode:

Response.Write "<SELECT NAME='ExpYear'>"
          Do While CInt(intLoop) < CInt(intLoopWhile)
            If Len(intLoop) = 1 Then
                intValue = "0" + CStr(intLoop)
            Else
                intValue = intLoop
            End If
            Response.Write "<OPTION VALUE='" & intValue & "'"
            If strCCExpYear = intValue Then
                Response.Write " SELECTED"
            End If
            Response.Write ">" & intValue & "</OPTION>"
            intLoop = intLoop + 1
          Loop
          Response.Write "</SELECT>"

Hvad er der galt?