<%
response.end
end if
ae = request("ae")
ak = request("ak")
if ae <> "" then
Select case ae
case "title"
SQL = "Select * From one where Subject Like '%"&ak&"%'"
case "author"
SQL = "Select * From one where name Like '%"&ak&"%'"
end select
Set rs = GetMdbStaticRecordset( "board.mdb", SQL )
else
sql1 = request("sql1")
if sql1 = "" or sql1= "nowitime" then
SQL = "Select * From one Order By nowitime Desc"
Set rs = GetMdbStaticRecordset( "board.mdb", SQL )
end if
if sql1 = "nowtime" then
SQL = "Select * From one Order By nowtime Desc"
Set rs = GetMdbStaticRecordset( "board.mdb", SQL )
end if
end if
if sql1 = "pick" then
SQL = "Select * From one where pick=1"
Set rs = GetMdbStaticRecordset( "board.mdb", SQL )
end if
rs.pagesize = rst("allpage")
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
if rs.eof then
%><% if ae <> "" then %>
