弹出对话框的问题

数据库字段：
会员编号：memberID nvarchar
会员性别：memberSex char （1为男，2为女）
是否推荐：isCommend char （1为推荐，0为不推荐）
我想会员为男的不能被推荐

部分代码
if rs("isCommend") = 0 then
response.Write "<a href='memberEdit.asp?id="&rs("id")&"&action=commend'>推荐</a>"
else
response.Write "<a href='memberEdit.asp?id="&rs("id")&"&action=unCommend'>取消推荐</a>"
end if



memberEdit.asp的代码

dim rs,sql
dim action,id
action = request("action")
id = request("id")
set rs = server.CreateObject("adodb.recordset")

if action = "commend" then
call subCommend()
elseif action = "unCommend" then
call subUNCommend()
end if

sub subCommend()
sql = "select * from member where id="&id
rs.open sql,conn,1,3
if rs("memberSex") = 1 then
response.Write("<SCRIPT language=JavaScript>alert('不能推荐男会员');")
response.Write("javascript:history.go(-1)</SCRIPT>")
else
rs("isCommend") = 1
end if
rs.update
rs.close
set rs = nothing
response.Redirect("memberList.asp")
end sub


为什么弹出框没出来呢！！！！