<%

'###########################################################################################
'패널 정보 확인 - 회원번호로 확인 (ID가 Return)
'###########################################################################################

Function TPanelExistByCode(MemberCode)

	Dim str_tb

	str_tb = "MemberCode=" & MemberCode
	Dim xmlData,strResponseText

	Set xmlData = Server.CreateObject("Microsoft.XMLHTTP")
	xmlData.Open "POST","http://manager.tpanel.kr/Member/panel_check.asp",False
	xmlData.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	xmlData.send str_tb
	strResponseText = xmlData.responseText

	TPanelExistByCode = strResponseText

	Set xmlData = Nothing

End Function 

'###########################################################################################
'패널 정보 확인 - 아이디로 확인 (Code가 Return)
'###########################################################################################

Function TPanelExistByID(MemberID)

	Dim str_tb

	str_tb = "MemberID=" & MemberID
	Dim xmlData,strResponseText

	Set xmlData = Server.CreateObject("Microsoft.XMLHTTP")
	xmlData.Open "POST","http://manager.tpanel.kr/Member/panel_check.asp",False
	xmlData.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	xmlData.send str_tb
	strResponseText = xmlData.responseText

	TPanelExistByID = strResponseText

	Set xmlData = Nothing

End Function 

'###########################################################################################
'롯데마트
'###########################################################################################

Function LSurveyControl(projectCode,memberCode,Status)

	Dim Pcode,Mcode,Mstatus

	PCode = ProjectCode
	MCode = MemberCode
	MStatus = Status
	Dim str_tb

	str_tb = "ProjectCode=" & pCode & "&MemberCode=" & mCode & "&Status=" & MStatus
	Dim xmlData,strResponseText

	Set xmlData = Server.CreateObject("Microsoft.XMLHTTP")
	xmlData.Open "POST",SITEURL & "http://www.lottemartvp.com/Survey/SurveyOk.asp",False
	xmlData.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	xmlData.send str_tb
	strResponseText = xmlData.responseText

	LSurveyControl = strResponseText

	Set xmlData = Nothing

End Function 

'###########################################################################################
'롯데마트 정보 확인 - 회원번호로 확인 (ID가 Return)
'###########################################################################################

Function LPanelExistByCode(MemberCode)

	Dim str_tb

	str_tb = "MID=" & MemberCode
	Dim xmlData,strResponseText

	Set xmlData = Server.CreateObject("Microsoft.XMLHTTP")
	xmlData.Open "POST","http://www.lottemartvp.com/Member/panel_check.asp",False
	xmlData.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	xmlData.send str_tb
	strResponseText = xmlData.responseText

	LPanelExistByCode = strResponseText

	Set xmlData = Nothing

End Function

'###########################################################################################
'패널포인트적립
'###########################################################################################

Function TSurveyPanelControl(MemberID,memberCode,ProjectCode,POINT)

	Dim str_tb

	str_tb = "MemberID=" & MemberID & "&MemberCode=" & memberCode & "&ProjectCode=" & ProjectCode  & "&POINT=" & POINT
	Dim xmlData,strResponseText

	Set xmlData = Server.CreateObject("Microsoft.XMLHTTP")
	xmlData.Open "POST","http://manager.tpanel.kr/member/PointAdd.asp",False
	xmlData.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	xmlData.send str_tb
	strResponseText = xmlData.responseText

	TSurveyPanelControl = strResponseText

	Set xmlData = Nothing

End Function

%>