小问题，帮帮忙解决一下，谢谢

[henryyj]

公告看到了，不敢再给100分了，要是没分了 那岂不是很惨？
我的问题如下：
<input type="text" name="textfield_id" value="<% =rs(0) %>" size="10" >

<textarea name="textfield_question" cols="95" rows="3" value="<% =rs(9) %>"></textarea>
上面一句能显示我要的，下面一句什么都不显示，郁闷 谁可以告诉我如何让textarea 和select框显示数据？

还有4000多分，不够再加

[lsrzm]

<textarea name=CustMemo id=CustMemo cols=35 rows=10><%=usermemo%></textarea>

[zhuyngjie]

<textarea name="textfield_question" cols="95" rows="3" value=""><%=rs(9)%></textarea>

[funboy88]

<input type="text" name="textfield_id" value="<% =rs(0) %>" size="10" >

<textarea name="textfield_question" cols="95" rows="3" ><%=rs(9)%></textarea>

[lsrzm]

<select name = se>
<% do while not rs.eof%>
<option value =<%=rs("name")%>=<%=rs("name")%
<% loop%>
</select>

[zhuyngjie]

'从数据库中提取内容生成下拉菜单
'conn为数据库联接 tabel为表名 style下拉菜单样式
public function OutOption(conn,tabel,style,value)
dim re,sql,selected
set re=server.CreateObject("ADODB.RECORDSET")
sql="SELECT * FROM" & tabel & "ORDER BY value"
re.Open sql,conn
Response.Write ("<select " & style & ">" & vbCrLf)
while re.EOF <> true
if trim(re("value"))=trim(value) then
selected=" selected"
else
selected=""
end if
response.write(vbTab & "<option" & selected & "value=""" & re("value") & """>" & re("text") & "</option>" & vbCrLf)
re.MoveNext
wend
Response.Write("</selected>" & vbCrLf)
set re = nothing
end function

[funboy88]

<select size="1" name="D1" >
<option value="0" <%if rs(0)="0" then response.write "selected"%>>ayg</option>
<option value="1" <%if rs(0)="1" then response.write "selected"%>>>1</option>
<option value="2" <%if rs(0)="2" then response.write "selected"%>>>2</option>
</select>