% dim classes,startdate,enddate,searchstring,currentpage,searcharea dim sql,rs set rs=Server.CreateObject("ADODB.Recordset") classes=request("classes") searchstring=request("searchstring") startdate=request("startdate") if startdate="" then startdate="1900-01-01" end if enddate=request("enddate") if enddate="" then enddate="2010-01-01" end if currentpage=clng(request("page")) if request("searcharea")<>"" then searcharea=request("searcharea") else searcharea="Content" end if sql="SELECT * FROM Article" if classes<>"" then sql=sql&" WHERE Class LIKE '%"&classes&"%'" if searchstring<>"" then sql=sql&" AND "&searcharea&" LIKE '%"&searchstring&"%'" end if if startdate<>"" and enddate<>"" then sql=sql&" AND PubDate BETWEEN #"&startdate&"# AND #"&enddate&"#" end if else if searchstring<>"" then sql=sql&" WHERE "&searcharea&" LIKE '%"&searchstring&"%'" end if if startdate<>"" and enddate<>"" then sql=sql&" AND PubDate BETWEEN #"&startdate&"# AND #"&enddate&"#" end if end if sql=sql&" ORDER BY PubDate DESC" rs.open sql,conn,3,2 if rs.eof then response.redirect("finderror.asp") end if rs.pagesize=15 if currentpage<1 then currentpage=1 end if if currentpage>int(rs.recordcount/rs.pagesize)+1 then currentpage=int(rs.recordcount/rs.pagesize)+1 end if rs.absolutepage=currentpage %>
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||