% 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 %>