<!-- #include virtual = "/new/common/pageincode.asp" -->
<!-- #include virtual = "/config/config.asp" -->
<!-- #include virtual = "/sms/functions.asp"-->
<!-- #include virtual = "/sms/ASocket.inc"-->
<%
Session("daum_cts")="1" '#다음 CTS
%>
 

<%
	Dim smsVariant, smsMsg, smsFrom
	Dim time1, time2, time3, tran_date
	Dim branchCode, branchName, branchMobile, branchEmail, branchTel

	Response.Expires = 0
	Server.ScriptTimeOut = 1000

	Set upload = Server.CreateObject("DEXT.FileUpload")
	upload.DefaultPath = PathDir&"\data"
	
	upload.MaxFileLen = 5 * 1024000
	DirectoryPath = PathDir&"\data\tbl_consul" 	 ''/// 파일이 저장될 로컬폴더 경로	
	
	B_IP				= Request.ServerVariables("REMOTE_ADDR")

	idx					= trim(upload("idx"))
	user_id				= trim(upload("user_id"))

	If user_id = "" Then user_id = "Guest"
	

	user_name			= trim(upload("user_name"))
	user_age			= trim(upload("user_age"))
	user_sex			= trim(upload("user_sex"))
	user_tel			= trim(upload("user_tel"))
	user_email			= trim(upload("user_email"))

	user_tel1			= trim(upload("user_tel1"))
	user_tel2			= trim(upload("user_tel2"))
	user_tel3			= trim(upload("user_tel3"))

	user_tel			= user_tel1&"-"&user_tel2&"-"&user_tel3

	user_email1			= trim(upload("user_email1"))
	user_email2			= trim(upload("user_email2"))

	user_email			= user_email1&"@"&user_email2
	user_email		= GetReplaceInput(user_email,"1") '공백제거

	user_pass			= trim(upload("user_pass"))
	bbs_type_u			= trim(upload("bbs_type_u"))
	reple_type1			= trim(upload("reple_type1"))
	reple_type2			= trim(upload("reple_type2"))
	reple_type3			= trim(upload("reple_type3"))
	reple_type4			= trim(upload("reple_type4"))
	user_year			= trim(upload("user_year"))
	user_month			= trim(upload("user_month"))
	user_day			= trim(upload("user_day"))
	user_week			= trim(upload("user_week"))
	branchCode			= trim(upload("branchCode"))
	b_subject		= GetReplaceInput(upload("b_subject"),"0")
	b_content		= GetReplaceInput(upload("b_content"),"0")
	b_file0				= trim(upload("b_file0"))
	b_file1				= trim(upload("b_file1"))
	b_content_re		= GetReplaceInput(upload("b_content_re"),"0")
	b_writedate			= trim(upload("b_writedate"))
	b_re_writedate		= trim(upload("b_re_writedate"))

	b_doctor_type		= trim(upload("b_doctor_type"))

	
	write_mode          = trim(upload("write_mode"))

	user_spam2			= trim(upload("user_spam2"))

	admin_type			= Trim(upload("admin_type"))

	vSesID		= cipherDecode(upload("sesID"), "psymonkey")
	vSesID		= Mid(vSesID,2,1) & Mid(vSesID,4,1) & Mid(vSesID,6,1) & Mid(vSesID,8,1)

	IF CStr(vSesID) <> CStr(user_spam2) Then

		RESPONSE.WRITE ExecJavaAlert("인증번호 확인 바랍니다.",0)
		RESPONSE.END

	End If


	B_SUBJECT = GetReplaceInput(B_SUBJECT,0)
	B_CONTENT = GetReplaceInput(B_CONTENT,0)


	''*************************************
	''* 파일만삭제
	''*************************************
	Dim ARR_FILE_ONLY_DELETE_U(1)
	for i = 0 to 1
		ARR_FILE_ONLY_DELETE_U(i) = upload("filedelete0")
		if ARR_FILE_ONLY_DELETE_U(i) = "" then
			ARR_FILE_ONLY_DELETE_U(i) = "N"
			else
			ARR_FILE_ONLY_DELETE_U(i) = "Y"
		end if
	Next
	
	''*************************************
	''* 수정시 해당게시물정보
	''*************************************
	IF write_mode = "edit" THEN
		set RS = DBCon.Execute("select * from tbl_consult where IDX="&IDX&" ")

		FILENAME_0 = RS("B_FILE0")
		FILENAME_1 = RS("B_FILE1")
		
		ARR_OLDFILE_NAME  = Array(FILENAME_0,FILENAME_1)
		RS.CLOSE : SET RS = NOTHING

		''*************************************
		''* 손님글이면 패스워드를 체크
		''*************************************
	
		IF STRCOMP(EDIT_C_PWD,B_PWD) = 0 THEN
			ELSE
			RESPONSE.WRITE ExecJavaAlert("비밀번호가 일치하지 않습니다.",0)
			RESPONSE.END
		END IF	

	End If
	
	''*************************************
	''* 파일업로드
	''*************************************
	Dim ARR_UPLOAD_FILENAME(9)
	For i = 0 to 1
		IF upload("B_FILE"&i&"") <> "" THEN
			ARR_UPLOAD_FILENAME(i) = upload("B_FILE"&i&"").filename
			ARR_UPLOAD_FILENAME(i) = replace(ARR_UPLOAD_FILENAME(i)," ","")
			ARR_UPLOAD_FILENAME(i) = replace(ARR_UPLOAD_FILENAME(i),"'","")

			
			FileWholePath = GetUniqueName(ARR_UPLOAD_FILENAME(i), DirectoryPath)
			IF write_mode = "edit" THEN
				DBCon.Execute("update tbl_consult set B_FILE"&i&" = '" & ARR_UPLOAD_FILENAME(i) & "' where IDX = '" & IDX & "' ")
				if ARR_OLDFILE_NAME(i) <> "" Then
					Call ExecFileDelete(DirectoryPath, ARR_OLDFILE_NAME(i))
				End if
			END If
			'response.write FileWholePath

			upload("B_FILE"&i&"").SaveAs FileWholePath
		End if
	Next


	SELECT CASE write_mode
	CASE "add"

		SQL = "INSERT INTO tbl_consult " &_
		" (user_id, user_name, user_age, user_sex, user_tel, user_email, "&_
		" user_pass, bbs_type_u, reple_type1, reple_type2, reple_type3, reple_type4, "&_
		" user_year, user_month, user_day, user_week, branchCode, b_subject, "&_
		" b_content, b_file0, b_file1, b_doctor_type, b_content_re, b_writedate, b_re_writedate, b_reple_type, device)"&_
		" VALUES  " &_
		
		" ('"&user_id&"', '"&user_name&"', '"&user_age&"', '"&user_sex&"', '"&user_tel&"', '"&user_email&"', "&_
		" '"&user_pass&"', '"&bbs_type_u&"', '"&reple_type1&"', '"&reple_type2&"', '"&reple_type3&"', '"&reple_type4&"', "&_
		" '"&user_year&"', '"&user_month&"', '"&user_day&"', '"&user_week&"', '"&branchCode&"', '"&b_subject&"', "&_
		" '"&b_content&"', '"&ARR_UPLOAD_FILENAME(0)&"', '"&ARR_UPLOAD_FILENAME(1)&"', '0', '"&b_content_re&"', getdate(), '', '0', 'PC')"
	
		DBCON.EXECUTE(SQL)

		'############## SMS 발송 시작 ############################

			'야간 시간대는 예약발송, 나머지는 즉시 발송
			time1 = "20:59" '이시간 보다 크면 내일 아침 time3에 발송
			time1 = CDate(time1)
			time2 = "08:59" '이시간 보다 작으면 오늘 아침 time3에 발송
			time2 = CDate(time2)
			time3 = "09:00" '발송불가 시간은 이시간으로 예약발송

			If Time() > time1 Then
			tran_date = Date() + 1 & " " & time3 & ":00"
			ElseIf Time() < time2 Then
			tran_date = Date() & " " & time3 & ":00"
			Else
			tran_date = "0" '즉시 발송
			End If
			'tran_date = "0"	'#무조건 즉시발송

			'지점 관리자 정보 가져오기
			SQL = "SELECT branchName, branchMobile, branchEmail FROM GW_BRANCH WHERE branchCode = '" & branchCode & "'"
			Set RS = Dbcon.Execute(SQL)
			If RS.eof = false Then
				branchName = RS("branchName")	 '지점명
				branchMobile = RS("branchMobile")	 '지점 관리자 휴대폰
				branchEmail = RS("branchEmail")		 '지점 관리자 이메일
			End If
			RS.Close
			Set RS = Nothing

			'### 설정1. 발신번호
			smsFrom = user_tel	

			'### 설정2. 문자 내용
			smsMsg = "[의료상담예약] " & user_name & "(" & branchName & ") " & Left(b_subject, 20)

			Response.Write "<font color='#ffffff'>" '전송결과 안보이게 처리..
			branchMobile = Split(branchMobile, "|") '관리자 휴대폰 갯수만큼 반복 발송(최대 3건)
			For cnt=0 To Ubound(branchMobile)
				If Len(branchMobile(cnt)) > 9 Then

					Set smsVariant = New MVariant			' 클래스 셋팅
					smsVariant.smsServer = "sms.gabia.com"					' 서버 주소 또는 IP
					smsVariant.smsPort = "5000"										' 연결 포트
					smsVariant.smsTimeout = 10										' 연결 TimeOut 설정
					smsVariant.smsStatus = "1"											' 전송상태설정
					smsVariant.sms_key = "GS"											' SMS 키값설정
					smsVariant.cTranid = "uni114"							' SMS 사용자 ID
					smsVariant.cTranpasswd = "uni1141003"						' SMS 사용자 암호
					smsVariant.cTranphone = branchMobile(cnt)		' ## 받는사람 핸드폰 번호
					smsVariant.cTrancallback = admin_tel			' ## 보내는 사람 핸드폰 번호
					smsVariant.cTrandate = tran_date					' ## 보낼 날짜 (값이 '0' 일경우 지금당장보내는것, 그 외에 예약 발송일 경우 날짜 패턴은 YYYY-MM-DD HH:MM:SS 이다)
					smsVariant.cTranmsg = smsMsg				' ## 보낼 메세지
					smsVariant.smsEndOfCommand = chr(10)					' 종료문자
					Set sms = Server.CreateObject("Intrafoundation.TCPClient")
					sms.Clear()
					sms.Open smsVariant.smsServer, smsVariant.smsPort			' 서버에 연결 - 소켓을 이용하여 이벤트를 발생 시켰을경우 해당 이벤트에 대한 메세지는 .LastError 메소드로 확인 할 수 있다.
					sms.Timeout = smsVariant.smsTimeout

					If sms.Connected = 1 Then			' 연결이 성공 했을 경우
						Call Submit			' 서버에 전송하는 함수 호출
						smsVariant.ReturnMSG = sms.Recv			' 리턴 메세지 저장
						response.write smsVariant.ReturnMSG & "<br>"
						Err_Message = CommError(smsVariant.ReturnMSG)		' 리턴 메세지로 에러 메세지를 추출
						sms.Close		' 소켓 연결 해제
						set sms = nothing		' SMS 소켓 개체 초기화
						set smsVariant = nothing		' 클래스 초기화
						response.write Err_Message & "<br>"
					end If

				End If
			Next			
			Response.Write "</font>"
		'############## SMS 발송 종료 ############################
