ASP数据库判断语句

1。
<% if rs("字段")=1 then response.write "男 " else response.write "女" end if%>
2。
<% dim wx wx=rs("memberkind") Select Case(wx) Case "1" response.write "季卡" Case "2" response.write "月卡" Case "3" response.write "次卡" Case Else Response.write "未知" End Select %>