<%@LANGUAGE="VBSCRIPT"%>
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO" 
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_Connections_STRING
MM_Connections_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Connections/rockwell.mdb") &";User ID=;Password=;"
%>

<%
Dim RecordsetMenu1__MMColParam
RecordsetMenu1__MMColParam = "1"
If (Request.QueryString("CategoryID") <> "") Then 
  RecordsetMenu1__MMColParam = Request.QueryString("CategoryID")
End If
%>
<%
Dim RecordsetMenu1
Dim RecordsetMenu1_numRows

Set RecordsetMenu1 = Server.CreateObject("ADODB.Recordset")
RecordsetMenu1.ActiveConnection = MM_Connections_STRING
RecordsetMenu1.Source = "SELECT * FROM Products WHERE CategoryID = " + Replace(RecordsetMenu1__MMColParam, "'", "''") + ""
RecordsetMenu1.CursorType = 0
RecordsetMenu1.CursorLocation = 2
RecordsetMenu1.LockType = 1
RecordsetMenu1.Open()

RecordsetMenu1_numRows = 0
%>


<%
Dim Recordsetsubmenu1__MMColParam
Recordsetsubmenu1__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then 
  Recordsetsubmenu1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordsetsubmenu1
Dim Recordsetsubmenu1_numRows

Set Recordsetsubmenu1 = Server.CreateObject("ADODB.Recordset")
Recordsetsubmenu1.ActiveConnection = MM_Connections_STRING
Recordsetsubmenu1.Source = "SELECT * FROM Products WHERE CategoryID = " + Replace(Recordsetsubmenu1__MMColParam, "'", "''") + ""
Recordsetsubmenu1.CursorType = 0
Recordsetsubmenu1.CursorLocation = 2
Recordsetsubmenu1.LockType = 1
Recordsetsubmenu1.Open()

Recordsetsubmenu1_numRows = 0
%>
<%
Dim Recordsetsubmenu2__MMColParam
Recordsetsubmenu2__MMColParam = "2"
If (Request("MM_EmptyValue") <> "") Then 
  Recordsetsubmenu2__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordsetsubmenu2
Dim Recordsetsubmenu2_numRows

Set Recordsetsubmenu2 = Server.CreateObject("ADODB.Recordset")
Recordsetsubmenu2.ActiveConnection = MM_Connections_STRING
Recordsetsubmenu2.Source = "SELECT * FROM Products WHERE CategoryID = " + Replace(Recordsetsubmenu2__MMColParam, "'", "''") + ""
Recordsetsubmenu2.CursorType = 0
Recordsetsubmenu2.CursorLocation = 2
Recordsetsubmenu2.LockType = 1
Recordsetsubmenu2.Open()

Recordsetsubmenu2_numRows = 0
%>
<%
Dim Recordsetsubmenu3__MMColParam
Recordsetsubmenu3__MMColParam = "3"
If (Request("MM_EmptyValue") <> "") Then 
  Recordsetsubmenu3__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordsetsubmenu3
Dim Recordsetsubmenu3_numRows

Set Recordsetsubmenu3 = Server.CreateObject("ADODB.Recordset")
Recordsetsubmenu3.ActiveConnection = MM_Connections_STRING
Recordsetsubmenu3.Source = "SELECT * FROM Products WHERE CategoryID = " + Replace(Recordsetsubmenu3__MMColParam, "'", "''") + ""
Recordsetsubmenu3.CursorType = 0
Recordsetsubmenu3.CursorLocation = 2
Recordsetsubmenu3.LockType = 1
Recordsetsubmenu3.Open()

Recordsetsubmenu3_numRows = 0
%>
<%
Dim Recordsetsubmenu4__MMColParam
Recordsetsubmenu4__MMColParam = "4"
If (Request("MM_EmptyValue") <> "") Then 
  Recordsetsubmenu4__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordsetsubmenu4
Dim Recordsetsubmenu4_numRows

Set Recordsetsubmenu4 = Server.CreateObject("ADODB.Recordset")
Recordsetsubmenu4.ActiveConnection = MM_Connections_STRING
Recordsetsubmenu4.Source = "SELECT * FROM Products WHERE CategoryID = " + Replace(Recordsetsubmenu4__MMColParam, "'", "''") + ""
Recordsetsubmenu4.CursorType = 0
Recordsetsubmenu4.CursorLocation = 2
Recordsetsubmenu4.LockType = 1
Recordsetsubmenu4.Open()

Recordsetsubmenu4_numRows = 0
%>
<%
Dim Recordsetsubmenu5__MMColParam
Recordsetsubmenu5__MMColParam = "5"
If (Request("MM_EmptyValue") <> "") Then 
  Recordsetsubmenu5__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordsetsubmenu5