%>
<!-- Withpang Tracker v2.0 start 2015.06.16 -->
<script type="text/javascript">
<!--
	(function (w, d, i) {
		w[i]={
			sc : (encodeURIComponent("")),
			form : (encodeURIComponent(d.referrer)),
			url : (encodeURIComponent(w.location.href))
		};

		if(w[i]) {
			var _ar = _ar || [];
			var _s = "log.dreamsearch.or.kr/servlet/rf";
			for(x in w[i]) _ar.push(x + "=" + w[i][x]);
			(new Image).src = d.location.protocol +"//"+ _s +"?"+ _ar.join("&");
		}
	})(window, document, "wp_rf");
//-->
</script>
<!-- Withpang Tracker v2.0 end -->

<!-- Withpang Conversion Tracker v2.0 start -->
<script type="text/javascript">
<!--
	(function (w, d, i) {
		w[i]={
			uid : "uni114",
			ordcode : "",
			pcode : "1",
			qty : "1",
			price : "1",
			pnm : encodeURIComponent(encodeURIComponent("온라인상담"))
		};

		try{
			w[i].price= w[i].price.replace(/[^0-9]/g,"");
			if( w[i].ordcode=="" ) {
				w[i].ordcode = w[i].uid +"-"+ new Date().getTime();
			}
		}catch(e){
			w[i].price= 0;
		}
		if(w[i]) {
			var _ar = _ar || [];
			var _s = "log.dreamsearch.or.kr/servlet/conv";
			for(x in w[i]) _ar.push(x + "=" + w[i][x]);
			(new Image).src = d.location.protocol +"//"+ _s +"?"+ _ar.join("&");
		}
	})(window, document, "wp_conv");
