Récupérer le ID d'unCombobox

Bonjour
Voila j'ai un combobox ,qui est alimenté depuis une Table, sur le combo j'affiche la désignation du item mais ce je veux récupérer c'est  le id  pour pouvoir l'utiliser dans une requête

Voici le combo :

<select size="1" name="CODE_P">
<option value="TOUT">TOUT</option>
<%
dim objrs
 set objrs=server.createobject("adodb.recordset")
 objrs.open "sub_task",objconn

 do while not objrs.eof
 response.write "<option value'" &objrs("ID_OR_TYPE")& "'>"
 response.write objrs("TASK_NAME")
 objrs.movenext
 loop
 objrs.close
 set objrs=nothing
  objrs.close
 set objrs=nothing
 %>
</select>