<%
Select Case BID
case "notice" Response.write "
"
case "free" Response.write "
"
case "faq" Response.write "
"
' case "qna" Response.write "질문답변"
' case "haksa" Response.write "이벤트"
End Select
%>
<% DBConnect() %>
<%
Dim oCmd, oRs, oCmd02, oRs02
Dim bbsBody, bImg, tImg
Dim faqMenuImgSrc01, faqMenuImgSrc02, faqMenuImgSrc03
bbsBody = Request("bbsBody")
'##################### 유무료회원에 따른 게시판 접근 제한 ###################
if Session("userid")="skaqnrydbrcj" and BID<>"notice" and BID <> "faq" and BID <> "faq2" and BID <> "faq3" and BID<>"haksa" then
Response.write ""
elseif Session("SESS_APPYPE")<> "Y" and BID <> "faq" and BID <> "faq2" and BID <> "faq3" then
'Response.write ""
'Response.End
end if
%>
<%
select case bbsBody
case "List", ""
%> <%
case "List02"
%> <%
case "View"
%> <%
case "Write"
%> <%
case "Modify"
%> <%
case "Reply"
%> <%
case "Delbbs"
%> <%
end select
%>
<% DBDisconnect() %>