Ayushi

<%response.Buffer=true%> <% code=Request.QueryString("code") code1=Request.QueryString("code1") price=Request.QueryString("pr") 'response.Write code &"code..." 'response.Write code1 &"code1..." 'response.Write price &"price..." session("number")=Request.QueryString("icode") 'response.Write session("number") &"number...." 'response.Write session("number") if Request.QueryString("opt")="delete" then keycode=Request.QueryString("keycode") Set rs1 = Server.CreateObject("ADODB.Recordset") sql="delete * from temp_order1 where sno1="& keycode &"" rs1.open sql,conn,1,2 end if %> <% dim rs4 qty=Request.Form("qty") price=price Set rs4 = Server.CreateObject("ADODB.Recordset") sql="select * from mas_product where prod_no='"& session("number") &"'" 'response.Write sql rs4.open sql,conn,1,2 if not rs4.eof then name=rs4("desc") weight=rs4("NetWt") end if %> <% if session("number")<>"" then session("cartCreated")="create" end if Set rs1 = Server.CreateObject("ADODB.Recordset") sql="select max(sno1) from order_quantity" if rs1.state=1 then rs.close rs1.open sql,conn,1,2 if not rs1.eof then if isnull(rs1(0))=true then sno=1 else sno=rs1(0)+1 end if end if %> <% Set rs = Server.CreateObject("ADODB.Recordset") if session("number")<>"" then sql="select * from order_quantity " rs.open sql,conn,1,2 'if rs.eof then rs.addnew rs("sno1")=sno rs("Order_productid")=session("number") rs("price")=price rs("Quntity")=qty rs("weight")=weight rs("name")=name rs.update end if 'end if %> <% Set rs1 = Server.CreateObject("ADODB.Recordset") sql="select max(sno1) from temp_order1 " if rs1.state=1 then rs.close rs1.open sql,conn,1,2 if not rs1.eof then if isnull(rs1(0))=true then sno=1 else sno=rs1(0)+1 end if end if Set rs = Server.CreateObject("ADODB.Recordset") if session("number")<>"" then sql="select * from temp_order1 " if rs.state=1 then rs.close rs.open sql,conn,1,2 rs.addnew rs("sno1")=sno 'rs("Order_id")=sno rs("Order_productid")=session("number") rs("price")=price rs("Quntity")=qty rs("weight")=weight rs("name")=name rs("sessionid")=session("sid") rs.update end if session("number")="" %> <% set rst=server.CreateObject("adodb.recordset") sqlt="select count(Order_productid) as tot from temp_order1" if rst.state=1 then rst.close rst.open sqlt,conn,1,2 if not rst.eof then session("tot")=rst(0) end if %> Ayushi

<%if session("username")<>"" then%> <%end if%>

Herb Grinder/ Pollenator

Tobbaco Poyches/ Tool Kit

Hukaa

Incence

About us

Welcome to Ball Grinder, where creativity, simplicity and constant improvement create some of the best and innovative and held grinders in the grinding industry. Developed for the connoisseur of fine herbs and spices, our intent is to rovide you, our customer, with the ability to operate a simple hand held device with ease and offer features that surpass other grinders in the market

We have a variety of grinders available, ready for you to use. They are ergonomically designed and are both finger friendly and visually appealing. In fact, they are so fun to use that you will probably want to "twist and turn" one in your spare time... a smooth glide!

We are fast growing company producing Smoking accessories and specialized in all kinds of tobacco grinder and smoking accessories. We are 100% E.O.U status company (Export oriented unit) and D&B rated. Our DUNS no. 65-008-9308.

We mainly exporting our products to Europe & north America. Our quality control is excellent and delivery is prompt.

"OUR GOAL IS TO HELP YOU REACH YOURS"