kan ikke finde min fejl

Den skriver ikke selected ved nogle!!!!!!

    <%
      strk = "Select * from kat"
        Set rr = Conn.Execute(strk)
        Do
        If rr("id") <> strkat Then
        Response.write"<option value='" & rr("id") & "'>" & rr("kat") & "</option>"
        Else
      Response.write"<option selected value='" & rr("id") & "'>" & rr("kat") & "</option>"
        End if
      rr.movenext
        Loop While Not rr.EOF
%>