%@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
<%
rsManufacturers.Close()
Set rsManufacturers = Nothing
%>
<%
rsProductTypes.Close()
Set rsProductTypes = Nothing
%>