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