如何调用前页文本域的值进行传递调用?

<select name="shiareaid" size="1" class="wenbenkuang" id="shiareaid">
<%Set rs_s = Server.CreateObject("ADODB.Recordset")
rs_s.open "SELECT * From fix_shiarea order by shiareaorder",conn,1,1
while not rs_s.eof
%>
<option value="<%=rs_s("shiareaid")%>"<%if rs_s("shiareaid")="<%request("shiareaid")%>" then%>
selected
<%end if%>> <%=rs_s("shiareaname")%></option>
<%
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
</select>

其中>"<%if rs_s("shiareaid")="<%request("shiareaid")%>" then%>
的"="号右边的值是自动编号生成的数字,这样后提示
Microsoft VBScript 编译器错误 (0x800A03F9)
缺少 'Then'
/AAA.asp, line 548, column 33
i

如何调用前页文本域的值进行传递调用? eWebEditor 调用ASP输出的文本值 ASP中，如何控制调用数据库文本的字数 java如何实现调用文本编辑器 如何调用在线html文本编辑器 c#中如何进行页面的参数传递 有两个表 如何调用一个表的内容传递后插入另一个表? 如何取得文本域的值 QQ如何进行文本存档 VC中,如何通过调用字体通用对话框来改变一个控件的文本的颜色