<% ct = request("ct") & "" if ct = "Metrology/Material_Testing" then keywords = "Metrology Material Testing, Universal Coating Thickness Gage, Integrated Coating Thickness Gage, Ferrous Non-Ferrous Coating Thickness Gage, Benchtop Hardness Testers, Rockwell Hardness Tester, Analog Superficial Rockwell Hardness Tester, Digital Rockwell Hardness Tester, Digital Twin Hardness Tester, Brinell Hardness Tester, Portable Hardness Tester, Universal Hardness Tester, Dynamic Portable Hardness Tester, Case Hardening, Gear Hardness, Durometers, Surface Roughness Tester, Thickness Gage, Ultrasonic Thickness Gage, Wall Thickness Gage, Borescopes, Scope, " & _ "Hardness Tester Calibration, Rockwell Tester Service" elseif ct = "Shop_Supplies" then keywords = "Shop Supplies, Arbor Press, C-Clamps, Demagnetizer, Diamond File Sets, End Mill Sharpener, Hand Tapper, Machine Counter, Parts Washer, Stamp Sets, Transfer Punch Set" else keywords = "Precision Measuring Instruments, Quality, Inspection, Gaging, Gages, Dimensional Gage, Gauges, Linear Measuring Tools, Machinist, Quality Control, SPC, Measuring, Portable, Testing Instruments, Machining, Industrial, Instrumentation, Metrology, Indexes, Dividing Heads, Boring, Milling, Turning, Cutting Tools, Machine Tool Accessories, Machine, Machine Tool, Metalworking, Heat Treating, Hardness, Hardness Testers, Surface Roughness Testers, Coating, Coating Thickness Gages, Ultrasonic, Ultrasonic Gages, Durometers, Rotary Tables, Spacers, Collet Index, " & _ "Calipers, Micrometers, Gage Blocks, Quick Change Tool Post and Holders, Lathe Chucks, Radius Dressers, Arbor Presses, Vises, Collets, Drill Chucks, End Mills, End Mill Holders, EDM, EDM Tooling, Drills, Taps, Carbide, Carbide Inserts, Indexable Tools, Parallels, Abrasives, Dial, Dial Indicators, Indicators, Test Indicators, Magnetic Bases, Surface Plates, Borescopes, Industrial Distributors, Precision Levels, Safety Shields, Digital Indicators, Boring Heads, Boring Bars, Live Centers, ER Collet, Arbors, Clamping Kits, Clamps, Coolant Testers, V-Blocks, " & _ "Angle Blocks, Precision, CNC Wrench, Retention knob, Wrench, Fixtures,ROCKWELL HARDNESS TESTER CALIBRATION, ROCKWELL HARDNESS TESTER SERVICE, ROCKWELL HARDNESS TEST BLOCKS, HARDNESS TESTER ACCESSORIES, NIST TRACEABLE TEST BLOCKS, DIGITAL DUROMETERS, SUPERFICIAL HARDNESS TESTER, NDT, ULTRASONIC, TESTING, NONDESTRUCTIVE TESTING, SURFACE FINISH, BORESCOPE, SCOPE, RIDGID BORESCOPE, FLEXIBLE BORESCOPE, FIBERSCOPE, FLEXIBLE FIBERSCOPE, NDT INSTRUMENTS, MATERIAL TESTING" end if ct = replace(ct,"_"," ") %> <%=ucase(ct)%>
 
<% CatID = request("CatID") & "" strSQL = "select * from Categories where CategoryID = " & CatID set rs = server.createobject("adodb.recordset") rs.open strSQL, con if not rs.eof then CategoryName = rs("CategoryName") & "" Prod_Picture = rs("Prod_Picture") & "" end if rs.close if Prod_Picture <> "" then response.write "

" 'perform search prod = request("prod") & "" %>
<%=CategoryName%>
Click on the product for more information. Back to Categories    
<% strSQL = "select * from vw_Products where ProductID > 0" if prod <> "" then strSQL = strSQL & " and (ProductName like '%" & replace(prod,"'","''") &"%' or ProductNumber like '%" & replace(prod,"'","''") & "%')" end if if cint(CatID) > 0 then strSQL = strSQL & " and CategoryID = " & CatID end if rs.open strSQL, con if not rs.eof then response.write "" 'response.write "" ctr = 0 Prev_GroupID = 0 while not rs.eof ctr = ctr + 1 GroupID = rs("GroupID") & "" GroupName = rs("GroupName") & "" if GroupID <> Prev_GroupID then Prev_GroupID = GroupID ctr = 0 if GroupID = 0 then GroupName = "Products" response.write "" end if ProductID = rs("ProductID") & "" ProductName = rs("ProductName") & "" ProductNumber = rs("ProductNumber") & "" SubTitle = rs("SubTitle") & "" CategoryName = rs("CategoryName") & "" if ctr mod 2 = 0 then bgcolor = "#ffffff" else bgcolor = "#efefef" end if response.write "" if GroupID = 0 then response.write "" else response.write "" end if 'response.write "" response.write "" rs.movenext wend response.write "
Product Name
" & GroupName & ":
" & ProductName if SubTitle <> "" then response.write " - " & SubTitle response.write "" & ProductNumber if SubTitle <> "" then response.write " - " & SubTitle response.write "" & ProductName & "
" end if rs.close set rs = nothing %>
 
<% con.close set con = nothing %>