Thanks to all who replied. It took me forever, but I finally got it right!
[CODE]
<form method="post" name="monthdrop">
<select name="rmonth" onchange="document.monthdrop.submit();" size="1" >
<option>Please select a month</option><%
Set rs1 = Conn.Execute("SELECT DISTINCT omonth_id, month FROM omonth order by omonth.omonth_id")
do while Not rs1.eof
rmonth=rs1("month")
If Request.Form("rmonth") <>"" Then
Session("ccrmonth")=request.form("rmonth")
bmonth=True
End If
%>
<option value="<%=rmonthid%>"><%=rmonth%></option>
<%
rs1.movenext
Loop
rs1.Close
Set rs1=Nothing
%>
</select>
</form>
<%
If bmonth then
Response.Write(""& Session("ccrmonth") &"")
Response.Write(""& rmonth &"")
End If
%>