<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
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='Rectangle' 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 Rectangle Magnets
List of SuperMagnetMan's Super Rectangle Magnets
Click Here for ONLINE ORDERING
This is a page of my neodymium rectangle magnets and large plate magnets. These
will include some of the largest and smallest rectangular magnets you can find.
We have many sizes of rectangle magnets ranging from some very small magnets up to the enormous 6 inch x 4 inch x 0.75 inch thick N45 plates. Check out all of our magnets - 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
%>