//-->
</script>
<!-- Withpang Conversion Tracker v2.0 end -->

<!-- AceCounter Log Gathering Script V.72.2013010701 -->
<script language='javascript'>
if(typeof _GUL == 'undefined'){
var _GUL = 'gtp19.acecounter.com';var _GPT='8080'; var _AIMG = new Image(); var _bn=navigator.appName; var _PR = location.protocol=="https:"?"https://"+_GUL:"http://"+_GUL+":"+_GPT;if( _bn.indexOf("Netscape") > -1 || _bn=="Mozilla"){ setTimeout("_AIMG.src = _PR+'/?cookie';",1); } else{ _AIMG.src = _PR+'/?cookie'; };
document.writeln("<scr"+"ipt language='javascript' src='/acecounter/acecounter_V70.js'></scr"+"ipt>");
}
</script>
<noscript><img src='http://gtp19.acecounter.com:8080/?uid=AM3A38619057818&je=n&' border=0 width=0 height=0></noscript>
<!-- AceCounter Log Gathering Script End -->

<script type="text/javascript" src="https://wcs.naver.net/wcslog.js"></script> 
<script type="text/javascript"> 
if (!wcs_add) var wcs_add={};
wcs_add["wa"] = "s_5955b31bffc";
if (!_nasa) var _nasa={};
_nasa["cnv"] = wcs.cnv("4","1");  // 전환유형 : 신청/예약
wcs_do(_nasa);
</script>

