% ' 레코드필드 R_Fields = "mc_idx, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_jumin, mc_mailing, mc_sms, mc_sex, mc_birth, mc_fax, mc_marry, mc_marrydate, mc_job, mc_text, mc_nickname_req, mc_jumin_req, mc_sex_req, mc_birth_req, mc_phone_req, mc_fax_req, mc_mobile_req, mc_email_req, mc_addr_req, mc_homepage_req, mc_marry_req, mc_marrydate_req, mc_job_req, mc_text_req, mc_recom, mc_recom_point, mc_new_point, mc_agree, mc_agree_str, mc_info, mc_info_str" sql = "SELECT top 1 "&R_Fields&" FROM member_config" Set Rs = Dbcon.Execute (sql) If Not rs.eof Then R_Fields = replace(R_Fields, " ", "") R_Fields_arr = split(R_Fields,",") For i=0 To UBound(R_Fields_arr) execute( R_Fields_arr(i) & "= rs("""&R_Fields_arr(i)&""")") Next Else R_Fields = replace(R_Fields, " ", "") R_Fields_arr = split(R_Fields,",") For i=0 To UBound(R_Fields_arr) execute(R_Fields_arr(i)&" = ""N""") next mc_joinlevel = "0" End If rs.close : Set rs = nothing %>