<% '============= 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: Gas Storage Water Heaters

ENERGY STAR Qualified Products

FEMP provides acquisition guidance across a variety of product categories, including gas storage water heaters, 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 Gas Storage Water Heaters

Energy Star's Product Specification applies to residential gas storage-type water heaters with capacities between 20 and 100 gallons, first hour rating (FHR) of 67 gallons or higher, and maximum energy input of 75,000 Btu per hour. Commercial and condensing gas water heaters are excluded.

The Federal supply sources for gas storage water heaters are the General Services Administration (GSA) and the Defense Logistics Agency (DLA). GSA sells water heaters 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. When purchasing gas storage-type water heaters, choose models that are ENERGY STAR-qualified.

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

Storage-type water heaters are common, but they are inefficient due to high standby losses. Other more efficient options that Federal buyers may want to consider include:

  • Tankless Water Heaters: Also called demand or instantaneous water heaters, these products heat water as it is needed. Absence of a storage tank reduces standby losses and can therefore increase overall hot water system efficiency.

  • Indirect Water Heaters: A space heating system that also provides hot water. In this type of system, hot water is typically circulated from a home's boiler through a heat exchange coil in a separate insulated tank. Domestic hot water is drawn from this storage tank.

  • Integrated Water Heaters: A hot water heater that also provides space heating. In this type of system, the hot water heater is connected to a coil in the air handling unit. Hot water is circulated through this coil whenever space heating is needed.

  • Solar-Assisted Water Heaters: A water heater connected to a solar collector that, depending on sky conditions and location, can meet most, if not all, of the hot water requirements. An instantaneous or storage-type water heater is used to meet excess demand or demand during extended periods of cloudy weather.

Depending on climate and energy costs, these options can provide energy and cost savings. To work properly, however, they require additional analysis and design.

Storage-type water heaters must be sized properly. Oversized water heaters not only cost more to install but increase energy use due to excessive cycling and higher standby losses. The American Council for an Energy Efficient Economy (ACEEE) publishes the Consumer Guide to Home Energy Savings that contains a chapter on water heating and provides guidance on proper sizing. A water heater should be selected based on FHR, not tank size. Some water heaters with small tanks and large burners have higher FHRs and are more efficient than models with larger tanks.

Back to Top

User Tips

Energy costs increase with temperature. Dishwashers require the hottest water of all household uses, typically 135°F to 140°F. These devices, however, are usually equipped with booster heaters to raise the 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 should provide sufficient hot water while saving energy and reducing the chances for scalding.

Back to Top

Estimating Energy and Cost Savings

FEMP provides a Web-based cost calculator for water heaters. This calculator allows the user to input site-specific values for energy factor, recovery efficiency, and the rate for natural gas. The output section will automatically display results that better reflect your energy costs.

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