<% Dim strArea, intCate, strType, area_txt, visual_img, visual_txt, visual_txt2, searchNation, searchKeyword Dim intPage, intPageSize, intTotalCount, intPageCount intPage = GetInputReplce(Request("intPage"), "S") strArea = GetInputReplce(Request("strArea"), "S") '영역 intCate = GetInputReplce(Request("intCate"), "S") '카테고리 strType = GetInputReplce(Request("strType"), "S") '타입 strGubun = GetInputReplce(Request("strGubun"), "S") '구분 searchNation = GetInputReplce(Request("searchNation"), "S") '국가코드 searchKeyword = GetInputReplce(Request("searchKeyword"), "S") '검색키워드 range = GetInputReplce(Request("range"), "S") '정렬 If strArea = "" Then : strArea = "A" If intPage = "" Then intPage = 1 If intPageSize = "" Then intPageSize = 6 Select Case UCase(strArea) Case "A" area_txt = "국내결연" visual_img = "campaign06" visual_txt = "txt_h2_07.png" visual_txt2 = "" If strGubun = "" Then : strGubun = "U" If UCase(strGubun) = "U" Then 'strDefaultQuery = "where bitDelete=0 and strArea='A' and strType='B' and strGubun='U' and intStat<>'99'" ' 20190429 김성환 수정 - 최신화로 정렬 S 'strDefaultQuery = "where bitDelete=0 and strArea='A' and strGubun='U' and intStat<>'99'" strDefaultQuery = "where bitDelete=0 and strArea='A' and intStat<>'99'" ' 20190429 김성환 수정 - 최신화로 정렬 E Else 'strDefaultQuery = "where bitDelete=0 and strArea='A' and strType='B' and intStat<>'99'" strDefaultQuery = "where bitDelete=0 and strArea='A' and intStat<>'99'" End If Case "B" area_txt = "국제결연" visual_img = "campaign05" visual_txt = "txt_h2_06.png" visual_txt2 = "txt_p01.png" If strType = "" Then : strType = "A" 'Response.write "strGubun >>> " & strGubun If UCase(strGubun) = "U" Then strDefaultQuery = "where bitDelete=0 and strArea='B' and strGubun='U' and strType='A' and intStat<>'99'" ElseIf UCase(strGubun) = "S" Then strDefaultQuery = "where bitDelete=0 and strArea='B' and (strType='"&strType&"' or strType='A' ) and strGubun='S' and intStat<>'99'" Else strDefaultQuery = "where bitDelete=0 and strArea='B' and (strType='"&strType&"' or strType='A' ) and intStat<>'99'" End If End Select strSearchQuery = "" If searchNation <> "" Then strSearchQuery = " And strNation = '"&searchNation&"' " If searchKeyword <> "" Then strSearchQuery = " And strName LIKE '%" & searchKeyword & "%' " resultSearchQuery = strSearchQuery IF intCate <> "" THEN strSearchQuery = " AND intCate = '"&intCate&"' " orderQuery = "" '// 정렬 ASC If range = "Y" Then ' 20190429 김성환 수정 - 최신화로 정렬 S 'orderQuery = " ORDER BY [intStat] ASC, [intSeq] ASC " orderQuery = " ORDER BY [intSeq] ASC " ' 20190429 김성환 수정 - 최신화로 정렬 E Else '// 정렬 DESC ' 20190429 김성환 수정 - 최신화로 정렬 S 'orderQuery = " ORDER BY [intStat] DESC, [intSeq] DESC " orderQuery = " ORDER BY [intSeq] DESC " ' 20190429 김성환 수정 - 최신화로 정렬 E End If SET RS = DbCon.EXECUTE("select count(*) from WITHGO_ADDRELATIONSHIP "&strDefaultQuery&" "&strSearchQuery&" ") strSql = "SELECT TOP " & intPageSize & " * FROM WITHGO_ADDRELATIONSHIP "&strDefaultQuery&" and [intSeq] NOT IN (SELECT TOP " & (intPage - 1) * intPageSize & " [intSeq] FROM WITHGO_ADDRELATIONSHIP "&strDefaultQuery&" "&strSearchQuery&" "&orderQuery&") "&strSearchQuery&" "&orderQuery&"" 'Response.write strSql SET xRs = DbCon.EXECUTE(strsql) intTotalCount = RS(0) intPageCount = INT((intTotalCount - 1) / intPageSize) + 1 '// 각 국가별 토탈인원 strSql = "SELECT strNation, count(*) as nationCount FROM withgo_arty.WITHGO_ADDRELATIONSHIP " 'strSql = strSql & " where intStat <> '99' and strNation <> '1' and bitDelete=0 "&resultSearchQuery&" " strSql = strSql & " where intStat <> '99' and strNation <> '1' and bitDelete=0 " strSql = strSql & " GROUP BY strNation " strSql = strSql & " order by strNation asc " 'Response.write strSql SET nRS = DbCon.EXECUTE(strSql) '// 총 토탈인원 strSql = "SELECT count(*) as nationCount FROM withgo_arty.WITHGO_ADDRELATIONSHIP " strSql = strSql & " where intStat <> '99' and strNation <> '1' and bitDelete=0 " SET oRS = DbCon.EXECUTE(strSql) %>

<%=area_txt%>

<%If visual_txt2<>"" Then%>

<%=area_txt%>

