%
nselect = request.querystring("select")
page = request.querystring("page")
if IsEmpty(nselect) then
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "hanmonten", "hanmonten", "4229"
sql="select * from han_qna order by ref desc, re_step asc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 3
on error resume next
rs.pagesize=10
rs.absolutepage=1
page = 1
Set session("rs")= rs
else
if IsEmpty(session("rs")) then
response.redirect("b_search.asp")
end if
'********湮 ȸ ϱ
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open "hanmonten", "hanmonten", "4229"
sql="select * from han_qna order by ref desc, re_step asc"
rs.open sql, conn, 3
on error resume next
rs.pagesize=10
select case nselect
case 1
if int(page) > 1 then
page = page-1
rs.absolutepage = page
else
page=1
rs.absolutepage = page
end if
case 2
if int(page) < rs.pagecount then
page = page + 1
rs.absolutepage = page
else
page=rs.pagecount
rs.absolutepage = page
end if
case 3
rs.absolutepage = page
end select
end if
ncount = rs.pagesize
%>