Arbee Associates: Contract Office Furniture and Facilities Services

<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit Response.Buffer = true Response.Expires=0 %> <% Dim strUserAgent Dim strBrowser Dim oConn Dim oRS Dim strSql 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 Associates: Contract Office Furniture and Facilities Services



	A Woman Owned Company An Authorized GSA Dealer An Authorized Steelcase Dealer Arbee Associates has a long, established history of being a successful full-service provider of solutions for the workplace. Our experienced professionals draw upon their knowledge and experience to create packages specific to your business's needs... solutions that satisfy your facility related requirements.


	Company Profile Facility Locations Key Personnel Press Releases Career Opportunities

<% strSql = "SELECT TOP 3 PRESS_RELEASES_ID, TITLE FROM TBL_PRESS_RELEASES" & _ " WHERE SUBMITTED = 1" & _ " AND APPROVED = 1" & _ " AND DELETED = 0" & _ " AND PUBLISHED = 1" & _ " ORDER BY RELEASE_DATE DESC" Set oRS = oConn.Execute(strSQL) do until oRS.EOF %> <%=oRS("title")%>
Click here to learn more

<% oRS.MoveNext loop oRS.Close %>

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