asp調用function返回值不成功

我用以下的方法調用s_ima150,但是取不到返回的值,是不是我的代碼有問題?
debug1顯示為銅,但是ima150顯示無資料,debug2顯示執行成功代碼為0.

這是什麼問題啊?

HTML code:


function s_ima150(id)
dim l_ima150a
select case id
case "B"
l_ima150a = "銅"
case "S"
l_ima150a = "銀"
case "W"
l_ima150a = "錫" end select
id = l_ima150a
response.write "debug1:"&id
end function

response.write "ima150:"&s_ima150("B")
response.write "debug2:"&err.number&err.description
response.end

---

VBScript code:

function s_ima150(id)
dim l_ima150a
select case id
case "B"
l_ima150a = "銅"
case "S"
l_ima150a = "銀"
case "W"
l_ima150a = "錫"
end select
'id = l_ima150a
s_ima150 = l_ima150a
'response.write "deb