asp中sub参数的类型问题?

我想用字母作为sub过程的参数，并让select case根据不同的字母返回不同的值，但是我写的这个返回错误，请帮助修改

调用代码

<%

call rila_cms_base(ByVal ShowType)

%>

sub过程代码

<%

sub rila_cms_base(ByVal ShowType)

set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from rila_cms_base",conn,1,1

Select Case ShowType
case "title"
response.Write rs("rila_cms_title")
case "home"
response.Write rs("rila_cms_home")
case "meta"
response.Write rs("rila_cms_meta")
case "version"
response.Write rs("rila_cms_version")
case "error"
response.Write rs("rila_cms_error")
case else
response.Write ""
End Select

'RilaCms*关闭数据库
rs.close
set rs=nothing

end sub
%>
to pebsi
去掉byval也

asp中sub参数的类型问题? asp中取SUB过程的参数 asp 中sub定义的变量问题。 asp中sub可以传递字符型参数么? 请教ASP中SUB的一些问题，谢谢。 关于ASP中参数传递的问题 asp中SUB遇的错误解决办法 asp sub问题 asp参数的问题 ASP中SUB的使用。。。白到我郁闷的问题，却不问不行。