|
<%
Dim oDBconn
Set oDBconn = Server.CreateObject("ADODB.Connection")
oDBconn.CursorLocation = 3
oDBconn.Open GetDBConnectionString()
Dim curPage
curPage = Trim(Request("curPage"))
IF curPage = "" Then
curPage = 1
End IF
Dim post_qry
post_qry = "SELECT * FROM E3_News_Announcement WHERE B_Category = 'news' "
Dim orderby_qry
orderby_qry = "Order By News_ID DESC "
Dim rsPost
Set rsPost = ExecutePage(oDBconn, post_qry, Trim(Request("curPage")), orderby_qry)
Dim totCount
totCount = ExecuteCount(oDBconn, post_qry)
Dim strParam
strParam = ""
%>
| [<%=curPage%> / <%=totCount%>] 총 <%=totCount%>개 |
|
| 번호 |
내 용 |
글쓴이 |
등록일 |
|
<%
Dim rowNumber
rowNumber = totCount - ((curPage - 1) * G_PAGE_SIZE)
Do Until rsPost.EOF
%>
| <%=rowNumber%> |
&curPage=<%=curPage%>" border="0"> <%=Trim(rsPost("Title"))%> |
워커힐 |
<%=Month(rsPost("Write_Date"))%>/<%=Day(rsPost("Write_Date"))%>/<%=Year(rsPost("Write_Date"))%> |
|
<%
rowNumber = rowNumber - 1
rsPost.MoveNext
Loop
rsPost.close
set rsPost = Nothing
%>
|
|
|
| <%Response.Write ShowPageBar(Trim(Request("curPage")),"/images/back.gif","/images/next.gif",strParam)%> |
|
|
<%
oDBconn.close
Set oDBconn = Nothing
%>
|
| |
| |
|
|
|
