<%@ 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 Keeps You in the know We have access to hundreds of resources about issues that affect the workplace. If you don't see information about what you're looking for here, contact us. We'll be glad to provide you with what you need to help your organization's efforts.		Workplace Intelligence Health & Safety Related Links
	Position the monitor directly in front of the keyboard to keep focus straight ahead. Get more tips
	<% 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 %>

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