최초등록

content/03schedule/ajax_alarm_ok.asp

@@ -0,0 +1,39 @@
+<!--#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()
+%>