<% Set con = Server.CreateObject("ADODB.Connection") con.open strCon Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from productType" rs.open sql,con,1,3 if not rs.eof then %>
หนังใหม่ประจำวันนี้
หนังใหม่ที่เข้ามาล่าสุด
<% do while not rs.eof %>
">
<%=rs("product_type_name")%>
<%=rs("product_type_describe")%>
<% rs.movenext loop else %>
ยังไม่มีกลุ่มสินค้า
<% end if rs.close con.close %>
genre-series