udtræk value fra select boks

Hey, jeg skal ha udtrukket value fra en select boks til et link fx:
<a href="../open.asp?id=" !!! VALUE FRA SELECT BOKS !!! ">" target="_blank"> åben dokument </a>


<select name="dokument" class="input_gren">
                  <option value="0" <%if Rs.Fields.Item("MenuDok").Value = 0 then
            Response.Write("SELECTED")
            END IF %>>--- vælg ---</option>
                  <%
While (NOT RsDok.EOF)
%>
                  <option value="<%=(RsDok.Fields.Item("DokID").Value)%>" <%if (CStr(RsDok.Fields.Item("DokID").Value) = CStr(Rs.Fields.Item("MenuDok").Value)) then Response.Write("SELECTED") : Response.Write("")%>><%=(RsDok.Fields.Item("DokTitel").Value)%></option>
                  <%
  RsDok.MoveNext()
Wend
If (RsDok.CursorType > 0) Then
  RsDok.MoveFirst
Else
  RsDok.Requery
End If
%>
                </select>
                <% IF Rs("MenuDok") <> 0 THEN %>
                <a href="../open.asp?id=<%=(Rs.Fields.Item("MenuDok").Value)%>" target="_blank" class="10_fedSort">&aring;ben
                dokument</a>
                <% END IF %>