將輸出寫入下拉列表

Question

<% 
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> 

我想在下拉列表中輸入r的值。我不知道語法。截至目前，下拉列表顯示「r」，而不是其中的值。怎麼做？

Answer 1

這應做到：

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