<%
const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
dim keyword
keyword=trim(request("keyword"))
typename=request.Querystring("typename")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
