sql = "SELECT CODE,DESCRIPTION FROM TEST"
rs.open sql, Conn
response.write "<select name=Select1>" &_
"<option value=XXX>--choose--"
while not rs.eof
response.write "<option value=" & rs(0) & ">" & rs(1)
rs.movenext
wend
response.Write "</select>"
br
Gerard