<%
user = Session("user")
set cnn = CreateObject("ADODB.Connection")
cnn.open Application("dsn_iz_ConnectionString")
sql_mem = "SELECT * from d01_member where d01_mem_id in (select d02_mem_id from d02_login where d02_username = '" & user & "')"
' sql_tlc = "select h04_tlc_name from h04_tlc_name where h04_tlc_id in (select h03_tlc_id from h03_tlc_assign where h03_mem_id in (select d01_mem_id from d01_member where d01_mem_id in (select d02_mem_id from d02_login where d02_username = '" & user & "')))"
set rs_mem = createobject("ADODB.Recordset")
rs_mem.ActiveConnection = cnn
rs_mem.CursorLocation = 3
rs_mem.Open sql_mem
if not rs_mem.eof then
fname = Trim(rs_mem("d01_fname"))
mname = Trim(rs_mem("d01_mname"))
lname = Trim(rs_mem("d01_lname"))
address1 = Trim(rs_mem("d01_addr1"))
address2 = Trim(rs_mem("d01_addr2"))
city = rs_mem("d01_city")
user_state = rs_mem("d01_state")
zip = Trim(rs_mem("d01_zip"))
cc = Trim(rs_mem("d01_country"))
phone = Trim(rs_mem("d01_phone"))
email = rs_mem("d01_email")
real_name = Trim(rs_mem("d01_lname")) & "," & Trim(rs_mem("d01_fname")) &" "& Trim(rs_mem("d01_mname"))
end if
rs_mem.Close
%>
