Combo e imput

Preciso de um help:

Tenho uma tabela com os campos TYPE_ID, TYPE_NAME e TYPE_IMAGE

Quero selecionar um item através do combo da coluna TYPE_NAME e trazer o dado da mesma linha na coluna TYPE_IMAGE através de um imput, eu até consegui sem o While, mas o código só trouxe uma informação, com o While, consigo selecionar o combo, mas o Input não muda

<!--#include file="../Connections/conn.asp" -->
<%
set rsDatas = Server.CreateObject("ADODB.Recordset")
rsDatas.ActiveConnection = MM_conn_STRING
rsDatas.Source = "SELECT * FROM TYPES WHERE TYPE_ID ORDER BY TYPE_DATED"
rsDatas.CursorType = 0
rsDatas.CursorLocation = 2
rsDatas.LockType = 3
rsDatas.Open()
rsDatas_numRows = 0
%>

<table class="table">
 <thead>
 <tr>
 <th><a href="<%=tfm_orderbyURL%>TYPE_ID">ID</a></th>
 <th><a href="<%=tfm_orderbyURL%>TYPE_NAME">NOME</a></th>
 </tr>
 </thead>
 <tbody>
 <tr>
 <td>
 <select name="NOME" type="text" class="input-text" size="1">
 <%
 While (NOT rsDatas.EOF)
 %>
 <option value="<%=(rsDatas.Fields.Item("TYPE_ID").Value)%>"><%=(rsDatas.Fields.Item("TYPE_NAME").Value)%></option>
 <%
 rsDatas.MoveNext()
 Wend
 If (rsDatas.CursorType > 0) Then
 rsDatas.MoveFirst
 Else
 rsDatas.Requery
 End If
 %>
 </select>
 </td>
 <td><%=(rsDatas.Fields.Item("TYPE_IMAGE").Value)%></td>
 </tr>
 </tbody>
 </table>
 <%
 rsDatas.Close()
 %>