<% po_pk = InputValue(request("po_pk")) ' 레코드필드 R_Fields = "po_idx, po_subject, po_group, po_addid, po_sdate, po_edate, po_chk, po_code, po_pk, po_wdate, po_mdate, po_count" R_tablename_str = "poll " R_WHERE_str = " WHERE po_pk="&po_pk Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str) If po_sdate = "" then po_sdate_y = Year(now) po_sdate_m = Month(now) po_sdate_d = Day(now) Else po_sdate_arr = split(po_sdate, "-") po_sdate_y = po_sdate_arr(0) po_sdate_m = po_sdate_arr(1) po_sdate_d = po_sdate_arr(2) End if If po_edate = "" Then nm = DateAdd("m", 1, now) po_edate_y = Year(nm) po_edate_m = Month(nm) po_edate_d = Day(nm) else po_edate_arr = split(po_edate, "-") po_edate_y = po_edate_arr(0) po_edate_m = po_edate_arr(1) po_edate_d = po_edate_arr(2) End If If Len(po_sdate_m)=1 Then po_sdate_m = "0" & po_sdate_m If Len(po_sdate_d)=1 Then po_sdate_d = "0" & po_sdate_d If Len(po_edate_m)=1 Then po_edate_m = "0" & po_edate_m If Len(po_edate_d)=1 Then po_edate_d = "0" & po_edate_d ' 등급별 권한설정 ----------------------------------------------- if session("ss_g_num") = "" then g_num = 2 ' 비회원2 , 총관리자 1 else g_num = session("ss_g_num") End if g_num_str = "["&g_num&"]" If InStr(po_group, g_num_str)=0 Then Call Back_back("참가권한이 없습니다.") response.end End if ' ----------------------------------------------- ' 테이블 기본 환경설정 ******************************************************************************** table = "poll_question" ' 테이블명 idx_field = "poq_idx" ' 기본키 oreder_filed = "poq_code ASC" ' 정렬기준 필드 Query_Fields = "poq_idx ,po_pk ,poq_code, poq_topmemo, poq_question, poq_type, poq_multi, poq_chk, poq_bogi1, poq_bogi2, poq_bogi3, poq_bogi4, poq_bogi5, poq_wdate, poq_mdate" ' 불러올 필드 ' **************************************************************************************************** ' ---------------조합 쿼리문------------------------------------ If v_keyword <> "" then search_str = " AND "&v_search&" like '%"&v_keyword&"%'" End If Query_OrderBy = " ORDER BY "&oreder_filed ' --------------------------------------------------------------- ' -----------------------------리스트 출력 쿼리문 생성----------------------------- sql = "select "&Query_Fields&" from "&table&" WHERE po_pk = "&po_pk&" AND poq_chk = 'Y' " sql = sql & search_str & search_str2 & Query_OrderBy Set Rs = Dbcon.Execute (sql) If Not rs.eof Then vData = rs.getrows() vCnt = UBound(vData,2) Else vCnt = -1 End If rs.close : Set rs = Nothing ' --------------------------------------------------------------------------------- %>
" />
설문주제 <%=po_subject%>
  • 기     간 : <%=po_sdate_y%>년 <%=po_sdate_m%>월 <%=po_sdate_d%>일 ~ <%=po_edate_y%>년 <%=po_edate_m%>월 <%=po_edate_d%>일
  • 총문항수 : <%=total%> 문항
  • 참여자수 : <%=po_count%> 명
<% If vCnt>-1 Then For i=0 To vCnt Call arr2Value(Query_Fields, "vData", i) If poq_chk ="Y" then poq_chk_str = "사용" else poq_chk_str = "중지" End If %>
설문문항 리스트 <%If poq_type = "1" then ' 객관식일때%> <% Else ' 주관식일때.%> <%End if%>
리스트
<%=i+1%> <%=poq_question%>
<% For z=1 To 5 execute("poq_bogi = poq_bogi"&z) If poq_bogi <> "" then ' 잇을때 %>
<% End if next %>
<% next End if %>
목록