<%
reqfind = Request("search")
currentpage=TRIM(request("currentpage"))
if currentpage = "" then
currentpage=1
end if
Set rsch = Server.CreateObject("ADODB.Recordset")
strSql="select coursename, major, categoryname from courses, categories where courses.categoryid = categories.categoryid order by coursename, major"
rsch.Open strSQL,Conn,3,1
rsch.PageSize = 10
rsch.AbsolutePage = currentpage
rowcount = 0
%>