<%@LANGUAGE="VBSCRIPT"%> <% Dim rsManufacturers Dim rsManufacturers_numRows Set rsManufacturers = Server.CreateObject("ADODB.Recordset") rsManufacturers.ActiveConnection = MM_DSN_EDMNetwork_Products_STRING rsManufacturers.Source = "SELECT * FROM Manufacturers ORDER BY Manufacturer ASC" rsManufacturers.CursorType = 0 rsManufacturers.CursorLocation = 2 rsManufacturers.LockType = 1 rsManufacturers.Open() rsManufacturers_numRows = 0 %> <% Dim rsProductTypes Dim rsProductTypes_numRows Set rsProductTypes = Server.CreateObject("ADODB.Recordset") rsProductTypes.ActiveConnection = MM_DSN_EDMNetwork_Products_STRING rsProductTypes.Source = "SELECT * FROM ProductTypes ORDER BY ProductType ASC" rsProductTypes.CursorType = 0 rsProductTypes.CursorLocation = 2 rsProductTypes.LockType = 1 rsProductTypes.Open() rsProductTypes_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsManufacturers_numRows = rsManufacturers_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsManufacturers_numRows = rsManufacturers_numRows + Repeat2__numRows %> EDM Consumables, EDM Parts, EDM Repair

EDM Network accepts Visa, Mastercard, Discover & American Express

Consumables

Find Consumables

By Manufacturer

By Type

<% rsManufacturers.Close() Set rsManufacturers = Nothing %> <% rsProductTypes.Close() Set rsProductTypes = Nothing %>