<%
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(mm)
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
zz= 1
For i=0 To vCnt
' 필드갯수만큼 ($Query_Fields).가지고온다..
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 ' 객관식일때%>
<%=po_subject%>
