Click on a state to find a regional representative near you.
Licensed in:
| Alabama | Alaska | Arizona | Arkansas | California | Colorado | Connecticut | Delaware | District of Columbia | Florida | Georgia | Hawaii | Idaho | Illinois | Indiana | Iowa | Kansas | Kentucky | Louisiana | Maine | Maryland | Massachusetts | Michigan |Minnesota | Mississippi | Missouri | Montana | Nebraska | Nevada | New Hampshire | New Mexico | North Carolina | North Dakota | Ohio | Oklahoma | Oregon | Pennsylvania | Rhode Island | South Carolina | South Dakota | Tennessee | Texas | Utah | Vermont | Virginia | Washington | West Virginia | Wisconsin | Wyoming |
 
| International Office (Europe) |

 
Not licensed in:
| New Jersey | New York |
<% Else %> <% Dim objRS Dim strState Dim strSQL strState = Request("state") Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM Reps WHERE StateAffiliationAbbrev LIKE '%," & strState &"%' OR StateAffiliationAbbrev LIKE '%" & strState &",%' ORDER BY LastName;" 'response.write strSQL objRS.Open strSQL, strConnect Response.Write("") Do Until objRS.EOF Response.Write("") If objRS.Fields("RepNum") = "9084" Then Response.Write("") Else Response.Write("") End If Response.Write("") objRS.MoveNext Loop Response.Write("
 ") If objRS.Fields("CompanyName") <> "" Then Response.Write(objRS.Fields("CompanyName") & "
") End If Response.Write("" & objRS.Fields("FirstName") & " ") If objRS.Fields("MI") <> "" Then Response.Write(objRS.Fields("MI") & ". ") End If If objRS.Fields("Title") <> "" Then Response.Write(objRS.Fields("LastName") & ", " & objRS.Fields("Title") & "
") Else Response.Write(objRS.Fields("LastName") & "
") End If Response.Write("") If objRS.Fields("Street1") <> "" Then Response.Write(objRS.Fields("Street1") & "
") End If If objRS.Fields("Street2") <> "" Then Response.Write(objRS.Fields("Street2") & "
") End If If objRS.Fields("City") <> "" Then Response.Write(objRS.Fields("City")) End If If objRS.Fields("State") <> "Europe" Then Response.Write(", ") End If If objRS.Fields("State") <> "" Then Response.Write(objRS.Fields("State") & ". ") End If If objRS.Fields("Zip") <> "" Then Response.Write(objRS.Fields("Zip")) End If Response.Write("
 
") If objRS.Fields("FAX") <> "" Then Response.Write("FAX: " & objRS.Fields("FAX") & "
") End If If objRS.Fields("TollFree") <> "" Then Response.Write("Toll Free: " & objRS.Fields("TollFree") & "
") End If If objRS.Fields("Email") <> "" Then Response.Write("Email: " & objRS.Fields("Email") & "
") End If Response.Write("State Affiliations:
" & objRS.Fields("StateAffiliations") & "		 
") objRS.Close Set objRS = Nothing End If %>