Asp classic 将输出写入下拉列表

我想在下拉列表中更正r的值。我不知道语法。现在，下拉列表显示的是r，而不是其中的值。怎么做？

这应该可以做到：

<%
dim req_id
req_id=Request.Form("Req_id")


Set conn=server.CreateObject("adodb.connection")
conn.Open session("Psrconnect")
Set rs=CreateObject("Adodb.Recordset")
rs.Open "select * from releases where project like '%"&req_id&"%'", conn

%>
<SELECT style="LEFT: 454px; WIDTH: 500px; TOP: 413px" name="txtrelease1" id="txtrelease1">
<%
    if rs.EOF=true then
%>  
        <OPTION value="NO Request to Edit">No Request to Edit</OPTION>
<%  else

        do while rs.EOF<>true
        p=InStrRev(rs.Fields(0),"\")
        q=Len(rs.Fields(0))
        r=(Right(rs.Fields(0),(q-p))) %>
            <OPTION value=<%=rs.Fields(0)%>> r </OPTION>
<%  
            rs.movenext
        loop
    end if
%>

</SELECT>

---

不客气。现在‘接受’我的答案，我们都会很高兴：

do while not rs.EOF
    p=InStrRev(rs.Fields(0),"\")
    q=Len(rs.Fields(0))
    r=(Right(rs.Fields(0),(q-p))) 
%> 
    <option value="<%=rs.Fields(0)%>"><% =r %></option>
<%
    rs.moveNext
loop