<% Dim strArea, intCate, strType, area_txt, visual_img, visual_txt, visual_txt2 strArea = GetInputReplce(Request.QueryString("strArea"), "S") '영역 intCate = GetInputReplce(Request.QueryString("intCate"), "S") '카테고리 strType = GetInputReplce(Request.QueryString("strType"), "S") '타입 strGubun = GetInputReplce(Request.QueryString("strGubun"), "S") '구분 intSeq = GetInputReplce(Request.QueryString("intSeq"), "S") '일련번호 If strArea = "" Then : strArea = "A" Select Case UCase(strArea) Case "A" area_txt = "국내결연" visual_img = "campaign06" visual_txt = "txt_h2_07.png" visual_txt2 = "" Case "B" area_txt = "국제결연" visual_img = "campaign05" visual_txt = "txt_h2_06.png" visual_txt2 = "txt_p01.png" End Select If intSeq="" Then Response.write ActJsAlertMsg("허용되지 않은 접근입니다.", "url","/campaign/relationship.asp") Response.End() Else SET Rs = DbCon.Execute("SELECT * FROM [WITHGO_ADDRELATIONSHIP] where intSeq='"&intSeq&"' ") If Not Rs.eof Then strSubject = Rs("strSubject") strContent = Rs("strContent") strName = Rs("strName") strSex = Rs("strSex") strBirthday = Rs("strBirthday") strAddInfo1 = Rs("strAddInfo1") strAddInfo2 = Rs("strAddInfo2") strAddInfo3 = Rs("strAddInfo3") If strAddInfo1 <> "" Then strAddInfo1_re = Split(strAddInfo1, "|") strAddInfo1_filed = strAddInfo1_re(0) strAddInfo1_value = strAddInfo1_re(1) End If If strAddInfo2 <> "" Then strAddInfo2_re = Split(strAddInfo2, "|") strAddInfo2_filed = strAddInfo2_re(0) strAddInfo2_value = strAddInfo2_re(1) End If If strAddInfo3 <> "" Then strAddInfo3_re = Split(strAddInfo3, "|") strAddInfo3_filed = strAddInfo3_re(0) strAddInfo3_value = strAddInfo3_re(1) End If strNation = Rs("strNation") strProtector = Rs("strProtector") bitProtector = Rs("bitProtector") strAddFile1 = Rs("strAddFile1") strAddFile2 = Rs("strAddFile2") strAddFile3 = Rs("strAddFile3") strAddFile4 = Rs("strAddFile4") strAddFile5 = Rs("strAddFile5") intStat = Rs("intStat") strCode = Rs("strCode") End If Rs.Close : Set Rs = Nothing End If %>
ended<%End If%>">

결연중 <% If strArea = "B" Then %> <% If strGubun <> "S" Then %> <% If intStat = "2" Then %> 매칭진행중 <% Else %> 매칭완료 <% End If %> <% Else %> 종결 <% End If %> <% Else %> 종결 <% End If %>

  • <%If strAddFile2 <> "" Then %> <%End If%>
  • <%If strAddFile3 <> "" Then %><%End If%>
  • <%If strAddFile4 <> "" Then %><%End If%>
  • <%If strAddFile5 <> "" Then %><%End If%>
<% If strArea = "A" Then '국내 %>

<%=strName%> <%=strSubject%>

<%If intStat="1" Then%>
이 름
<%=strName%>
성 별
<%If strSex="M" Then%>남<%Else%>여<%End If%>
생년월일
<%If Len(strBirthday)=10 Then%><%=Left(strBirthday,4)&"년 "&Mid(strBirthday,6,2)&"월 "&Right(strBirthday,2)&"일"%> (<%=year(now)-Left(strBirthday,4)+1%>세)<%End If%>
<%If strAddInfo1_filed<>"" Then%>
<%=strAddInfo1_filed%>
<%=strAddInfo1_value%>
<%End If%> <%If strAddInfo2_filed<>"" Then%>
<%=strAddInfo2_filed%>
<%=strAddInfo2_value%>
<%End If%> <%If strAddInfo3_filed<>"" Then%>
<%=strAddInfo3_filed%>
<%=strAddInfo3_value%>
<%End If%>
<%ElseIf intStat="0" Then%>
<%=strName%> (이)의 결연이 종결되었습니다. 관심 가져주신 모든 분들께 감사드립니다. 추가후원을 원하시면 070-4477-3789로 문의 바랍니다.
<%End If%>
<%If bitProtector=True Then%>
보호자 한마디 (<%=strProtector%>)
<%End If%>
<%else%>
이름(Name)
<%=strName%>
국가(State)
<%=GetNationString(strNation)%>
성별(Sex)
<%If strSex="M" Then%>남<%Else%>여<%End If%>
생년월일(Birth)
<%If strBirthday<>"" Then%><%=Left(strBirthday,4)%>년생<%End If%>
<%If strAddInfo1_filed<>"" Then%>
<%=strAddInfo1_filed%>
<%=strAddInfo1_value%>
<%End If%> <%If strAddInfo2_filed<>"" Then%>
<%=strAddInfo2_filed%>
<%=strAddInfo2_value%>
<%End If%> <%If strAddInfo3_filed<>"" Then%>
<%=strAddInfo3_filed%>
<%=strAddInfo3_value%>
<%End If%>
<% If strGubun <> "S" Then %> <% If intStat="0" Then %>
<%=strName%> (이)의 결연이 매칭완료되었습니다. 관심 가져주신 모든 분들께 감사드립니다.


<% End If %> <% If intStat="2" Then %>
<%=strName%> (이)의 결연이 매칭진행중입니다. 관심 가져주신 모든 분들께 감사드립니다.


<% End If %> <% ElseIf intStat="0" Then %>
<%=strName%> (이)의 결연이 종결되었습니다. 관심 가져주신 모든 분들께 감사드립니다.


<% End If %>
<%If bitProtector=True Then%> <% SET Protector_Rs = DbCon.Execute("SELECT strNation, strMemo FROM [WITHGO_ADDPROTECTOR] where intSeq='"&strProtector&"' ") If Not Protector_Rs.eof Then strNation = Protector_Rs("strNation") strMemo = Protector_Rs("strMemo") End If %> <%=strNation%>에서 보내온 메세지
<%=GetReplaceTag2Text(strMemo)%>
<%End If%>

* 아동결연 후원금 중 15% 행정비(입출금 수수료 및 자료제작비)가 제외된 모든 금액은 아동이 건강하게 성장하게 하는 지원비로 전액 사용됩니다.

<%If intStat="1" Then%> <%ElseIf intStat="0" Or intStat="2" Then%> <%End If%>
<%End If%>
<%=Replace(Replace(strContent,"text-align: center","text-align: left"),"align=""center""","align=left")%>
<% If strArea = "B" And strGubun <> "S" And (intStat = "2" Or intStat = "0") Then %> FAQ
바로가기
<% Else %> 결연맺기 FAQ
바로가기
<% End If %>