<%
function showname(username)
set conn_l=opendb
set rs_1=server.createobject("adodb.recordset")
   sql_1="select name from userinf where username=" & sqlstr(username)
rs_1.open sql_1,conn_l,1
if not rs_1.eof and not rs_1.bof then 
   showname=rs_1("name")
else
   showname=" "
end if
set rs_1=nothing
call closedb(conn_l)
end function

Function showdept(username)
set conn_l=opendb
set rs_1=server.createobject("adodb.recordset")
   sql_1="select userdept from userinf where username="& sqlstr(username)
rs_1.open sql_1,conn_l,1
if not rs_1.eof and not rs_1.bof then 
   showdept=rs_1("userdept")
else
   showdept=" "
end if
set rs_1=nothing
call closedb(conn_l)
End function
%>