问个小问题关于自定义函数的。

比如我自定义一个函数

function remes(ids)

set rs=server.createobject("adodb.recordset")
rs.open "select * from userinfo where id="&ids&"",conn,1,1
if not rs.eof then
uname=rs("uname")
utel=rs("utel")
uadd=rs("uadd")
ufax=rs("ufax")
uemail=rs("uemail")
end if
rs.close
set rs=nothing

end function 

这个函数是通过传入一个参数ids然后查询数据库取得该会员的一些信息

现在问题就是我怎么把里面的 uname utel uadd ufax uemail 返回来使用额？

比如：

response.write "该会员信息：<br>"
call remes(id)
response.write "会员名："&uname&"<br>联系方式："&utel&"<br>联系地址："&uadd&"<br>联系传真："&ufax&"<br>email："&uemail&""

红色这段该怎么写呢？

望指教，谢谢。

VBScript code

dim uname,utel,uadd,ufax,uemail'======在函数外定义变量
function remes(ids)

set rs=server.createobject("adodb.recordset")
rs.open "select * from userinfo where id="&ids&"",conn,1,1
if not rs.eof then
uname=rs("uname")
utel=rs("utel")
uadd=rs("uadd")
ufax=rs("ufax")
uemail=rs("uemail")
end if
rs.close
set rs=nothing

end function