ASP语句问题！求解

<%
Const MaxPerPage=40
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(SafeRequest("page",1)) then
currentPage=Cint(SafeRequest("page",1))
else
currentPage=1
end if

set rs=server.CreateObject("adodb.recordset")
rs.open "select prename,company,mark,intro,name,id,introduce,price1,price2,discount,pic,stock,spic from product where categoryid in ("& CatList&") and stock >= 0 and recommend<>3 order by adddate desc",conn,1,1
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if

if currentPage=1 then
showContent
showpage totalput,MaxPe

50分求解 asp case语句接收参数问题 简单的asp语句...求解??? asp 搜索语句问题 ASP语句问题 ASP 查询语句问题! asp语句问题 asp循环语句问题 ASP循环语句问题 ASP IF 语句问题 asp语句的问题