% 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 %>
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||