关于下拉框选项显示数据的问题

<%
Dim Rs_class
Set Rs_class = Server.CreateObject("ADODB.Recordset")
Rs_class.ActiveConnection = CM_unnamedDatabase
Rs_class.Source = "  SELECT class.fldauto, class.fldname FROM class WHERE 1=1 "
Rs_class.CursorType = 0
Rs_class.CursorLocation = 2
Rs_class.LockType = 1
Rs_class.Open()
%>
<script language="javascript">
function listoption(src){
var obj = document.class3.fldclass2 
document.class3.fldname="123"; 
                   document.class3.fldname2=obj.value;
} 
</script><tr>
    <td colspan="0" width="" class="Table_InSide"><div align="left">新闻大类&nbsp;</div></td>
    <td colspan="0" width="" class="Table_InSide"><div align="left">
<select name="fldclass" onchange="listoption(this)">
<option value="">--请选择--</option>
<%While NOT Rs_class.EOF%>
<option value="<%=Rs_class.Fields.Item("fldauto").Value%>"><%=Rs_class.Fields.Item("fldname").Value%></option>
<%Rs_class.MoveNext()
Wend
%>
</select>
&nbsp;</div></td>
</tr>
<tr>
    <td colspan="0" width="" class="Table_InSide"><div align="left">名称&nbsp;</div></td>
    <td colspan="0" width="" class="Table_InSide"><div align="left"><input name="fldname" type="text" value="" class="Edit_mid">
&nbsp;</div></td>
</tr>
<tr>
    <td colspan="0" width="" class="Table_InSide"><div align="left">英文名称&nbsp;</div></td>
    <td colspan="0" width="" class="Table_InSide"><div align="left"><input name="fldname2" type="text" value="" class="Edit_mid">
&nbsp;</div></td>
</tr>