<%@ Language="VBScript" %> <% Response.Status="301 Moved Permanently" Response.AddHeader "Location", "http://goatthroat.com/complete-chemical-liquid-compatibility-guide/" Response.End %> <% sqlConnect curtab = "6" sChemical = Request.QueryString("chemical") sProductID = Request.QueryString("productid") sPrefix = Request.QueryString("prefix") set oRatingMap = Server.CreateObject("Scripting.Dictionary") oRatingMap.Add "A", "Best" oRatingMap.Add "B", "Good" oRatingMap.Add "C", "Caution" oRatingMap.Add "D", "Do Not Use" oRatingMap.Add null, "[n/r]" aAlphabet = Array("_","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") getSql("SET SQL_BIG_SELECTS=1") set oProducts = getSql("SELECT * FROM ChemRatedProducts ORDER BY Name") set oProdGroup = Server.CreateObject("Scripting.Dictionary") do while not oProducts.EOF oProdGroup.Add CInt(oProducts("ID")), CStr(oProducts("Name")) oProducts.MoveNext loop %> GoatThroat Compatibility Guide
Liquids and Chemicals Compatibility Guide
<% set oChemicalList = Nothing if (sPrefix <> "" OR sChemical <> "") then sqlString = "SELECT cl.Notes, cl.Name" for each sKey in oProdGroup.Keys sqlString = sqlString & ", p" & sKey & ".Rating AS r" & sKey next sqlString = sqlString & " FROM ChemList cl" for each sKey in oProdGroup.Keys sqlString = sqlString &_ " LEFT OUTER JOIN (SELECT r.ChemListID, r.Rating FROM ChemRatings r WHERE r.RatedProductID='" & sKey & "')" &_ " p" & sKey & " ON p" & sKey & ".ChemListID = cl.ID" next if (sPrefix <> "") then if (sPrefix <> "*") AND (sPrefix <> "_") then sqlString = sqlString & " WHERE Name LIKE '" & sPrefix & "%'" elseif (sPrefix = "_") then sqlString = sqlString & " WHERE " for n = 1 to UBound(aAlphabet) sqlString = sqlString & "(Name NOT LIKE '" & aAlphabet(n) & "%') AND " next sqlString = Left(sqlString, Len(sqlString) - 4) end if else sqlString = sqlString & " WHERE Name LIKE '%" & sChemical & "%'" end if sqlString = sqlString & " ORDER BY Name" set oChemicalList = getSql(sqlString) PrintChemicalGuide(oChemicalList) elseif (sProductID <> "") then sqlString = "SELECT l.Notes, l.Name, r.Rating FROM ChemList l LEFT OUTER JOIN ChemRatings r ON r.ChemListID = l.ID WHERE r.RatedProductID='" & sProductID & "'" set oChemicalList = getSql(sqlString) PrintChemicalGuide(oChemicalList) else MainPageContent end if %>

WARNING: Do not use GoatThroat pumps with Hydrofluoric Acid, Jaguar, Morpholine or Tigrex.

CAPITAL LETTERS in compatibility list denote brand names. Viton is a registered trademark of DuPont Dow Elastomers. All other brand name trademarks and registered trademarks are the property of their respective corporations.

Home - How it Works - Applications - Accessories - Chem Guide - Ordering - Distributors - Hints & Tips - More Info
Copyright 2002 Westcott Distribution, Inc. See our
legal notice.

<% sqlDisconnect Sub MainPageContent %>
View Chemical Compatibility Guide by GoatThroat Product:
<% oProducts.MoveFirst Response.Write("") nIndex = 0 do while not oProducts.eof if (nIndex MOD 3 = 0) then if (nIndex <> 0) then response.write("") Response.Write("") end if Response.Write("") end if nIndex = nIndex + 1 oProducts.MoveNext if (oProducts.EOF) then response.Write("") loop Response.Write("
") Response.Write("
") if(oProducts("Name") = "Specialty Guides") then Response.Write("" & oProducts("Name") & "") else Response.Write("" & oProducts("Name") & "
") Response.Write(oProducts("Type") & "
") Response.Write(oProducts("Description")) Response.Write("
") %>

This chart works best in Firefox, a free browser from Mozilla.


Search the Chemical Compatibility Guide for a Substance:
<% PrintSearchBlock("") %>
View Chemical Compatibility Guide by Substance:
<% PrintPrefixTable("") %> <% End Sub Sub PrintChemicalGuide(oList) %>

GoatThroat pumps are available in four color-coded models to handle almost any liquid. Consult list below to find a model appropriate for your applications.

Notes:
Test: Flammable and/or not recommended for use with polypropylene. Test before use.
Wash: Wash pump after each use.
CAPITAL LETTERS denote brand names which may be trademarks or registered trademarks.
Pump Compatibility Ratings:
Best: High compatibility, maximum pump durability
Good: Good compatibility, moderate pump durability
Caution: Can be used in some cases; exercise caution
Do Not Use: Incompatible with this pump type
[n/r]: Not tested or rated for use with this pump type

<% call PrintSearchBlock(sChemical) call PrintPrefixTable(sPrefix) if (oList is Nothing) or (oList.eof) then response.write("
No records were found in the guide for your selected criteria
") else nFieldCount = oList.Fields.Count - 1 response.write("") response.write("") response.write("") response.write("") if (sProductID <> "") then response.write("") else for each sKey in oProdGroup if(oProdGroup(sKey) = "Specialty Guides") then 'response.Write("Speciality Guide") else response.write("") end if next end if response.write("") response.write("") nIndex = 0 DIM ctr ctr = 0 do while not oList.eof response.write("") ctr = oList.Fields.Count if(request("prefix")<>"") then ctr = 6 end if for i = 0 to ctr - 1 sVal = oList.Fields(i).Value 'response.Write(i) if (i > 1) then _ sVal = oRatingMap(sVal) response.write(" 1) then response.write(" align=""center"" width=""70""") response.write(">") if (i = 1) then response.write("" & sVal & "") else response.write(sVal) end if response.write("") next response.write("") oList.MoveNext nIndex = nIndex + 1 loop response.write("") response.write("
NotesLiquid/Chemical" & oProdGroup(CInt(sProductID)) & "" & oProdGroup(sKey) & "
") end if End Sub Sub PrintPrefixTable(sCurrent) response.write("
") response.write("") response.write("") response.write("ALL") for each sKey in aAlphabet response.write("") if (sKey = "_") then response.write("#") else response.write(sKey) response.write("") next response.write("") response.write("
") response.write("
") response.write("
") End Sub Sub PrintSearchBlock(sCurrent) %>
  Search for a Chemical containing:

<% End Sub %>