<%
srchkey = Request.QueryString("srchkey")
srchval = Request.QueryString("srchval")
if srchkey <> "" then
addqry = " and "&srchkey&" like '%"&srchval&"%' "
end if
Select Case Request.QueryString("page")
Case "" '처음페이지
CurrentPage = 1
Case Else
CurrentPage = cint(Request.QueryString("page"))
End Select
qstr = "&srchkey="&srchkey&"&srchval="&srchval&""
pagesize = 14
Set DbRec =Server.CreateObject("ADODB.Recordset")
Set DbRec1 =Server.CreateObject("ADODB.Recordset")
DbRec.CursorTYPE=1
Source = "SELECT * FROM pressroom WHERE 1=1 "&addqry&" ORDER BY writedate DESC"
DbRec.Open Source, db
DbRec.PageSize = pagesize
lastpage= DbRec.PageCount
if not DbRec.eof then
DbRec.AbsolutePage = currentpage
end if
sql= "SELECT total=count(*) FROM pressroom WHERE 1=1 "&addqry&""
DbRec1.Open sql, db
max=DbRec1("total")
bunho= max-DbRec.PageSize*(currentpage-1)
Set toprec = Server.CreateObject("ADODB.Recordset")
sql = "SELECT TOP 1 * FROM pressroom WHERE chktop='y' ORDER BY writedate DESC"
toprec.Open sql, db, 1
%>
<%
if Not toprec.Eof then
%>
<%
end if
%>
<%
If Not (DbRec.EOF and DbRec.BOF) then
i = 1
set AnsRS = Server.CreateObject("ADODB.RecordSet")
Do until DbRec.EOF Or i> DbRec.PageSize
%>
