|
|
| <%
function findresult1(msql,goption1,goption2,goption3)
dim str1,con1,rs1
set con1=createobject("Adodb.Connection")
con1.open strcon
str1=""
set rs1=server.createobject("ADODB.recordset")
set rs1=con1.execute (msql)
if rs1.eof or rs1.bof then
str1=""
else
rs1.movefirst
str1=rs1.fields(0).value
end if
set rs1=nothing
set con1=nothing
findresult1=str1
end function
catid=request.QueryString("catid")
HEadid=request.QueryString("HEadid")
if len(trim(catid))<=0 then
response.Redirect("index.asp")
end if
currentpage=request("page")
if currentpage="" then
currentpage=1
end if
titlecat=findresult1("select CategoryName from category where ucase(trim(categoryid))='"&ucase(trim(catid))&"'",g1,g2,g3 )
titleHead=findresult1("select headName from producthead where ucase(trim(headid))='"&ucase(trim(headid))&"'",g1,g2,g3 )
msql3="Select * from product "
msql3=msql3&" where ucase(trim(categoryid))='"&ucase(trim(catid))&"' order by prodname"
'msql3=msql3&" order by productid"
dim cnn3,rsn3
set cnn3=createobject("Adodb.Connection")
cnn3.open strcon
Set rsn3 = Server.CreateObject("ADODB.Recordset")
rsn3.cursortype=adopenstatic
RSn3.CursorLocation = 3
rpz=5
rsn3.PageSize =5
rsn3.Open msql3,cnn3,1,2
if rsn3.bof and rsn3.eof then
else
%>
<%
end if
set rsn3=Nothing
set cnn3=Nothing
%>
|
|
|
Sato Treadmill
