<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit Response.Buffer = true Response.Expires=0 Dim appPath Dim strUserAgent Dim strBrowser Dim oConn Dim oRS Dim strSql Dim strPersonnel Dim strName Dim strTitle ' initialize session vars appPath = Session("AppPath") call Main Sub Main() '*********************************************** GetFormVars CreateServerObjects BrowserSniffer OutPage Cleanup End Sub '*********************************************** Sub GetFormVars() '*********************************************** ' gather form variables ' nothing to do End Sub '*********************************************** Sub CreateServerObjects() '*********************************************** Set oConn = Server.CreateObject("ADODB.Connection") Set oRS = Server.CreateObject("ADODB.Recordset") oConn.Open Session("ConnectString") End Sub '*********************************************** Sub BrowserSniffer() '*********************************************** strUserAgent = Request.ServerVariables("HTTP_User_Agent") if inStr(1, strUserAgent, "MSIE") <> 0 then strBrowser = "MSIE" else strBrowser = "Netscape" end if End Sub '*********************************************** Sub OutPage() '*********************************************** %> Arbee Company - Key Personnel
Home SolutionsServicesProductsLibraryCompany ContactSitemap
  The success of our company is a reflection of the commitment of our employees.
At Arbee, we are a group of professionals that is dedicated to improving the way work gets done for our customers. We achieve that, in part, by weaving our core values into everything we do.

Value and respect your co-workers and customers
Act with integrity
Lead through personal and professional development
Unify company efforts to exceed customer expectations
Excel in all we do
Search for creative & innovative solutions

 
<% strSql = "SELECT PERSONNEL_ID, NAME, TITLE FROM TBL_PERSONNEL" & _ " WHERE SUBMITTED = 1" & _ " AND APPROVED = 1" & _ " AND DELETED = 0" & _ " AND PUBLISHED = 1" Set oRS = oConn.Execute(strSQL) do until oRS.EOF %>

<%=oRS("name")%> <%=oRS("title")%>

<% oRS.MoveNext loop oRS.Close %>

Back to Top



Company Profile

Facility Locations

Key Personnel

Press Releases

Career Opportunities

| HOME | SOLUTIONS | SERVICES | PRODUCTS | LIBRARY | COMPANY | CONTACT | SITEMAP |


2002 © Copyright Arbee Associates
<% End Sub '*********************************************** Sub Cleanup() '*********************************************** ' clean up if not oRS is nothing then if not oRS.State = 0 then oRS.Close set oRS = Nothing end if if not oConn is nothing then if not oConn.State = 0 then oConn.Close set oConn = Nothing end if End Sub '*********************************************** %>