<%@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='Cone' 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 Neodymium Horseshoe Magnets
;
SuperMagnetMan's Super
Horseshoe Magnets
Click Here for ONLINE ORDERING
This is a giant neodymium horseshoe magnet. I also have these in smaller sizes, but for people wanting to explore incredible power
of massive neodymium magnetic fields, this is perfect. As you see each segment
has been specially magnetized so that the flux follows the arc segments to
make each of the 2 inch square faces a separate pole. This monster weighs 10
pounds and takes about 8 weeks lead time to get one. Order online at our ecommerce site
- www.supermagnetman.net.
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.
Thanks, George Mizzell, The SuperMagnetMan
<%
List_Of_Types.Close()
Set List_Of_Types = Nothing
%>
<%
List_Of_Magnets.Close()
Set List_Of_Magnets = Nothing
%>