skift rum ?

hvordan kan jeg få denne form til at skifte så snart brugeren har valgt noget !

    <form method=\"post\" action=\"test.asp\">
      <select name=Rum>          <%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"db/chat.mdb\")
Conn.Open DSN

strSQL = \"Select * from Rum\"
Set rs = Conn.Execute(strSQL)
Do
  If NOT RS(\"Rum\") = Session(\"Rum\") Then
  Response.Write(\"<option selected value=\'\" & rs(\"Rum\") & \"\'>\" & rs(\"Rum\") & \"</option>\")
  End If
  rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
        <option value=\"Skift Rum\">Skift Rum</option>
      </select>
      </form>