У меня вопрос не совсем по теме форума..
Мне нужно выбрать значение в списке в зависимости от переданого параметра, но чего то я не догоню..
вот мой код,
выдает ошибку Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'write'
/cgi-bin/moscow_stock.asp, line 27
Как правильно установить признак selected в списке?

set cn=createobject("ADODB.Connection")
cn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Password=ххх;User ID=ххх;Data Source=ххх.mdb;Persist Security Info=True;Jet OLEDB:System database=ххх.mdw;Jet OLEDB:Database Password=ххх"
cn.Open
set Rs=createobject("ADODB.Recordset")
Rs.ActiveConnection =cn
Rs.Open "select * from TypeClassificator where Code=0"

%>
<P><SELECT id=TypeID style="WIDTH: 251px" name=TypeID>
<%while not Rs.EOF%>
<OPTION <%if Rs.Fields(1).Value=TypeId then write("selected")%>

VALUE <%=Rs.Fields(0).Value%><%=Rs.Fields(1).Value %></OPTION>
<%
Rs.MoveNext
wend%>

Спасибо! Заработало!