<%
poq_idx = InputValue(request("poq_idx"))
sun = InputValue(request("sun"))
' 레코드필드
R_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"
R_tablename_str = "poll_question "
R_WHERE_str = " WHERE poq_idx="&poq_idx
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
' 테이블 기본 환경설정 ********************************************************************************
table = "poll_result" ' 테이블명
idx_field = "por_idx" ' 기본키
oreder_filed = "por_wdate DESC" ' 정렬기준 필드
Query_Fields = "por_idx, por_result, por_mid, por_wdate, po_pk, poq_idx, por_ip" ' 불러올 필드
' ****************************************************************************************************
' ---------------조합 쿼리문------------------------------------
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_idx = '"&poq_idx&"' "
sql = sql &search_str & search_str2 & Query_OrderBy
Set Rs = Dbcon.Execute (sql)
If rs.eof Then
vCnt =-1
Else
vData = rs.getrows()
vCnt = UBound(vData,2)
End If
rs.close : Set rs = nothing
' ---------------------------------------------------------------------------------
%>
설문조사 결과보기
