<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Session.CodePage = 65001
Response.ChaRset = "utf-8"
%>
<%
On Error Resume Next
Function conCloseFnc()
' Rs/Conn Close
If RS.State > 0 Then RS.close
If connMK.State > 0 Then connMK.close
Set Rs = Nothing
Set connMK = Nothing
response.end
End Function
EK = chk_value(request("EK"))
viewCod = "01"
If EK = "" Then
call Alert_close("오류가 발생하였습니다. 관리자에게 문의하십시오.")
Call conCloseFnc()
End If
Set Rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT es_email_id, es_email_mail FROM wp_es_emaillist "
strSQL = strSQL & " WHERE es_email_key = '" & EK & "'"
Set RS = connMK.Execute(strSQL)
If Not Rs.EOF Then
es_email_mail = Rs("es_email_mail")
viewCod = "01"
Else
Rs.Close
strSQL = " SELECT es_email_mail, reg_date FROM wp_es_emaillist_refuse"
strSQL = strSQL & " WHERE es_email_key = '" & EK & "'"
Set RS = connMK.Execute(strSQL)
If Not Rs.EOF Then
es_email_mail = Rs("es_email_mail")
reg_date = Rs("reg_date")
viewCod = "02"
Else
Rs.Close
call Alert_close("유효하지 않은 링크입니다. 관리자에게 문의하십시오.")
Call conCloseFnc()
End if
End If
If RS.State > 0 Then RS.close
If connMK.State > 0 Then connMK.close
Set Rs = Nothing
Set connMK = Nothing
If viewCod = "01" Then
%>
뉴스레터 수신 거부
<%
Else
%>
뉴스레터 수신 거부
<%=es_email_mail%> 대해서 이미 수신 거부 되었습니다.