类型不匹配

<%
Dim rs : Set rs = Server.CreateObject("ADODB.RecordSet")
Dim action:action=Trim(Request("action"))
If action="" Then action="show"
Select Case action
Case "save"
    Saves()
Case Else
    NO"没有找到相关页面","back"
End Select
%>


错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'NO'

请问一下这应该怎么写呢？