<%
function contb_name(contb_id)
dim rs
dim ch
dim sql
set rs = server.CreateObject("ADODB.Recordset")
sql = "select contb_fname, contb_lname from contributor where contb_id = '" & contb_id & "'"
rs.Open sql,conn,1,3
if not rs.EOF then
ch = rs("contb_fname")&" "&rs("contb_lname")
else
ch = ""
end if
rs.Close()
set rs = nothing
contb_name = ch
end function
%>
Kidszip: kidszip team (American-English)
 |
|
|
">
">
">
">
">
">
">
">
">
">
">
">
">
">
">
">
">
">
">
">
">