<% Response.ContentType = "text/html;charset=euc-kr" Dim sql_area, sql_detail, rs_area, rs_detail, ds_area, ds_detail sql_area = "SELECT DISTINCT area_code, area_name " &_ " FROM t_shop " &_ " WHERE brand = 'CC' " &_ " AND shop_type_code = 'S01' " &_ " AND live_tag = 'Y' " &_ " UNION ALL " &_ "SELECT DISTINCT top 2 shop_type_code as area_code, shop_type_name as area_name " &_ " FROM t_shop " &_ " WHERE brand = 'CC' " &_ " AND shop_type_code in ('S02', 'S04') " &_ " AND live_tag = 'Y' " &_ " ORDER BY area_code " sql_detail1 = "SELECT area_code, area_name, shop_name, address, tel, map " &_ " FROM t_shop " &_ " WHERE brand = 'CC' " &_ " AND shop_type_code = 'S01' " &_ " AND live_tag = 'Y' " &_ " ORDER BY area_code, shop_name " sql_detail2 = "SELECT area_code, area_name, shop_type_code, shop_type_name, shop_name, address, tel, map " &_ " FROM t_shop " &_ " WHERE brand = 'CC' " &_ " AND shop_type_code in ('S02', 'S04') " &_ " AND live_tag = 'Y' " &_ "ORDER BY shop_type_code, area_code, tel " Call bn_open() Set rs_area = conn_bn.Execute(sql_area) If Not rs_area.EOF Then ds_area = rs_area.GetRows() End If CloseRecordSet(rs_area) Set rs_detail1 = conn_bn.Execute(sql_detail1) If Not rs_detail1.EOF Then ds_detail1 = rs_detail1.GetRows() End If CloseRecordSet(rs_detail1) Set rs_detail2 = conn_bn.Execute(sql_detail2) If Not rs_detail2.EOF Then ds_detail2 = rs_detail2.GetRows() End If CloseRecordSet(rs_detail2) Call bn_close() %> <% val = request("val") %> CC Collect <% If val = "1" Then %> <%Else%> <%End if%>