请求把if else 改为select case 的

<%
sqlInfo = "Select * From Moban Where State=0 ID="&cid
crs.Open sqlInfo,Conn,1,1
if not crs.eof then
mb=crs("mb")
Select Case mb
Case "2"
Response.Redirect "company2.asp?cid="&cid&""
Case "3"
Response.Redirect "style03/company1.asp?cid="&cid&""
Case Else
Response.Redirect "company1.asp?cid="&cid&""
End Select
Else
response.write"<SCRIPT language=JavaScript>alert('不存在的单位！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
End if
crs.close
set crs=nothing
conn.close
set conn=nothing
%>