如何实现 select 下拉框同时传递 value和text的值

<select name="cmbLMid" id="cmbLMid"><%While (NOT rsLm.EOF)%>
<option value="<%=(rsLm.Fields.Item("LmId").Value)%>"<% if rsLm.Fields.Item("LmId").Value=rs_news("lmid") then %> selected="selected"<%end if%>><%=(rsLm.Fields.Item("LMname").Value)%></option>
<%
rsLm.MoveNext()
Wend
%></select>

上面这段代码能够实现从数据库中读取列表名称
我想问的问题是如何再次传递select中value和text的值，要实现即时马上上传的，怎么实现？
这个例子在新闻栏目修改的时候会用到的，请教下大家，谢谢！

<select name="cmbLMid" id="cmbLMid" onChange="javascript:t2.value=this.options[this.selectedIndex].text;t3.value=this.options[this.selectedIndex].value">

这段代码能够通过onChange选择后实现传递value和text的值

但我想实现的功能就是读取数据库列表后，列表有了默认选项，然后直接就提交上传，能够传递value和text的值。

关键的默认第一选项怎么传递value和text的值，想了很久了！