<% set rs1=server.Createobject("ADODB.recordset") set rs2=server.Createobject("ADODB.recordset") %> <% sub top1() %>

<% end sub sub top() %>

The Best Manufacturer and Exporter of Display Fireworks, Indoor Fireworks, Consumer Fireworks

<% end sub sub left() %>

<% rs1.open("select cat_name,cat_code,cat_id from category ORDER BY cat_id"),conn,1 if rs1.recordcount>0 then do until rs1.eof %> <% rs1.movenext loop end if rs1.close %>


&cat_name=<%=rs1("cat_name")%>"> ± <%=rs1("cat_name")%>

<% end sub sub title() %>

<%=pagename%>

<% end sub sub footer %> <% end sub sub bottom_navigs() %>

	Home \|	Profile \|	Product \|	Factory \|	Display Arrangements \|	Contact Us \|
Copy right © Magix Fireworks.,

<% end sub sub news() %>


	Fireworks originated in China since 2000 years ago. The most prevalent legend for more...


	Statistics show that China is now the largest fireworks producer and exporter in for more...


	At the start of the year three were a total of 7,064 fireworks companies in 26 for more...


	To this day the Liu Yang Region of Hunan Province remains the main for more...


	The world leader in fireworks production, Liuyang since 1998 has spent 500 for more...


	The city has also drawn up a set of strict standards for access fireworks for more...


	The fireworks facility in the city of Liuyang have each installed a 120, 480 US for more...


	Statistics show that China is now the largest fireworks producer and exporter in for more...


	The sector, boasting annual sales of more than 2 billion yuan (US$241 for more...

<% end sub sub product() rs1.open("select pro_code,pro_id,pro_name,pro_img,pro_pack from product where cat_code='" & Request.QueryString("cat_code") & "' "),conn,1 if rs1.recordcount>0 then do until rs1.eof %>

" border="0" width="200" vspace="20" hspace="10" height="200">

<% if rs1("pro_pack")<>"" then %> <% end if %>

<%=rs1("pro_name")%>
Product ID	: <%=rs1("pro_id")%>
Packing	: <%=rs1("pro_pack")%>

<% rs1.movenext loop else dim arrimg() dim arrcount(9) count=0 boolStatus=false rowcount=0 Response.Write("") For i=1 to 9 Randomize intRecord = Int(((25) * Rnd)) For j=0 to 8 if arrcount(j)=intRecord then i=i-1 boolStatus=false exit for else boolStatus=true end if Next if boolStatus=true then arrcount(count)=intRecord count=count+1 rs2.open("select cat_code,cat_img,cat_name from category where cat_id=" & intRecord & ""),conn,1 if rs2.recordcount>0 then 'Response.Write("") if rowcount=3 then rowcount=0 %> <% else %> <% end if rowcount=rowcount+1 end if rs2.close end if Next Response.Write("



&cat_name=<%=rs2("cat_name")%>"> border=1 style=border-color:FF0000> <%=rs2("cat_name")%>	&cat_name=<%=rs2("cat_name")%>"> border=1 style=border-color:FF0000> <%=rs2("cat_name") %>

") ' For i=1 to 5 ' For j=0 to 4 ' Response.Write("

") ' Response.Write("

") ' Next ' Next ' ' end if end if rs1.close end sub %> <% sub search() rs1.open("select a.cat_name,b.pro_code,b.pro_id,b.pro_name,b.pro_img,b.pro_pack from category a,product b where a.cat_code=b.cat_code and b.pro_name like '" & Request.Form("keyword") & "%'"),conn,1 if rs1.recordcount>0 then do until rs1.eof %>

" border="0" width="200" vspace="20" hspace="10" height="200">

<% if rs1("pro_pack")<>"" then %> <% end if %>

<%=rs1("cat_name")%> : <%=rs1("pro_name")%>
Product ID	: <%=rs1("pro_id")%>
Packing	: <%=rs1("pro_pack")%>

<% rs1.movenext loop end if rs1.close end sub %>