How i add it ?

[adidoron]

Dear Friend,

<%
dim Conn
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "dsn=hire"

dim rs,sql
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from hirquery"
rs.Open sql,conn

%>
<LABEL>Name:</LABEL>


<tr align="left"><td><SELECT id=select1 name=kod style="HEIGHT: 22px; WIDTH: 70px">

<%

while not rs.EOF

Response.Write "<OPTION>" & rs("kod") & "</OPTION>"
Response.Write "<input type=text>" & rs("name")
rs.MoveNext


wend

%>

</td></tr></select>

<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>


All I want is that, when i choose in the combo box a number (kod), i will get it the textbox the name ?

i need the possibility to move next, privus,add new record and delete.

How i suppose to do it ?

Best Regards To All
=============
Adi Doron