smcccd ergonomic site

<%@LANGUAGE="VBSCRIPT"%> <% set RsCategories = Server.CreateObject("ADODB.Recordset") RsCategories.ActiveConnection = MM_corp_STRING RsCategories.Source = "SELECT * FROM categories" RsCategories.CursorType = 0 RsCategories.CursorLocation = 2 RsCategories.LockType = 3 RsCategories.Open() RsCategories_numRows = 0 %> <% set RsProducts = Server.CreateObject("ADODB.Recordset") RsProducts.ActiveConnection = MM_corp_STRING RsProducts.Source = "SELECT * FROM products" RsProducts.CursorType = 0 RsProducts.CursorLocation = 2 RsProducts.LockType = 3 RsProducts.Open() RsProducts_numRows = 0 %> <% set RsCategoryImage = Server.CreateObject("ADODB.Recordset") RsCategoryImage.ActiveConnection = MM_corp_STRING RsCategoryImage.Source = "SELECT * FROM categories" RsCategoryImage.CursorType = 0 RsCategoryImage.CursorLocation = 2 RsCategoryImage.LockType = 3 RsCategoryImage.Open() RsCategoryImage_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 RsCategories_numRows = RsCategories_numRows + Repeat1__numRows %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 RsCategoryImage_numRows = RsCategoryImage_numRows + HLooper1__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> smcccd ergonomic site

San Mateo County Community College Ergonomic Source

                                                                              Welcome!
                                         This site was created to provide convenient online resource
                                           to fulfill the Ergonomic standards for Cañada College,
                                                   College of San Mateo and Skyline College.
    Humanscale

Visit www.humanscale.com to view Humanscale's                            You can also visit www.accessories.us.dell.
full line of innovative products for the College Market.                      com to view Dell's Logitech Cordless Comfort
If you would like additional information, please contact                     Duo Keyboard and Mouse for only $87.95.
James K. Dempsey at jdempsey@humanscale.com or
415-394-1000, Ext. 3013.
                                                                   Products
          Ergonomic chairs                                                    Dell Ergonomic Keyboard

Freedom Task Chair      Freedom Task                                                                                      Logitech Cordless
with Headrest            Chair                                                                                                  Comfort

         Keyboard Trays

2G or 4G Mechanism
StandardPlatforms

Monitor Arms

Desk Mount      Wall Mount          Parabolic
(1-2 Monitors) (1-2 Monitors)   (4-8 Monitors)


             Glare Filters

   Flat Panel       NeatView       Universal Contour          VMG

           Foot Rests and Task Lights

Winkel & Jorgensen Winkel & Jorgensen          Diffrient Task
Foot Machine            Foot Machine                        Light

        CPU and Copy Holders


CPU500SEC         CPU500             CPU300        Copy Holder

<% RsCategories.Close() %> <% RsProducts.Close() %> <% RsCategoryImage.Close() %>