Rockwell Abrasives
Products >> Diamond Blades
Diamond Blades
Our line of diamond blades will aid to exceed your expectations in providing strength, efficiency and durability. These high performance tile and stone blades for hand tools and cutting machines are the best value for your money on the market today.
<%
While ((NOT RecordsetMenu1.EOF))
%>
">
<%=(RecordsetMenu1.Fields.Item("ProductName").Value)%>
<%
RecordsetMenu1.MoveNext()
Wend
%>
Products
Polishing Pads <%if Request("CategoryID")=1 or Request("CategoryID")="" then %>
<%
While ((NOT Recordsetsubmenu1.EOF))
%>
&CategoryID=<%=Recordsetsubmenu1.Fields.Item("CategoryID").Value%>"> <%=(Recordsetsubmenu1.Fields.Item("ProductName").Value)%>
<%
Recordsetsubmenu1.MoveNext()
Wend
%>
<%
Recordsetsubmenu1.Close()
Set Recordsetsubmenu1 = Nothing
%>
<% end if%>
Diamond Blades
<%if Request("CategoryID")=2 then %>
<%
While ((NOT Recordsetsubmenu2.EOF))
%>
&CategoryID=<%=Recordsetsubmenu2.Fields.Item("CategoryID").Value%>">
<%=(Recordsetsubmenu2.Fields.Item("ProductName").Value)%>
<%
Recordsetsubmenu2.MoveNext()
Wend
%>
<%
Recordsetsubmenu2.Close()
Set Recordsetsubmenu2 = Nothing
%>
<% end if%>
Grinding Wheels
<%if Request("CategoryID")=3 then %>
<%
While ((NOT Recordsetsubmenu3.EOF))
%>
&CategoryID=<%=Recordsetsubmenu3.Fields.Item("CategoryID").Value%>"><%=(Recordsetsubmenu3.Fields.Item("ProductName").Value)%>
<%
Recordsetsubmenu3.MoveNext()
Wend
%>
<%
Recordsetsubmenu3.Close()
Set Recordsetsubmenu3 = Nothing
%>
<% end if%>
Air & Power Tools
<%if Request("CategoryID")=4 then %>
<%
While ((NOT Recordsetsubmenu4.EOF))
%>
&CategoryID=<%=Recordsetsubmenu4.Fields.Item("CategoryID").Value%>"><%=(Recordsetsubmenu4.Fields.Item("ProductName").Value)%>
<%
Recordsetsubmenu4.MoveNext()
Wend
%>
<%
Recordsetsubmenu4.Close()
Set Recordsetsubmenu4 = Nothing
%>
<% end if%>
Profile Tools
<%if Request("CategoryID")=5 then %>
<%
While ((NOT Recordsetsubmenu5.EOF))
%>
&CategoryID=<%=Recordsetsubmenu5.Fields.Item("CategoryID").Value%>"><%=(Recordsetsubmenu5.Fields.Item("ProductName").Value)%>
<%
Recordsetsubmenu5.MoveNext()
Wend
%>
<%
Recordsetsubmenu5.Close()
Set Recordsetsubmenu5 = Nothing
%>
<% end if%>
Accessories
<%if Request("CategoryID")=6 then %>
<%
While ((NOT Recordsetsubmenu6.EOF))
%>
&CategoryID=<%=Recordsetsubmenu6.Fields.Item("CategoryID").Value%>"><%=(Recordsetsubmenu6.Fields.Item("ProductName").Value)%>
<%
Recordsetsubmenu6.MoveNext()
Wend
%>
<%
Recordsetsubmenu6.Close()
Set Recordsetsubmenu6 = Nothing
%>
<% end if%>