Dim Recordsetsubmenu5_numRows

Set Recordsetsubmenu5 = Server.CreateObject("ADODB.Recordset")
Recordsetsubmenu5.ActiveConnection = MM_Connections_STRING
Recordsetsubmenu5.Source = "SELECT * FROM Products WHERE CategoryID = " + Replace(Recordsetsubmenu5__MMColParam, "'", "''") + ""
Recordsetsubmenu5.CursorType = 0
Recordsetsubmenu5.CursorLocation = 2
Recordsetsubmenu5.LockType = 1
Recordsetsubmenu5.Open()

Recordsetsubmenu5_numRows = 0
%>
<%
Dim Recordsetsubmenu6__MMColParam
Recordsetsubmenu6__MMColParam = "6"
If (Request("MM_EmptyValue") <> "") Then 
  Recordsetsubmenu6__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordsetsubmenu6
Dim Recordsetsubmenu6_numRows

Set Recordsetsubmenu6 = Server.CreateObject("ADODB.Recordset")
Recordsetsubmenu6.ActiveConnection = MM_Connections_STRING
Recordsetsubmenu6.Source = "SELECT * FROM Products WHERE CategoryID = " + Replace(Recordsetsubmenu6__MMColParam, "'", "''") + ""
Recordsetsubmenu6.CursorType = 0
Recordsetsubmenu6.CursorLocation = 2
Recordsetsubmenu6.LockType = 1
Recordsetsubmenu6.Open()

Recordsetsubmenu6_numRows = 0
%>


<html>
<head>
<title>Rockwell Abrasives</title>
<style type="text/css">
@import url("global.css");
</style>
</head>
<body>
<div id="container">
	<div id="main">
		<div id="toppart">
			<div id="leftcolumn">
				<div id="mainheader">
					<h1>Rockwell Abrasives</h1>
				</div>
				
				<div class="Article">
				  <h2>Products >> <a href="menu5.asp?CategoryID=5">Profile Tools</a></h2>

					<div class="ArticleBody">
						<h3>Profile Tools</h3>

						<div id="ceramicpadimage"
							style="
								width: auto;
								background-color: #ffffff;
								height: 100px;
								margin: 4px 0 10px 0;
								border: 1px dotted #b0b0b0;
							"><img src="i/banner-profiletools.jpg" /></div>

						<p></p>
						
						<div id="submenulist">
							
							
<!--put by kelly about get the subcategoryname-->

		
		<% 
While ((NOT RecordsetMenu1.EOF)) 
%>	
		
		
<a href="products.asp?ProductID=<%=RecordsetMenu1.Fields.Item("ProductID").Value%>"><span>
  <%=(RecordsetMenu1.Fields.Item("ProductName").Value)%></span></a>
  
   <% 
  RecordsetMenu1.MoveNext()
Wend
%>				
							
							
						</div>

					</div>
					<div class="ArticleFooter">
					  <p>&nbsp;</p>
					</div>
				</div>

			</div>
			<div id="rightcolumn">
				<div id="productmenu">
					<h3>Products</h3>
<a onclick="if(this.blur())this.blur();" href="menu1.asp?CategoryID=1">Polishing Pads</a>
				
			
<%if Request("CategoryID")=1 or Request("CategoryID")="" then %>						
					
<div id="productsubmenu">			

	
<% 
While ((NOT Recordsetsubmenu1.EOF)) 
%>						
		<a onclick="if(this.blur())this.blur();" href="products.asp?ProductID=<%=Recordsetsubmenu1.Fields.Item("ProductID").Value%>&CategoryID=<%=Recordsetsubmenu1.Fields.Item("CategoryID").Value%>"> <%=(Recordsetsubmenu1.Fields.Item("ProductName").Value)%></a>
		
							
			 <% 
  Recordsetsubmenu1.MoveNext()
Wend 
%>				
<%
Recordsetsubmenu1.Close()
Set Recordsetsubmenu1 = Nothing
%>
							
</div>

<% end if%>


<a onclick="if(this.blur())this.blur();" href="menu2.asp?CategoryID=2">Diamond Blades</a>


<%if Request("CategoryID")=2 then %>	
<div id="productsubmenu">				
<% 
While ((NOT Recordsetsubmenu2.EOF)) 
%>						
		<a onclick="if(this.blur())this.blur();" href="products.asp?ProductID=<%=Recordsetsubmenu2.Fields.Item("ProductID").Value%>&CategoryID=<%=Recordsetsubmenu2.Fields.Item("CategoryID").Value%>">
		<%=(Recordsetsubmenu2.Fields.Item("ProductName").Value)%></a>
		
							
			 <% 
  Recordsetsubmenu2.MoveNext()
