Почему не работает:

<SCRIPT LANGUAGE=VBScript>
function chField()
<%
i = "frm.txtKontLico.value"
set RSDolz=Session("conn").execute("SELECT КонтЛицо.Должность, КонтЛицо.Код FROM КонтЛицо WHERE КонтЛицо.Код=" & i)
%>
End function
</SCRIPT>


<SELECT name="txtKontLico" style="width:200px" onChange=chField()>
<option selected value=10>10</option>
<option value=10>10</option>
</SELECT>

не может соединить текст запроса и параметр как будто типы разные

i = 10 но я не могу соединить запрос с этой десяткой