%'//*************************************************************************************%> <%'//*************************************************************************************%> <% Dim R_Fields, R_tablename_str, R_WHERE_str Dim sc_idx, sc_sitename, sc_sitename_en, sc_ademail, sc_url, sc_company, sc_logo, sc_uptae, sc_jongmok, sc_zipcode, sc_addr1, sc_addr2, sc_no, sc_no2, sc_ceo, sc_phone1, sc_phone2, sc_phone3, sc_fax1, sc_fax2, sc_fax3, sc_title, sc_skeyword, sc_hdate1, sc_hdate2, sc_hdd, sc_copyright, sc_logouttime, sc_wdate, sc_date_chk, sc_hdd_chk '//쓰기권한체크************************************************************************************* if is_write <> "Y" Then back_back "쓰기권한이 없습니다." End if '//************************************************************************************************** R_Fields = "sc_idx, sc_sitename, sc_sitename_en, sc_ademail, sc_url, sc_company, sc_logo, sc_uptae, sc_jongmok, sc_zipcode, sc_addr1, sc_addr2, sc_no, sc_no2, sc_ceo, sc_phone1, sc_phone2, sc_phone3, sc_fax1, sc_fax2, sc_fax3, sc_title, sc_skeyword, sc_hdate1, sc_hdate2, sc_hdd, sc_copyright, sc_logouttime, sc_wdate, sc_date_chk, sc_hdd_chk" R_tablename_str = "site_config" R_WHERE_str = " WHERE sc_idx=1" Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str) If sc_hdate1 = "" then sc_hdate1_y = Year(now) sc_hdate1_m = Right( "0" & Month(now), 2 ) sc_hdate1_d = Right( "0" & day(now), 2 ) else sc_hdate1_arr = Split(sc_hdate1, "-") sc_hdate1_y = sc_hdate1_arr(0) sc_hdate1_m = sc_hdate1_arr(1) sc_hdate1_d = sc_hdate1_arr(2) End if If sc_hdate2 = "" then sc_hdate2_temp = DateSerial( Year(now), Month(now)+2, Day(now) ) sc_hdate2_y = Year(sc_hdate2_temp) sc_hdate2_m = Right( "0" & Month(sc_hdate2_temp), 2 ) sc_hdate2_d = Right( "0" & day(sc_hdate2_temp), 2 ) else sc_hdate2_arr = Split(sc_hdate2 , "-" ) sc_hdate2_y = sc_hdate2_arr(0) sc_hdate2_m = sc_hdate2_arr(1) sc_hdate2_d = sc_hdate2_arr(2) End if %>