<% '============= 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 %> <% 'initialize getPageFormVars(). This function is for printable versions of .asp pages that pass form variables function getPageFormVars() getPageFormVars = "" end function %> Federal Energy Management Program: Covered Product Category: Residential Dishwashers

U.S. Department of Energy: Energy Efficiency and Renewable Energy

Federal Energy Management ProgramTechnologies

Site Navigation ↓
<% '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: Residential Dishwashers

ENERGY STAR Qualified Products

FEMP provides acquisition guidance across a variety of product categories, including residential dishwashers, 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 Residential Dishwashers

ENERGY STAR's Product Specification applies to compact and standard capacity residential dishwashers only. Commercial and flight-type products are excluded. When purchasing residential dishwashers, specify or select models that are ENERGY STAR-qualified. A list of qualified products is available on the ENERGY STAR website. For products that do not display the ENERGY STAR logo, check the annual energy use listed on the yellow EnergyGuide label for models that meet requirements.

The Federal supply sources for residential dishwashers are the General Services Administration (GSA) and the Defense Logistics Agency (DLA). GSA sells residential dishwashers through its Multiple Awards Schedule program and online shopping network, GSA Advantage! DLA offers them through the Defense Supply Center Philadelphia and online through DOD E-MALL.

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

Buyer Tips

In housing units designed for one or two occupants, consider installing compact dishwashers. Since these products are designed to hold fewer place settings and service pieces than standard capacity dishwashers, they will fill more quickly and the occupants will more likely use them instead of hand washing. In addition, compact dishwashers are about six inches narrower than standard models and require less floor space, which is desirable in smaller housing units.

Many Federal office buildings have kitchen areas equipped with dishwashers. These requirements apply when residential dishwashers are used in these situations.

Back to Top

User Tips

Dishwashers require the hottest water of all household uses, typically 135°F to 140°F. However, these products are usually equipped with booster heaters to raise incoming water temperature by 15°F to 20°F. Setting the water heater between 120°F and 125°F and turning the dishwasher's booster on will provide sufficiently hot water while saving energy and also reducing the chances for scalding. Set dishwashers to "Air Dry" to save additional energy during the drying cycle.

Studies have shown that using fully-loaded dishwashers results in less energy and water consumption than washing the same amount of dishes by hand. The cleaning performance of products manufactured within the past 10 years has improved dramatically, even when washing heavily soiled dishes. Because of this, rinsing dishes prior to cleaning them in a dishwasher is unnecessary and wastes both water and energy. Encourage users to operate dishwashers only when full and to scrape food waste off of dishes instead of rinsing it off.

Back to Top

Estimating Energy and Cost Savings

ENERGY STAR has an Excel-based cost calculator for dishwashers. To modify the utility price, click on "Savings Calculator—Dishwashers," select the water heater type, and input the utility rates at your facility. The cost calculator 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

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

Back to Top

Back to Top | ">View Full Site
Federal Energy Management Program Home | EERE Home
Webmaster | Search
Content Last Updated: 02/15/2013