<%@LANGUAGE="VBSCRIPT"%> <% set rsStock = Server.CreateObject("ADODB.Recordset") rsStock.ActiveConnection = MM_connMonarch_STRING rsStock.Source = "SELECT * FROM tblMetals" rsStock.CursorType = 0 rsStock.CursorLocation = 2 rsStock.LockType = 3 rsStock.Open() rsStock_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsStock_numRows = rsStock_numRows + Repeat1__numRows %> Monarch Metals

<% While ((Repeat1__numRows <> 0) AND (NOT rsStock.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsStock.MoveNext() Wend %>
Please select a Metal type
"><%=(rsStock.Fields.Item("MetalName").Value)%>

For additional questions, please call Tom or Vicki at:
1-800-949-5909 phone
1-314-428-6002 fax

<% rsStock.Close() %>