|
<%
Dim pid, rs, sql
pid = Request.QueryString("pid")
If Not IsNumeric(Trim(pid)) Then
Response.Write " " Response.Write " ไม่พบรายการสินค้าที่ต้องการ กรุณาเลือกรายการสินค้าใหม่อีกครั้ง " Response.End End If If ConnectDB() = True Then sql = "select * from products p inner join categories c on p.catid=c.catid " & _ "where p.pid="& pid &" And " & _ "p.pactive=True And c.catactive=True " & _ "order by pcode" Set rs = Conn.Execute(sql) If rs.BOF Or rs.EOF Then Response.Write "" Response.Write " ไม่พบรายการสินค้าที่ต้องการ กรุณาเลือกหมวดหมู่สินค้าใหม่อีกครั้ง " Response.End End If %>
<% rs.Close Set rs = Nothing End If %> |