<!-- cpcguard v6.0 : 구매전환 --> 
<script type='text/j-vascript'>var _CONVERSION_CPCGUARD = 4</script> 
<!-- cpcguard conversion END --> 

<!--  CPCGUARD SCRIPT V6.0 : 기본분석 -->
<script type="text/javascript">
 (function(){
 var _script = document.createElement("script"); _script.id= "include_cpc_script"; _script.type = "text/javascript"; _script.charset = "utf-8"; _script.async = true; _script.src = (document.location.protocol || "http:") + "//nsc1.cpcguard.com/new/cpc_script.js"; 
 var _node = document.getElementsByTagName("script")[0]; _node.parentNode.insertBefore(_script, _node);
 })();
</script>
<!-- CPCGUARD SCRIPT END -->

<!-- Facebook Conversion Code for 온라인문의 - 2014.03.25 -->
<script type="text/javascript">
var fb_param = {};
fb_param.pixel_id = '6012300262987';
fb_param.value = '0.00';
fb_param.currency = 'KRW';
(function(){
  var fpw = document.createElement('script');
  fpw.async = true;
  fpw.src = '//connect.facebook.net/en_US/fp.js';
  var ref = document.getElementsByTagName('script')[0];
  ref.parentNode.insertBefore(fpw, ref);
})();
</script>
<noscript><img height="1" width="1" alt="" style="display:none" src="https://www.facebook.com/offsite_event.php?id=6012300262987&value=0&currency=KRW" /></noscript>
<!--// Facebook Conversion Code for 온라인문의 -->

