Home
병원소개
유앤아이 소식지

<% SQL = "SELECT idx, (SELECT categoryName FROM TB_NOTICE_CATEGORY WHERE categoryNo = A.categoryNo) AS categoryName, subject, writeDate, hit FROM " & tableName & " A" If keyWord <> "" Then '검색 SQL = SQL & " WHERE " & field & " LIKE '%" & keyWord & "%' " End If If sortValue <> "" Then '정렬 SQL = SQL & " WHERE " & sortName & " = '" & sortValue & "' " End If SQL = SQL & " ORDER BY writeDate DESC" Set RS = Dbcon.Execute(SQL) RS.PageSize = 20 '페이지당 리스트 수 totalpage = RS.PageCount '총 페이지 수 i=1 If RS.eof Then %> <% Else RS.AbsolutePage = gotopage '지정된 페이지로 현재 위치 이동 listnum = RS.RecordCount-(gotopage-1)*RS.PageSize Do Until RS.eof Or i > RS.PageSize idx = RS("idx") categoryName = RS("categoryName") subject = RS("subject") : If Len(subject) > 41 Then subject = Left(subject, 40) & ".." : writeDate = DateValue(RS("writeDate")) hit = RS("hit") '새글 New 아이콘 표시 If GetNewBoardTime(24, RS("writeDate")) = True Then strNew = "

" Else strNew = "" End If If (i Mod 2) = 0 Then bgImg = "images/bg01.gif" Else bgImg = "images/bg02.gif" End If %> <% If Session("admin_div") > 0 Then writeDate = writeDate & " " & formatdatetime(RS("writeDate"), 4) & ":" & Right(RS("writeDate"), 2) %> <% Else %> <% End If %> <% i = i + 1 listnum = listnum - 1 RS.MoveNext Loop End If RS.Close Set RS = Nothing %>

번호	전체소식 <% '관리내용 불러오기 Dim c_categoryNo, c_categoryName SQL = "SELECT * FROM TB_NOTICE_CATEGORY" Set RS = Dbcon.Execute(SQL) If RS.eof = false Then Do Until RS.Eof c_categoryNo = RS(0) c_categoryName = RS(1) %> <%=c_categoryName%> <% RS.MoveNext Loop End If RS.Close : Set RS = Nothing %>	제목	등록일	조회
등록된 게시물이 없습니다.
<%=listnum%>	<%=categoryName%>	<%=subject%> <%=strNew%>			<%=writeDate%>	<%=hit%>

<% If Session("admin_div") > 0 Then %> <% End If %> <% Set listNum = New PageNavi listNum.Initial "intro04.asp?vSort="&vSort&"&gSort="&gSort&"&sSort="&sSort&"&vKeyType="&vKeyType&"&vUserName="&vUserName&"&vUserId="&vUserId&"&branchCode="&branchCode&"&vSid1="&vSid1&"&vSid2="&vSid2,10,gotopage,totalpage,search_category,searchString,optionstr,"

","

" listNum.pagePrint Set listNum = nothing %> <% If Session("admin_div") > 0 Then %>

<% End If %>