求大神帮小弟写asp一段代码.

小弟分数不多.求大神帮忙改一段 asp 代码

第一次写联动代码.我自己写的这段代码..自己都搞晕了..
有哪里错请指出来!谢谢!

现在选择所有会员

                <option value="all">所有会员</option>

不显示这个.

  Response.Write("<option value='all'>所有会员</option>")

求帮助!!

<select name="User_ID" id="User_ID" onChange="changelocation(document.add.User_ID.options[document.add.User_ID.selectedIndex].value,document.add)">

                <option value="">请选择会员组</option>

                <option value="all">所有会员</option>

                <option value="1">尊贵会员9.9折</option>

                <option value="0">贵宾会员9折</option>

                <option value="2">代销会员7.5折</option>

                <option value="21">代销贵宾7折</option>

                <option value="22">代理会员6.8折</option>

                <option value="3">代理会员6.5折</option>

                <option value="4">合作伙伴6折</option>

                <option value="5">管理人员5折</option>

    </select>

<select name="user" id="user">

<option value="">请选择会员</option>

 <%

 If User_ID = "0,1,2,3,4,5,21,22" Then

  Set RsUser= Conn.Execute("SELECT * FROM user WHERE LV = "&User_ID)

  Do While Not RsUser.Eof

  Response.Write("<option value='"&RsUser(0)&"'>"&RsUser(1)&"</option>")

			  else

  Response.Write("<option value='all'>所有会员</option>")

  RsUser.MoveNext

  Loop

  elseIf User_ID = "all" Then

  Response.Write("<option value='all'>所有会员</option>")

			  else

  Response.Write("<option value='all'>所有会员</option>")

 End if

 Set RsUser = Nothing

 %>

 </select>