<!-- WIDERPLANET PURCHASE SCRIPT START 2014.10.23 -->
<div id="wp_tg_cts" style="display:none;"></div>
<script type="text/j-vascript">
var wptg_tagscript_vars = wptg_tagscript_vars || [];
wptg_tagscript_vars.push(
(function() {
return {
 ti:"20867", //--광고주 코드--
ty:"PurchaseComplete", //--트래킹태그 타입--
device:"web", //--디바이스 종류 (web 또는 mobile)--
items:[{i:"온라인상담", //--전환 식별코드 (한글, 영문, 숫자, 공백 허용)--
t:"온라인상담", //--전환명 (한글, 영문, 숫자, 공백 허용)--
p:"1", //--전환가격 (전환 가격이 없을경우 1로 설정)--
q:"1" //--전환수량 (전환 수량이 고정적으로 1개 이하일 경우 1로 설정)--
}] 
};
}));
</script> 
<script type="text/j-vascript" src="//astg.widerplanet.com/js/wp_astg_3.0.js"></script>
<!-- // WIDERPLANET PURCHASE SCRIPT END 2014.10.23 -->

<!-- Facebook Conversion Code for 온라인상담 - 2014.07.01 -->
<script>(function() {
  var _fbq = window._fbq || (window._fbq = []);
  if (!_fbq.loaded) {
    var fbds = document.createElement('script');
    fbds.async = true;
    fbds.src = '//connect.facebook.net/en_US/fbds.js';
    var s = document.getElementsByTagName('script')[0];
    s.parentNode.insertBefore(fbds, s);
    _fbq.loaded = true;
  }
})();
window._fbq = window._fbq || [];
window._fbq.push(['track', '6015308857703', {'value':'0.00','currency':'USD'}]);
</script>
<noscript><img height="1" width="1" alt="" style="display:none" src="https://www.facebook.com/tr?ev=6015308857703&cd[value]=0.00&cd[currency]=USD&noscript=1" /></noscript>
<!--// Facebook Conversion Code -->

