<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->

<!--#include file = "config.asp" -->

<%

Set UploadForm = Server.CreateObject("DEXT.FileUpload")
UploadForm.DefaultPath = server.MapPath("/")&"\data\"


R_Fields = "b_l_num, info_url, b_l_code, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate, b_l_img_del, b_l_img2, b_main_img_del, b_main_img2, b_l_win"
R_Fields = R_Fields & " , b_l_sdate_y, b_l_sdate_m, b_l_sdate_d, b_l_edate_y, b_l_edate_m , b_l_edate_d "
Call RequestAll (R_Fields, "UploadForm")

b_l_memo	= InputValue2(UploadForm("b_l_memo"))

If Len(b_l_sdate_m)=1 Then b_l_sdate_m = "0"& b_l_sdate_m
If Len(b_l_sdate_d)=1 Then b_l_sdate_d = "0"& b_l_sdate_d
If Len(b_l_edate_m)=1 Then b_l_edate_m = "0"& b_l_edate_m
If Len(b_l_edate_d)=1 Then b_l_edate_d = "0"& b_l_edate_d

b_l_sdate = b_l_sdate_y&"-"&b_l_sdate_m&"-"&b_l_sdate_d
b_l_edate = b_l_edate_y&"-"&b_l_edate_m&"-"&b_l_edate_d

If b_l_win <> "1" then b_l_win="0"


' ------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
FolderCreate(Server.mappath("\")&"/data/banner2/")
' ------------------------------------------------------------------------------------


If b_l_num = "" then ' 저장
	
	
	' 이미지파일저장
	' *****************************************
	strDir	= server.mappath("/") & "\data\banner2\"
	ext_str	= "jpg,gif"
	b_l_img	= wfile2("b_l_img", 10, strDir, ext_str)
	b_main_img	= wfile2("b_main_img", 10, strDir, ext_str)
	' *****************************************


	' 순서
	' *****************************************
	sql = " SELECT isnull(max(b_l_code),0) FROM banner2"
	Set Rs = Dbcon.Execute (sql)
	b_l_code = rs(0)
	rs.close : Set rs = Nothing
	
	b_l_code = b_l_code + 1
	' *****************************************
	
	R_Fields_i = "info_url, b_l_code, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate, b_main_img, b_l_win"
	
	b_l_wdate = getDateFm(now,3)
	b_l_mdate = getDateFm(now,3)

	Call InsertQuery(R_Fields_i, "banner2")

	ok_url = "list.asp"


else ' 수정

	strDir		= server.mappath("/") & "\data\banner2\"
	ext_str		= "jpg,gif"
	b_l_img		= wfile2("b_l_img", 10, strDir, ext_str)


	If b_l_img <> "" then ' 첨부파일이 있으면
	
		Call dfile(strDir, b_l_img2)

	Else
	
		b_l_img = b_l_img2

		If b_l_img_del <> "" then ' 첨부파일만 삭제
			Call dfile(strDir, b_l_img2)
			b_l_img = ""
		End if
		
	End if	


	strDir		= server.mappath("/") & "\data\banner2\"
	ext_str		= "jpg,gif"
	b_main_img	= wfile2("b_main_img", 10, strDir, ext_str)


	If b_main_img <> "" then ' 첨부파일이 있으면
		
		Call dfile(strDir, b_main_img2)

	else
		
		b_main_img = b_main_img2


		If b_main_img_del <> "" then ' 첨부파일만 삭제
			Call dfile(strDir, b_main_img2)
			b_main_img = ""
		End if

	End if

	
	R_Fields = "info_url, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_mdate, b_main_img, b_l_win"

	b_l_mdate = getDateFm(now,4)

	Call UpdateQuery (R_Fields, "banner2", "where b_l_num="&b_l_num)

	ok_url = "list.asp"


End if


Dbcon.close : Set Dbcon = Nothing

Call loding("0",ok_url)

%>