<!--#include virtual="/include/lib/dbcon.asp"-->
<!--#include virtual="/include/function/default_func.asp"-->
<%
	'm_id : 회원ID
	'msg : 메세지
	'tran_callback : 회신번호
	'tran_phone : 수신번호 ex) 0111231234;0171231234
	'rtn_url : 리턴URL  ex) http://nninc.co.kr
	
	'공무원노조에 쓰임 euckr
	m_id = inputValue( Request("m_id") )
	msg = inputValue( Request("msg") )
	tran_callback = inputValue( Request("tran_callback") )
	tran_phone = inputValue( Request("tran_phone") )
	rtn_url		= inputValue(Request("rtn_url"))

	If tran_callback = "" Then tran_callback = tran_callback1&tran_callback2&tran_callback3
	If rtn_url = "" Then rtn_url = Request.ServerVariables("HTTP_REFERER")

	Rdate = Date()& " " & Right("0"&Hour(now),2) & ":" & Right("0"&Minute(now),2)


	If smsSelect2(m_id) > 0 Then
		tran_phone_arr = Split(tran_phone,";")

		z = 0

		For i = 0 To UBound( tran_phone_arr )

			If tran_phone_arr(i) <> "" then
				SQL = "Insert into em_tran(tran_id, tran_phone, tran_callback, tran_status, tran_date, tran_msg) values ("
				SQL = SQL & "'"&m_id&"','"&tran_phone_arr(i)&"', '"&tran_callback&"', '1', '"&Rdate&"', '"&Msg&"')"
				'response.write sql
				Dbcon.Execute sql

				z = z + 1
			End if

		Next
		
		sql = "update member set M_g_sms = M_g_sms - "&z&" where M_id = '"&m_id&"'"
		Dbcon.Execute sql
	
	End If
	

	Dbcon.close
	Set Dbcon = Nothing

	If rtn_url <> "" then
		response.redirect rtn_url
	End if
%>