<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Forward to the new site <% Dim List_Of_Types Dim List_Of_Types_numRows Set List_Of_Types = Server.CreateObject("ADODB.Recordset") List_Of_Types.ActiveConnection = MM_Magnet_Inventory_STRING List_Of_Types.Source = "SELECT DISTINCT Item_Name FROM Inventory ORDER BY Item_Name" List_Of_Types.CursorType = 0 List_Of_Types.CursorLocation = 2 List_Of_Types.LockType = 1 List_Of_Types.Open() List_Of_Types_numRows = 0 %> <% Dim List_Of_Magnets Dim List_Of_Magnets_numRows Set List_Of_Magnets = Server.CreateObject("ADODB.Recordset") List_Of_Magnets.ActiveConnection = MM_Magnet_Inventory_STRING List_Of_Magnets.Source = "SELECT Item_Name, Item_number, Item_Description, Item_Rating, Item_Plating, Item_Price_1, Item_Price_2, Item_Price_3, Item_Qty_Price_1, Item_Qty_Price_2, Item_Photo FROM Inventory WHERE Item_Name='Bundle' ORDER BY Item_number" List_Of_Magnets.CursorType = 0 List_Of_Magnets.CursorLocation = 2 List_Of_Magnets.LockType = 1 List_Of_Magnets.Open() List_Of_Magnets_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 List_Of_Magnets_numRows = List_Of_Magnets_numRows + Repeat1__numRows %>

List of SuperMagnetMan's Super Magnet Bundles

This is a page of SUPER DEALS on SUPER MAGNETS! I have made arrangements to get some of the magnets that do not meet the original customer's specifications due to little nicks or blemishes on the surface due to CNC handling errors. This means that if you can make use of the size bundles that I have, you can get some great magnets and a great price. Just the blemish alone reduces the price from 30-50% off the usual retail prices.

For several years I have been working with students to improve their ACT scores in Math & Science. Now I have developed some videos to help make the science section easier. Check out my ACT Science Preparation Page

Click here to add your own magnet stories or uses for these super magnets - Magnet Uses

Thanks, George Mizzell, The SuperMagnetMan

How to order? Got a question - ask Mr. George

Please submit your order using my ecommerce site - www.supermagnetman.net

Check out our other super magnets - Ceramic Magnets,Clearance Magnets, Cone Magnets , Cube Magnets , Cylinder Magnets, Disc Magnets , Discount Bundles, Hematite Jewelry, Home, Magnet Wedding Rings, Magnetic Hooks, Magnet Pins, Motor Magnets, Neo Magnet Horseshoes, Pyramid Magnets , Radial Neo Rings, Rectangle Magnets, Ring Magnets, Special Magnets, Sphere Magnets, Square Magnets and Steel Spheres

<% While ((Repeat1__numRows <> 0) AND (NOT List_Of_Magnets.EOF)) %> <% Pict_path = List_Of_Magnets.Fields.Item("Item_Photo").Value %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 List_Of_Magnets.MoveNext() Wend %>
Item Number Description  Rating Plating
Price
Price
Price
Photo
<%=(List_Of_Magnets.Fields.Item("Item_Name").Value)%> <%=(List_Of_Magnets.Fields.Item("Item_number").Value)%> <%=(List_Of_Magnets.Fields.Item("Item_Description").Value)%> <%=(List_Of_Magnets.Fields.Item("Item_Rating").Value)%> <%=(List_Of_Magnets.Fields.Item("Item_Plating").Value)%> Up to <%=(List_Of_Magnets.Fields.Item("Item_Qty_Price_1").Value)%> for $<%=(List_Of_Magnets.Fields.Item("Item_Price_1").Value)%> each From <%=(1+(List_Of_Magnets.Fields.Item("Item_Qty_Price_1").Value))%> to <%=(List_Of_Magnets.Fields.Item("Item_Qty_Price_2").Value)%> for $<%=(List_Of_Magnets.Fields.Item("Item_Price_2").Value)%> each Over <%=(List_Of_Magnets.Fields.Item("Item_Qty_Price_2").Value)%> for $<%=(List_Of_Magnets.Fields.Item("Item_Price_3").Value)%> each

 

<% List_Of_Types.Close() Set List_Of_Types = Nothing %> <% List_Of_Magnets.Close() Set List_Of_Magnets = Nothing %>