Wend
%>				
<%
Recordsetsubmenu2.Close()
Set Recordsetsubmenu2 = Nothing
%>
							
</div>
<% end if%>


<a onclick="if(this.blur())this.blur();" href="menu3.asp?CategoryID=3">Grinding Wheels</a>


<%if Request("CategoryID")=3 then %>	
<div id="productsubmenu">				
<% 
While ((NOT Recordsetsubmenu3.EOF)) 
%>						
		<a onclick="if(this.blur())this.blur();" href="products.asp?ProductID=<%=Recordsetsubmenu3.Fields.Item("ProductID").Value%>&CategoryID=<%=Recordsetsubmenu3.Fields.Item("CategoryID").Value%>"><%=(Recordsetsubmenu3.Fields.Item("ProductName").Value)%></a>
		
							
			 <% 
  Recordsetsubmenu3.MoveNext()
Wend
%>				
<%
Recordsetsubmenu3.Close()
Set Recordsetsubmenu3 = Nothing
%>
							
</div>

<% end if%>


<a onclick="if(this.blur())this.blur();" href="menu4.asp?CategoryID=4">Air & Power Tools</a>


<%if Request("CategoryID")=4 then %>
<div id="productsubmenu">				
<% 
While ((NOT Recordsetsubmenu4.EOF)) 
%>						
		<a onclick="if(this.blur())this.blur();" href="products.asp?ProductID=<%=Recordsetsubmenu4.Fields.Item("ProductID").Value%>&CategoryID=<%=Recordsetsubmenu4.Fields.Item("CategoryID").Value%>"><%=(Recordsetsubmenu4.Fields.Item("ProductName").Value)%></a>
		
							
			 <% 
  Recordsetsubmenu4.MoveNext()
Wend
%>				
<%
Recordsetsubmenu4.Close()
Set Recordsetsubmenu4 = Nothing
%>
							
</div>
<% end if%>


	<span>Profile Tools</span>
		<%if Request("CategoryID")=5 then %>
<div id="productsubmenu">				
<% 
While ((NOT Recordsetsubmenu5.EOF)) 
%>						
		<a onclick="if(this.blur())this.blur();" href="products.asp?ProductID=<%=Recordsetsubmenu5.Fields.Item("ProductID").Value%>&CategoryID=<%=Recordsetsubmenu5.Fields.Item("CategoryID").Value%>"><%=(Recordsetsubmenu5.Fields.Item("ProductName").Value)%></a>
		
							
			 <% 
  Recordsetsubmenu5.MoveNext()
Wend
%>				
<%
Recordsetsubmenu5.Close()
Set Recordsetsubmenu5 = Nothing
%>
							
</div>
<% end if%>

	<a onclick="if(this.blur())this.blur();" href="menu6.asp?CategoryID=6">Accessories</a>
				
				
<%if Request("CategoryID")=6 then %>

<div id="productsubmenu">				
<% 
While ((NOT Recordsetsubmenu6.EOF)) 
%>						
		<a onclick="if(this.blur())this.blur();" href="products.asp?ProductID=<%=Recordsetsubmenu6.Fields.Item("ProductID").Value%>&CategoryID=<%=Recordsetsubmenu6.Fields.Item("CategoryID").Value%>"><%=(Recordsetsubmenu6.Fields.Item("ProductName").Value)%></a>
		
							
			 <% 
  Recordsetsubmenu6.MoveNext()
Wend
%>				
<%
Recordsetsubmenu6.Close()
Set Recordsetsubmenu6 = Nothing
%>
							
</div>
<% end if%>
				
				
				</div>
			</div>
		</div>
		<div id="mainfooter">
			<div id="lowernav">
				<h2>Navigation</h2>
				<a id="navhome" href="index.html"><span>Home</span></a>
				<a id="navaboutus" href="aboutus.html"><span>About Us</span></a>
				<a id="navcontactus" href="contact.html"><span>Contact Us</span></a>
				<a id="navsafetyinfo" href="#"><span>Safety Info</span></a>
				<a id="navtermsandconditions" href="terms.html"><span>Terms and Conditions</span></a>
			</div>
			<div id="copyright">
				<h2>Copyright (c) 2003 rockwellabrasives.com.  All rights reserved.</h2>
			</div>
		</div>
	</div>
</div>
</body>
</html>
<%
RecordsetMenu1.Close()
Set RecordsetMenu1 = Nothing
%>