<% Open_DataBase() dim pageno dim pagesize PageSize=10 if Request("pageno")="" then pageno=1 else pageno=cint(Request("pageno")) end if '전체 레코드 수 dim datalist, objRs, totalcount, sql, rs sql = "SELECT COUNT(*) FROM news_event" set rs = dbcon.execute(sql) totalcount = clng(rs(0)) rs.close() set rs = nothing sql = "SELECT TOP "&pagesize&" num, kind, title, startdate, enddate, ing FROM news_event " sql = sql &"WHERE num NOT IN (SELECT TOP "&(pageno-1)*pagesize&" num FROM board ORDER BY num DESC) " sql = sql &strSearch&" ORDER BY num DESC" set objRs = dbcon.execute(sql) if not (objRs.EOF or objRs.BOF) then datalist = objRs.Getrows() end if objRs.close() set objRs = nothing Close_DataBase() dim Filename Filename = "event.asp?menu=1" %> + + + 정통 중국레스토랑 만강홍 + + +
  Home > Customer Board > BOARD  
 
 
NO 이벤트 행사내용 행사기간 행사유무
<% if totalcount=0 then %> <% else dim totalcount1, totalcount2, totalpage totalcount1 = clng(totalcount)/pagesize totalcount2 = totalcount1-int(totalcount1) if totalcount2>0 then totalpage = int(totalcount1)+1 else totalpage = int(totalcount1) end if dim count, kind, ing count = clng(totalcount) - (pageno - 1) * Pagesize For i = 0 To ubound(datalist,2) select case datalist(1,i) case "E" kind = "event" case "N" kind = "news" end select select case datalist(5,i) case "1" ing = "진행중" case "2" ing = "종 료" end select %> <% count = count - 1 next end if %>
등록된 글이 없습니다.
<%=count%> <%=datalist(2,i)%> <%if datalist(1,i)="E" then%><%=left(datalist(3,i),4)%>.<%=mid(datalist(3,i),5,2)%>.<%=mid(datalist(3,i),7,2)%> ~ <%=left(datalist(4,i),4)%>.<%=mid(datalist(4,i),5,2)%>.<%=mid(datalist(4,i),7,2)%><%else%> <%end if%> <%if datalist(1,i)="E" then%><%=ing%><%else%> <%end if%>
<%call Paging(Filename, pageno, totalpage)%>
  <%if session("admin")<>"" then%><%end if%>