Kan ikke sætte selected value

Hej jeg vil gerne kunne sætte den selected value, på en dropdownbox med nedenstående script. men den fejler på denne linie oOption.Selected value=<%=lngListTopicID%>

<SCRIPT  LANGUAGE=vbscript>
<!--
<%if blnSearching then%>
  dim oOption
  dim I
   
  for I = 0 to  document.all.cbotopic.length
  document.all.cbotopic.remove(0)
  next

  set oOption = document.createElement(\"OPTION\")
  oOption.text=\"(Alle emner)\"
  oOption.value=0
  document.all.cboTopic.add(oOption)
       
<%
  objPractice.MakeCategoryList
%>
  select case document.all.cboCategory.value
    case 0
<%
    while objPractice.GetNextCategory(lngListCategoryID, strListCategory)
%>
    case <%=lngListCategoryID%>
<%
    objPractice.MakeTopicListByCategory lngListCategoryID
      while objpractice.GetNextTopic(lngListTopicID, strListTopic)
               
      if clng(lngListTopicID) = clng(lngTopicID) then
%>      set oOption = document.createElement(\"OPTION\")
        msgbox \"hej\"
        oOption.text=\"<%=strListTopic%>\"
        oOption.Selected value=<%=lngListTopicID%>
        document.all.cboTopic.add(oOption)
<%    else%>
        msgbox <%=lngTopicID%><%=lngListTopicID%>                     
        set oOption = document.createElement(\"OPTION\")
        oOption.text=\"<%=strListTopic%>\"
        oOption.value=<%=lngListTopicID%>
        document.all.cboTopic.add(oOption)
<%    end if
      wend
%>
<%
    wend
%>
    end select
<%end if%>
-->
</script>