<!--#include file="../Lib/Config.asp"-->
<!--#include file="../Lib/Func.asp"-->
<!--#include file="../Lib/FileLib.asp"-->
<!--#include file="../Lib/DBConn.asp"-->
<!--#include file="../Lib/AN_Header.asp"-->
<%


'예제 샘플 [테스트 아이디 꼭 빼주는 로직 걸어주세요]
Function getQuota(LTB,Status)

Dim SQL,Rs,i,j
	
	SQL = "SELECT Count(ID) FROM List_"& LTB &" WHERE Status='"&Status&"'"
	Set Rs = Server.CreateObject("ADODB.Recordset")

	DBConnect()
	Rs.Open SQL,DBConn,3,1,1

	If Rs.Bof Or Rs.eof Then
		getQuota = 0
	Else
		getQuota = Rs(0)
	End if
	
	Rs.Close
	Set Rs = Nothing
	DBClose()

End Function

Dim ArrStatus,xx
ArrStatus = Split("0∮미응답자∑1∮진행중∑10∮응답완료∑98∮면접중단∑99∮오버쿼터∑900∮결번∑901∮오번∑902∮통화중∑903∮전화안받음∑904∮해당지역 아님∑905∮진행불가(잡음/전화끊김)∑906∮응답거절(바쁨/관심없음)∑907∮기타∑100∮무효샘플","∑")




%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" type="text/css" href="../css/style.css" >
<script type="text/javascript" src="http://code.jquery.com/jquery-1.5.min.js"></script>
</head>
<body>
<div style="width:100%;text-align:center;">
	<div id="adminLogo" style="font-family: Arial;font-size: 20px;text-align:left;"></div>
	<div id="adminTitle" style="font-family: Arial;color: #FFFFFF;font-size: 14px;text-align:left;"></div>
	<div id="adminTitle" style="font-family: Arial;color: #000000;font-size: 14px;text-align:center;background-color:#FFFFFF;">
	<form name="frmSearch" id="frmSearch" method="post" action="index.asp">
	<br>
	
<table style="width:800px;padding:5px 5px 5px 5px;border-collapse:separate;" cellpadding="0" cellspacing="0" border="0">
	<colgroup>
		<col width="50%">
		<col width="50%">
	</colgroup>
	<tr>
		<td>
			<% 
				Dim TBNM,A1
				TBNM = PROJECTCODE
			%>
			<span style='font-weight:bold;font-size:14px;'><%=SURVEYTITLE%></span>
			<table style="Width:350px;padding:5px 5px 5px 5px;border-collapse:separate;" cellpadding="5" cellspacing="1" bordercolor="#000000" border="1">
				<% For xx=0 To UBound(ArrStatus) %>
					<% A1 = Split(ArrStatus(xx),"∮") %>
						<tr>
							<td><%=A1(1)%></td>
							<td><%=getQuota(TBNM,A1(0))%></td>
						</tr>	
				<% Next %>
			</table>
		</td>
	</tr>
	</table>
	<div style="marign:0 auto;margin-top:10px;"><input type='button' name='B5' style='height:50px;width:300px;font-size:18px' value='목록으로' onclick='location.href="MAIN.asp"'></div>
	</form>
	</div>
	<br>
</div>
</body>
</html>
