<%@LANGUAGE="VBSCRIPT"%> <% Call GetRecords("rsTeamLive","","highlight","0","rsTeam") %> Kingfell :: Our Team :: Other Key Staff
Kingfell - Protecting Tomorrow
 

Other Key Contacts

Never before has the quality of the people Kingfell employs been more important, following the adoption of fire safety engineering principles in place of prescriptive measures to resolve fire safety challenges. This has more than validated the company’s commitment to employing only the industry’s top professionals; highly qualified and experienced specialists that are passionate about fire safety and determined to devise and implement the best possible solutions.

<% If (Not rsTeam.EOF Or Not rsTeam.BOF) AND ("A" = "B") Then '*** added A=B to hide for now categoryID_o = 0 %>
    <% While (NOT rsTeam.EOF) categoryID = rsTeam("categoryID") If (categoryID_o <> categoryID) Then %>
  • <%=rsTeam("categoryTitle")%>
  • <% End If categoryID_o = categoryID rsTeam.MoveNext() Wend If (rsTeam.CursorType > 0) Then rsTeam.MoveFirst Else rsTeam.Requery End If %>
<% End If ' Not rsTeam.EOF Or Not rsTeam.BOF %>
<% If Not rsTeam.EOF Or Not rsTeam.BOF Then categoryID_o = 0 strClass = "cream" While (NOT rsTeam.EOF) categoryID = rsTeam("categoryID") categoryTitle = rsTeam("categoryTitle") memberName = rsTeam("memberName") summary = rsTeam("summary") address = rsTeam("address") telephone = rsTeam("telephone") fax = rsTeam("fax") email = rsTeam("email") If (categoryID_o <> categoryID) Then If (categoryID_o <> 0) Then Response.Write("
 
") End If Response.Write("
") 'Response.Write("") 'hide anchor link 'Response.Write("

" & categoryTitle & "

") 'hide cat title If (strClass = "cream") Then strClass = "palecream" Else strClass = "cream" End If End If %>

<%=memberName%>

<%=rsTeam("jobTitle")%>

<% If (summary <> "") Then %>

<%=ReplaceBR(summary)%>

<% End If %> <% If (address <> "") Then %>

<%=ReplaceBR(address)%>

<% End If %>

<% If (telephone <> "") Then %> Telephone: <%=telephone%>
<% End If %> <% If (fax <> "") Then %> Fax: <%=fax%>
<% End If %> <% If (email <> "") Then %> Email: <%=email%>
<% End If %>

<% categoryID_o = categoryID rsTeam.MoveNext() Wend Response.Write("
") Response.Write("
 
") %> <% Else %>

There is currently no key staff to view. Please try again at a later date.

 
<% End If ' Not rsTeam.EOF Or Not rsTeam.BOF %>
Picture of the inside of a train station
 
<% Call CloseRecordSet("rsTeam") %>