The Single Source for All Your Contract Office Furniture and Facilities Services Needs

<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit Response.Buffer = true Response.Expires=0 %> <% Dim appPath Dim strUserAgent Dim strBrowser Dim oConn Dim oRS Dim strSql ' if left(Request.ServerVariables("PATH_TRANSLATED"), 7) = "F:\IIS2" THEN ' ' connection path for the testhost2 server ' Session("ConnectString") = "File Name=F:\UDL\arbee.udl" ' elseif left(Request.ServerVariables("PATH_TRANSLATED"), 7) = "E:\IIS2" THEN ' ' connection path for the betahost2 server ' Session("ConnectString") = "File Name=E:\UDL\arbee.udl" ' else ' ' we are live ' ' NOTE *** replace with correct live path Session("ConnectString") = "File Name=c:\UDL\arbee.udl" ' end if ' ' Session("AppPath") = GetAppPath() 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() '*********************************************** %> The Single Source for All Your Contract Office Furniture and Facilities Services Needs

Arbee Associates is the single source for all your office furniture needs. Arbee offers a wide-variety of furniture, architectural and technology products that include: systems furniture, freestanding desks and casegoods, task chairs, lounge and guest seating, conference and training tables, lateral files and shelving, raised flooring, movable walls and lighting.

As a full-service dealership, Arbee has its own furniture management team of project managers and certified furniture installers and movers, who can help manage your workplace and office needs. Arbee’s furniture management services include: inventory management, furniture storage and warehousing, office moving and furniture delivery, furniture installation and reconfiguration, project management, furniture space planning and design, fabric cleaning and wood repair, service contracts and furniture rental and leasing.

For over 30 years, Arbee Associates has been a leading dealer of contract office furniture in Maryland, Virginia, Washington D.C, New York and New Jersey. With over 300 vendors to choose from and an expert staff of designers, account managers, project managers and installers, Arbee Associates is committed to providing its customers with an effective workplace.



	Increase Your Workplace Intelligence <% strSql = "SELECT TOP 2 WORKPLACE_ID, TEASER, CATEGORY_NAME FROM TBL_WORKPLACE wp, TBL_WK_CATEGORY cg" & _ " WHERE wp.CATEGORY_ID = cg.CATEGORY_ID" & _ " AND wp.SUBMITTED = 1" & _ " AND wp.APPROVED = 1" & _ " AND wp.DELETED = 0" & _ " AND wp.PUBLISHED = 1" & _ " ORDER BY wp.TIMESTAMP DESC" Set oRS = oConn.Execute(strSQL) do while not oRS.EOF %> <%=oRS("Teaser")%> Click here to learn more <% oRS.MoveNext loop oRS.Close %>

Start To Finish

Manage Your Workspace efficiently with Arbee's custom services...

<% 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 '*********************************************** %>