<%
		Response.Write "<script>"
		Response.Write "alert('문의해주셔서 감사합니다.\n확인 후 답변드리겠습니다.');"
		Response.Write "location.href='http://www.uni114.co.kr/new/customer/customer01.asp';"
		Response.Write "</script>"
		Response.End

	CASE "edit"


		''*****************************
		''* 파일만삭제시 처리
		''*****************************
		for i = 0 to 1
			if ARR_FILE_ONLY_DELETE_U(i) = "Y" then
				s_filename = Split(ARR_OLDFILE_NAME(i),".")
			
				CALL ExecFileDelete(DirectoryPath,ARR_OLDFILE_NAME(i))
				Dbcon.Execute("Update tbl_consult Set B_FILE"&i&" = '' where IDX = "&IDX&"")
			end if
		Next
		
		If admin_type = "1" Then

		SQL = "UPDATE tbl_consult SET " &_
		" user_tel='"&user_tel&"', user_email='"&user_email&"',bbs_type_u='"&bbs_type_u&"', "&_
		" reple_type1='"&reple_type1&"', reple_type2='"&reple_type2&"',  reple_type3='"&reple_type3&"', reple_type4='"&reple_type4&"', "&_
		" user_year='"&user_year&"',  user_month='"&user_month&"', user_day='"&user_day&"', branchCode='"&branchCode&"', b_subject='"&b_subject&"', "&_
		" b_content='"&b_content&"' "&_
		" WHERE IDX='"&IDX&"'"
		DBCON.EXECUTE(SQL)
		
		Else
		

		SQL = "UPDATE tbl_consult SET " &_
		" user_tel='"&user_tel&"', user_email='"&user_email&"', user_pass='"&user_pass&"', bbs_type_u='"&bbs_type_u&"', "&_
		" reple_type1='"&reple_type1&"', reple_type2='"&reple_type2&"',  reple_type3='"&reple_type3&"', reple_type4='"&reple_type4&"', "&_
		" user_year='"&user_year&"',  user_month='"&user_month&"', user_day='"&user_day&"', branchCode='"&branchCode&"', b_subject='"&b_subject&"', "&_
		" b_content='"&b_content&"' "&_
		" WHERE IDX='"&IDX&"'"
		DBCON.EXECUTE(SQL)

		End If
		

		RESPONSE.REDIRECT "http://www.uni114.co.kr/new/customer/customer01.asp"


	Case "reply"

		SQL = "SELECT * FROM tbl_consult where idx = '"&idx&"' "
		SET Rs = DBCON.EXECUTE(SQL)
		
		
		bbs_type_u			= RS("bbs_type_u")
		reple_type1			= RS("reple_type1")
		reple_type2			= RS("reple_type2")
		reple_type3			= RS("reple_type3")
		reple_type4			= RS("reple_type4")
		user_tel			= RS("user_tel")
		user_email			= RS("user_email")		
		branchCode			= RS("branchCode")
		user_name			= RS("user_name")
		b_content			= RS("b_content")
		
		RS.Close
		Set RS = Nothing


		'지점 관리자 정보 가져오기
		SQL = "SELECT branchTel, branchEmail FROM GW_BRANCH WHERE branchCode = '" & branchCode & "'"
		Set RS = Dbcon.Execute(SQL)
		If RS.eof = false Then
			branchTel = RS("branchTel")	 '지점전화
			branchEmail = RS("branchEmail")		 '지점 관리자 이메일
		End If
		RS.Close
		Set RS = Nothing

		If Len(branchTel) < 8 Then branchTel = "02-552-6020" End If
		If branchEmail = "" Then branchEmail = "help@uni114.co.kr" End If

		Select Case branchCode
			Case "U001"		branchName = "강남점"
			Case "U002"		branchName = "수원점"
			Case "U003"		branchName = "잠실점"
			Case "U004"		branchName = "판교점"
			Case "U005"		branchName = "잠실점"
			Case "U006"		branchName = "왕십리점"
			Case "U009"		branchName = "신촌점"
			Case "U007"		branchName = "명동점"
			Case "U008"		branchName = "광교점"
		End Select

		If reple_type3 = "1" Then
			'질문자에게 답변메일 발송하기
			to_email = user_email
			from_email = admin_email

			subject = email_subject

			content = "<meta http-equiv='Content-Type' content='text/html; charset=euc-kr'><div style='width:560px;margin:4em auto;'>"
			content = content & "<div><img src='http://www.uni114.co.kr/mail/customer/title1.gif' alt='유앤아이 안내 메일' /></div>"
			content = content & "<p style='border:1px solid #cccccc;font-size:9pt;padding:29px;line-height:1.8;margin-top:0'><strong>" & user_name & "님 문의 내용</strong><br>" & b_content & "</p><br>"
			content = content & "<div style='background:#000;padding:5px;'><div style='background:#fff;font-size:9pt;padding:25px;'>" & b_content_re & "</div><h5 style='color:#fff;text-align:center;margin:20px 0 8px 0;font-size:12pt;'>70만이 선택한 유앤아이 <span style='color:#ff43aa'>[" & branchName & "]</span></h5></div>"
			content = content & "<div><img src='http://www.uni114.co.kr/mail/customer/tel_info.gif' alt='고객센터 1661-6020' /></div><br>"
			content = content & "<div style='text-align:center;font-size:9pt;color:#666666;letter-spacing:-0.1em'>본 메일은 유앤아이 예약문의 답변 요청 고객님을 대상으로 (광고)표시를 하지 않는 발신전용 메일입니다.<br>추가 문의는 <a href='http://www.uni114.co.kr/' target='_blank'>유앤아이 홈페이지</a>, 또는 전화상담을 이용해주시면 감사하겠습니다.copyright &copy; YOU&I. all right reserved.</div>"
			content = content & "</div>"

			if to_email <> "" Then
				'이메일 발송(함수호출)
				Call SendMail(to_email, from_email, subject, content)		
			end if
		End If
		
		If reple_type4 = "1" Then

		'*******************************************************************************************************************
		'파일명	: sms.asp
		'함수정의
		'	GetMsgLen()							메세지 전체 길이를 계산하는 함수
		'	MakeQuery()							발송 쿼리를 만드는 함수
		'	Submit()								실제 데이터 전송 함수
		'	ErrorNum(str, Max, Gubun)		입력된 데이터의 무결성을 체크하는 함수
		'	StrLenByte(str)						입력된 데이터의 Byte를 계산하는 함수
		'	AsciiConf(char)						ASCII 값을 가지고 Byte를 추출하는 함수
		'	WaitForData( o )						소켓을 이용하여 이벤트를 발생 했을경우 서버로 부터 리턴되는 메세지를 Catch하기 위한 함수
		'	HanCount(str)							발송될 메세지 내용 중 한글의 갯수를 세는 함수
		'	CommError(ErrNum)				오류 번호에 따른 오류 메세지 리턴 함수
		'																																				- Made by Gabia Inc.
		'*******************************************************************************************************************

		Set smsVariant = New MVariant			' 클래스 셋팅

		smsVariant.smsServer = "sms.gabia.com"					' 서버 주소 또는 IP
		smsVariant.smsPort = "5000"										' 연결 포트
		smsVariant.smsTimeout = 10										' 연결 TimeOut 설정
		smsVariant.smsStatus = "1"											' 전송상태설정
		smsVariant.sms_key = "GS"											' SMS 키값설정
		smsVariant.cTranid = "uni114"							' SMS 사용자 ID
		smsVariant.cTranpasswd = "uni1141003"						' SMS 사용자 암호
		smsVariant.cTranphone = user_tel			' 받는사람 핸드폰 번호


		smsVariant.cTrancallback = admin_tel		' 발신번호

		smsVariant.cTrandate = "0"											' 보낼 날짜 (값이 '0' 일경우 지금당장보내는것, 그 외에 예약 발송일 경우 날짜 패턴은 YYYY-MM-DD HH:MM:SS 이다)
		smsVariant.cTranmsg = sms_message		' 보낼 메세지
		smsVariant.smsEndOfCommand = chr(10)					' 종료문자

		Set sms = Server.CreateObject("Intrafoundation.TCPClient")
		sms.Clear()

		sms.Open smsVariant.smsServer, smsVariant.smsPort			' 서버에 연결 - 소켓을 이용하여 이벤트를 발생 시켰을경우 해당 이벤트에 대한 메세지는 .LastError 메소드로 확인 할 수 있다.
		sms.Timeout = smsVariant.smsTimeout

		If sms.Connected = 1 Then			' 연결이 성공 했을 경우
			Call Submit			' 서버에 전송하는 함수 호출

			smsVariant.ReturnMSG = sms.Recv			' 리턴 메세지 저장
			response.write smsVariant.ReturnMSG & "<br>"

			Err_Message = CommError(smsVariant.ReturnMSG)		' 리턴 메세지로 에러 메세지를 추출

			sms.Close		' 소켓 연결 해제

			set sms = nothing		' SMS 소켓 개체 초기화
			set smsVariant = nothing		' 클래스 초기화

			response.write Err_Message
		end if


		End If
		

		SQL = "UPDATE tbl_consult SET " &_
		" b_doctor_type = '"&b_doctor_type&"', b_reple_type = '1', b_content_re = '"&b_content_re&"', b_re_writedate=getdate() "&_
		" WHERE IDX='"&IDX&"'"
		DBCON.EXECUTE(SQL)


		RESPONSE.REDIRECT "http://www.uni114.co.kr/new/customer/customer01_view.asp?idx="&idx&"&gotopage="&gotopage&"&reply=1&branchCode="&branchCode

	End Select
	
	
%>