<!--#include virtual="/common/lib/dbcon.asp"-->
<!-- #Include virtual = "/common/lib/func.asp" -->
<%
Dim b_num, b_temp1

a_num = InputValue( request("a_num") )
b_num = InputValue( request("b_num") )
b_temp1 = InputValue( request("b_temp1") )


'기존 문자알람 삭제
sql = "delete from em_tran where tran_etc2 = '" & a_num & "_" & b_num & "'"
executeQuery( sql )

If b_temp1 = "Y" then

	Set ST = New SelectTable
	sql = "select b_subject, b_sdate, b_temp2, b_temp3, b_temp4, b_phone1, b_phone2, b_phone3 from board_1 where b_num = '" & b_num & "'"
	Set rs = ST.selectQueryRecord( sql )
	ST.arr2Value( rs )

	tran_phone		= b_phone1 & b_phone2 & b_phone3
	RDate			= b_temp2 & " " & b_temp3 & ":" & b_temp4
	tran_callback	= "15449642"
	Msg				= "일정:"& b_sdate & vbcrlf & b_subject
	s_num			= a_num & "_" & b_num

	If tran_phone <> "" then	'예약발송
		Call SmsSend(tran_phone, tran_callback, Msg, RDate, s_num)
	End if
End if

Set UT = New UpdateTable
u_fields = "b_temp1"
UT.tableName = "board_1"
UT.whereQuery = " where b_num = '" & b_num & "' "
UT.setFieldsValues(u_fields)
UT.execute()
%>