<% '============= Create and Open Database Connection ============= 'OPEN THE DATABASE If blnConnectToDB Then dim blnDBconnectionDown blnDBconnectionDown = false Err.Clear on error resume next set dbConn = Server.CreateObject("ADODB.Connection") 'Open the Connnection 'dbConn.Open Application("dbConn_ConnectionString") dbConn.Open "DSN=PostgreSQL30", "eere_news", "33reNews" ''New Error trapping. KC added 2/23/2012 If Err.Number <> 0 Then ''Response.Write (Err.Description& "

") dbConn.Close Set dbConn = nothing blnDBconnectionDown = true End If On Error GoTo 0 ''error trapping not working here KC removed 2/23/2012 ''tmpDBErrorNativeError = 0 '' For Each dbErr In dbConn.Errors '' strErrMsg = strErrMsg & _ '' "Source: " & dbErr.Source & vbCrLF & _ '' "Description: " & dbErr.Description & vbCrLF & _ '' "SQL State: " & dbErr.SQLState & vbCrLF & _ '' "NativeError: " & dbErr.NativeError & vbCrLF & _ '' "Number: " & dbErr.Number & vbCrLF & vbCrLF '' tmpDBErrorNativeError = dbErr.NativeError '' Next '' If (dbConn.Errors.Count > 0) AND (tmpDBErrorNativeError <> 5703) Then '' dbConn.Close '' Set dbConn = nothing '' blnDBconnectionDown = true '' Response.write(strErrMsg) '' Response.end '' End If dim arrErrors() Redim arrErrors(2,0) End If '============================================================== Public Function GetRS2(myCommand) On Error GoTo 0 'objConn: local connection object 'objRS: local recordset object 'objComm: command object passed in to the function Dim objConn, objRS, blnErrorLogged, objComm 'Create the command object Set objComm = Server.CreateObject("ADODB.Command") Set objComm = myCommand 'Create the connection object Set objConn = Server.CreateObject("ADODB.Connection") 'Open the connection object objConn.Open "DSN=PostgreSQL30", "eere_news", "33reNews" 'Set the active connection objComm.ActiveConnection = objConn 'Create the recordset object Set objRS = Server.CreateObject("ADODB.Recordset") 'Set the cursor location for disconnected recordsets 'objRS.CursorLocation = adUseClient 'Turn on error handling for just a second ' On Error Resume Next 'Open the recordset 'objRS.Open SQL, objConn, adOpenStatic, adLockOptimistic Set objRS = objComm.Execute 'Response.Write "State = " & objRS.State & "
" 'objRS.MoveLast 'objRS.MoveFirst 'Response.Write "Count = " & objRS.RecordCount & "
" 'Response.End 'Check for an error ' If Err.Number <> 0 Then ' Response.Write "Database Error Occured

" ' Response.Write "Error #" & Err.Number & "
" ' Response.Write Err.Description & "

" ' Response.Write "SQL:
" ' Response.Write SQL ' Response.End ' End If 'Turn off error handling ' On Error GoTo 0 'Disconnect the recordset 'Set objComm.ActiveConnection = Nothing 'Close the connection 'objConn.Close 'Set the connection to Nothing 'Set objConn = Nothing 'Set the Command to Nothing 'Set objComm = Nothing 'Return the recordset Set GetRS2 = objRS On Error Resume Next End Function '=============================================================== Function GetRS(sSQL) 'Declarations dim rs 'Create Recordset Object set rs = Server.CreateObject("ADODB.Recordset") If blnConnectToDB Then 'Open Recordset based on SQL rs.Open sSQL, dbConn, 1, 3, 1 End If 'Return Recordset set GetRs = rs End Function '=============================================================== Function ExecSQL(sSQL) 'Open the Command Object dim lRecordsAffected dbConn.Execute sSQL, lRecordsAffected 'Return the Records Affected ExecSQL = lRecordsAffected End Function '======================================================================== Function sendEmail(strFrom,strTo,strSubject,strMessage) Dim sch ' Schema sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 .Item(sch & "smtpserver") = "mxrelay.doe.gov" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = strFrom .To = strTo .Subject = strSubject .TextBody = strMessage .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing End Function Function removeBadChars(tmpString) tmpString = Replace(tmpString , "<", "") tmpString = Replace(tmpString , ">", "") tmpString = Replace(tmpString , "'", "") tmpString = Replace(tmpString , """", "") tmpString = Replace(tmpString , ";", "") tmpString = Replace(tmpString , "(", "") tmpString = Replace(tmpString , ")", "") removeBadChars = tmpString End Function %> <% 'If there is a mobile version of this site, check the user_agent, and forward to 'the mobile version of the site (unless cookie or querystring var is set) if "true" = "true" then tmpSeeFullPage = Mid(Request.Querystring("m"),1,1) if ((isMobile) and (tmpSeeFullPage <> "1")) then tmpMobileURL = Request.servervariables("HTTP_URL") tmpMobileFileName = mid(tmpMobileURL, InStrRev(tmpMobileURL, "/")+1) tmpMobileURL = Left(tmpMobileURL, InStrRev(tmpMobileURL, "/")) tmpMobileURL = tmpMobileURL & "m/" & tmpMobileFileName Response.Clear Response.Redirect(tmpMobileURL) end if end if %>

<% ''This code is strictly when a user clicks on a left nav and needs to be forwarded to another site/program/office if ("" <> "") then Response.Clear Response.Redirect ("") end if %>

Covered Product Category: Room Air Conditioners

ENERGY STAR Qualified Products

FEMP provides acquisition guidance across a variety of product categories, including room air conditioners, which are an ENERGY STAR®-qualified product category. Federal laws and executive orders mandate that agencies meet these efficiency requirements in all procurement and acquisition actions that are not specifically exempted by law.

Most manufacturers display the ENERGY STAR label on complying models. For a model not displaying this label, check the manufacturer's literature to determine if it meets the efficiency requirements outlined by ENERGY STAR.

This product category overview covers the following:

Performance Requirements for Federal Purchases

For the most up-to-date efficiency levels required by ENERGY STAR, look for the ENERGY STAR label or visit the ENERGY STAR Product Specifications website. For more information, contact the FEMP point of contact listed at the bottom of this page.

Back to Top

Buying Energy-Efficient Room Air Conditioners

When buying room air conditioners directly from commercial sources, choose models that are ENERGY STAR-qualified. Some manufacturers and retailers display the ENERGY STAR label on complying products. For products that do not display the ENERGY STAR, look at the yellow EnergyGuide label.

The Federal supply sources for room air conditioners are the General Services Administration (GSA) and Defense Logistics Agency (DLA). GSA sells room air conditioners through its Multiple Awards Schedules program and online shopping network, GSA Advantage! DLA offers them through the Defense Supply Center Philadelphia and online through DOD EMALL. Note that not all room air conditioners sold by GSA and DLA are ENERGY STAR-qualified and some products that do qualify may not be indicated as such. When buying room air conditioners through these sources, check models against the list of qualified products on the ENERGY STAR website.

These requirements apply to all forms of procurement, including guide and project specifications; construction, renovation, repair, energy service, operation and maintenance (O&M) contracts; lease agreements; and solicitations for offers. Energy performance requirements should be included in all evaluations of solicitation responses. Buyers shall insert the standard clause from FAR section 52.223-15 into contracts and solicitations that deliver, acquire, furnish, or specify energy-consuming products for use in Federal facilities. Agencies can claim an exception to these requirements through a written finding that no ENERGY STAR-qualified or FEMP-designated product is life-cycle cost effective for a specific application.

Back to Top

Low Standby Power

Federal agencies are required to purchase products that use one watt of power or less while in their standby mode. Features such as remote controls and digital displays cause room air conditioners to use power whenever they are plugged in, even if the unit itself is "turned off." Federal buyers and procurement officers should purchase room air conditioners without these features. FEMP's Low Standby Product List has a list of room air conditioners that meet this requirement.

Back to Top

User Tips

Oversizing of air conditioners, besides increasing the purchase cost, will lead to excessive energy consumption and poor humidity removal due to excessive on-off cycling.

Refrigerants with ozone-destroying chlorofluorocarbons (CFCs) were used many years ago in room air conditioners, but most existing equipment today uses HCFC refrigerants, which have a much lower ozone-depleting effect. Ask your supplier for information. When retiring an air conditioner that contains CFCs or HCFCs, the Clean Air Act requires that the refrigerant be recovered prior to final disposal of the appliance. For compliance information, contact the Environmental Protection Agency (EPA) Stratospheric Ozone Information Hotline at 800-296-1996.

Back to Top

Estimating Energy and Cost Savings

ENERGY STAR has an Excel-based cost calculator for room air conditioners. To modify the utility price, click on "Savings Calculator," select the nearest city from the pull-down menu, and input the rates for electricity. The output section will automatically display results that more accurately reflect your conditions.

Back to Top

For More Information

Federal supply sources are the U.S. General Services Administration (GSA) and Defense Logistics Agency (DLA). GSA sells products through its Multiple Awards Schedules and GSA Advantage! DLA offers products through the Defense Supply Center Philadelphia and DOD EMALL.

The following resources are available for additional information:

Amanda Sahl
Federal Energy Management Program
202-586-1662
amanda.sahl@ee.doe.gov

Lawrence Berkeley National Laboratory provided supporting analysis for this acquisition guidance.

Back to Top