<select name="kategori1" class="textkutu2" size="1">
<%
set secili = Conn.execute("Select kimlik,adi from sayac_tipi_kat where kimlik="& id &"")
%>
<option value="<%=secili("kimlik")%>" selected><%=secili("adi")%></option>
<%
secili.close:set secili = nothing
Set Kategoriler = Conn.execute("Select kimlik,adi from sayac_tipi_kat order by kimlik asc")
 
      Do while not Kategoriler.eof
      Response.Write "<option value="""&Kategoriler("kimlik")&""">"&Kategoriler("adi")&"</option>"
      kategoriler.movenext
      loop
      Kategoriler.close
      set kategoriler = nothing
      %>
</select>

Bu şekilde where ile hangi kategori olduğunu sorgulayıp <option value="" selected>.... şeklinde eklerseniz çıkar. Yukardaki koddaki where kısmını kendinize göre düzenleyip bi' deneyin.