<%End If%>
<% Select Case UCase(strArea) Case "A" '국내 %>
<% Case "B" '국제 %>
이름으로 검색
국가별 보기
glre_btnDon<%Else%>glre_btnD<%End If%>"> 케냐 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 몽골 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 캄보디아 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 필리핀 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 태국 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 에티오피아 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 부르키나파소 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 과테말라 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 에콰도르 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 멕시코 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 콜롬비아 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 카자흐스탄 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 키르키스스탄 (0)
glre_btnDon<%Else%>glre_btnD<%End If%>"> 베트남 (0)
glre_btnDallon<%Else%>glre_btnDall<%End If%>"> 전체보기 (0)
<% End Select %> <% If xRs.eof Or xRs.bof Then %>
검색된 결연대상이 존재하지 않습니다.
<%Else%>
mt20<%Else%>mt40<%End If%>">
    <% While Not(xRs.eof) '추가등록필드 strAddInfo1 = xRs("strAddInfo1") '추가정보1 strAddInfo2 = xRs("strAddInfo2") '추가정보2 strAddInfo3 = xRs("strAddInfo3") '추가정보3 If strAddInfo1 <> "" Then strAddInfo1_re = Split(strAddInfo1, "|") strAddInfo1 = strAddInfo1_re(0) '추가필드1 strAddField1 = strAddInfo1_re(1) '추가정보1 End If If strAddInfo2 <> "" Then strAddInfo2_re = Split(strAddInfo2, "|") strAddInfo2 = strAddInfo2_re(0) '추가필드2 strAddField2 = strAddInfo2_re(1) '추가정보2 End If If strAddInfo3 <> "" Then strAddInfo3_re = Split(strAddInfo3, "|") strAddInfo3 = strAddInfo3_re(0) '추가필드3 strAddField3 = strAddInfo3_re(1) '추가정보3 End If '성별 If xRs("strSex") = "M" Then strSex = "남" Else strSex = "여" End If %>
    • <% If xRs("strArea") = "B" Then %> <% If xRs("strGubun") <> "S" Then %> <%If xRs("intStat")="0" Then%>
    • 매칭완료
    • <% ElseIf xRs("intStat")="2" Then %>
    • 매칭진행중
    • <%End If%> <%If xRs("strGubun")="U" Then %>
    • 긴급
    • <%End If%> <% Else %> <%If xRs("intStat")="0" Then%>
    • 종결
    • <%End If%> <%If xRs("strGubun")="U" Then%>
    • 긴급
    • <%End If%> <% End If %> <% Else %> <%If xRs("intStat")="0" Then%>
    • 종결
    • <%End If%> <%If xRs("strGubun")="U" Then%>
    • 긴급
    • <%End If%> <% End If %>

    <%If xRs("bitThumnail")=True Then%> " alt="<%=xRs("strFileArt")%>"> <%Else%> " alt="<%=xRs("strFileArt")%>"> <%End If%>

    <%If xRs("strArea")="A" Then%>
    <%=xRs("strName")%>

    <%=xRs("strSubject")%>

    • 성별 :<%=strSex%>
    • 생년월일 :<%=xRs("strBirthday")%>(<%=year(now)-Left(xRs("strBirthday"),4)+1%>세)
    • <%=strAddInfo1%> :<%=strAddField1%>
    • <%=strAddInfo2%> :<%=strAddField2%>

    <%=GetCutDispData(xRs("strDescription"),"130","...")%>

    <%Else%>
    • 이름 :<%=xRs("strName")%>
    • 국가 :<%=GetNationString(xRs("strNation"))%>
    • 성별 :<%=strSex%>
    • 나이 :<%=year(now)-Left(xRs("strBirthday"),4)+1%>세
    • <%=strAddInfo1%> :<%=strAddField1%>
    • <%=strAddInfo2%> :<%=strAddField2%>

    <%=xRs("strDescription")%>

    <%End If%>

    &strArea=<%=strArea%>&intCate=<%=intCate%>&strGubun=<%=strGubun%>&strType=<%=strType%>" class="btn btn_icon02">상세보기

  • <% xRs.MoveNext Wend %>
<%If CInt(intTotalCount)>0 Then%>
<% Dim blockpage, i, pageUrl blockpage = Int((intPage - 1) / 10) * 10 + 1 pageUrl = "?strArea="&strArea&"&intCate="&intCate&"&strType="&strType&"&strGubun="&strGubun&"&searchNation="&searchNation&"&searchKeyword="&searchKeyword&"&range="&range %> <% i = 1 Do Until i > 10 Or blockpage > intPageCount If blockpage = int(intPage) Then Response.write "" & blockpage & "" Else Response.write "" & blockpage & "" blockpage = blockpage + 1 i = i + 1 Loop %>
<%End If%>
<% End If xRs.Close Set xRs = Nothing %>
특수 아동결연이란?

특수 아동결연은 1:1아동과 달리 화상, 장애 등으로 전폭적인 지원이 필요한 아동을 지원하는 프로그램입니다.

화상연고가 없어 크나 큰 화상 이후에도 손과 발을 쓰지 못하게 된 아동,
두 다리가 없어 의족이 필요한 아동,
병원비와 약값이 없어 고통에 시달리는 아동,

건강할 기회조차 없어 건강하지 못한 아동들에게 다수의 후원자가 지원하여 아동이 제대로 된 치료를 받고 건강하게 자라날 수 있도록 전폭적으로 지원합니다.

다수의 후원자가 모여 한 아이를 살릴 수 있는 기회
결연신청→2주이내 결연아동 연결(후원자-결연아동 연결)→ 1달이내 아동가드 수령(아동카드 발송)→1년이내 아동관리(편지, 그림 연 1회 발송 연례보고 년 1회)