sp1000je
39 lines
1.1 KiB
Plaintext
39 lines
1.1 KiB
Plaintext
<!--#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()
|
|
%> |