<%
page = Request("page")
If page = "" or page <= 1 Then
page = 1
End If
categoryid = Request("categoryid")
If categoryid = "" or categoryid < 1 Then
sql = "SELECT top 1 * FROM category "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 1
If Not rs.Eof Then
categoryid=rs("ID")
End If
end if
sql = "SELECT * FROM category where id = "&categoryid&""
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 1
If Not rs.Eof Then
categoryname=rs("Category_Name_en")
Notes_en=rs("Notes_en")
End If
strFileName = "product.asp?categoryid="& categoryid
PageSize = 16
' on error resume next
%>
江门清洁-江门市江鑫清洁服务有限公司
