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

Federal Procurement of Energy-Efficient Products February 2012 Update

Welcome to the third issue of Federal Energy-Efficient Product Procurement! This bi-monthly update will help Federal procurement officials, facility managers, and others remain up to date on events, training, technology, and changes to acquisition requirements.

What do you think?
Your feedback is very important to us. To submit articles, suggest topics, or provide feedback, please contact Amanda Sahl.
Find more information about energy-efficient product procurement on the FEMP website.

In This Issue:

Interagency Energy-Efficient Product Procurement Working Group

Meetings of the Interagency Energy-Efficient Product Procurement Working Group (IEEPP WG) will resume in the fourth quarter of Fiscal Year (FY) 2012. Before the next meeting, the U.S. Department of Energy's (DOE) Federal Energy Management Program (FEMP) will contact members for one-on-one meetings to learn more about member needs and interests. Members or potential members are encouraged to email Amanda Sahl or call 202-586-1662 with their comments, agenda topics, and feedback on the working group.

Back to Top

FEMP-Designated Efficiency Requirement Updates

In 2012, FEMP will review and update the following efficiency requirements:

  • Chillers, air-cooled and water-cooled
  • Fluorescent lamps
  • Fluorescent luminaires
  • Industrial "high bay" luminaires
  • Pre-rinse spray valves
  • Water heaters, gas commercial

Visit the FEMP Covered Product Categories website for more information on Federal energy-efficient product purchasing requirements.

Back to Top

Low Standby Power Requirements—New and Improved

Federal purchasers are required to buy products that use 1 watt or less of standby power. To assist buyers in meeting these requirements as easily as possible, FEMP is aligning standby power requirements with ENERGY STAR® requirements for the following categories:

  • Consumer audio
  • Copiers
  • Displays and computer monitors
  • DVD players
  • Laptops and integrated computers
  • Multifunction imaging devices
  • TV/VCR/DVD combo
  • Printers
  • Scanners
  • Televisions (TVs)

For these products, buying an ENERGY STAR–qualified product automatically meets the low standby power requirement.

The low standby power requirement for microwave ovens remains at 2 watts, but the low standby requirement for all other categories is now 1 watt, including:

  • Desktop computers, workstations, and docking stations
  • Fax/printer machines
  • Cordless phones

To find qualified products, visit the Low Standby Product List.

Back to Top

ENERGY STAR Guiding Principles

ENERGY STAR is requesting stakeholder input as they update the ENERGY STAR Vision and Guiding Principles document (last updated in 2003). Given the significant changes and expansion of the program over the past several years, the U.S. Environmental Protection Agency (EPA) seeks to re-affirm the Federal Government's longstanding commitment to the core ENERGY STAR program principles that have made the program successful. These include a focus on products that meet the highest energy conservation standards without sacrificing performance or functionality.

The program's principles are grounded in transparency and a collaborative relationship with industry and other stakeholders. Stakeholders interested in providing input on the ENERGY STAR Vision and Guiding Principles document are encouraged to submit comments or questions to EnergystarProducts@energystar.gov no later than February 22, 2012.

Back to Top

2012 Federal Energy and Water Management Awards: Nominate an Innovative Procurement Official

FEMP recently released the 2012 criteria and guidelines for the Federal Energy and Water Management Awards. Agencies can nominate individuals in the Project, Program, and Contracting categories.

Contracting nominees should be exceptional individuals who used innovative contracting methods and excellence in procuring services to implement energy projects for an agency/organization. Examples include using a mix of contracting methods, institutionalizing new default standards or incentives, innovating streamlined contracting procedures that shorten the timeline to signing, or using integrated purchasing methods.

FEMP strongly encourages agencies to include contracting staff in nominations for the project and program categories, as applicable. Nominations are due May 2, 2012. Visit the FEMP Federal Energy and Water Management Awards website for more information.

Back to Top

GovEnergy Rolodex

Interested in speaking at GovEnergy 2012? Submit your name to the GovEnergy Speaker Rolodex. In order to be considered, applicants must demonstrate proficiency in a topic relevant to the GovEnergy Technical Training Program. Submissions to the GovEnergy Speaker Rolodex are reviewed on an ongoing basis. Visit the GovEnergy website for more information.

Back to Top

Presidential Memorandum: Implementation of Energy Savings Projects and Performance-Based Contracting for Energy Savings

On December 2, President Obama announced nearly $4 billion in combined Federal and private sector energy upgrades to buildings over the next two years. This investment includes a $2 billion commitment, made through the issuance of a Presidential Memorandum, to energy upgrades of Federal buildings using long-term energy savings to pay for up-front costs, at no cost to taxpayers.

FEMP provides technical assistance and project facilitation in support of Federal agencies' achievement of this goal. FEMP also provides technical expertise ranging from building efficiency improvements, renewable energy installations, water use reduction, and operation and maintenance optimization. Furthermore, FEMP maintains performance contracts with energy service companies (ESCOs) to provide private investment and expertise for Federal agencies to finance and install energy efficiency improvements to Federal buildings with no up-front costs. FEMP will work with each agency to develop a plan to fulfill this goal in conjunction with the agency's Strategic Sustainability Performance Plan (SSPP).

Back to Top

Contacts and Subscriptions

Subscribe to Energy-Efficient Product Procurement updates online. For questions and comments about this bi-monthly update, contact Amanda Sahl at amanda.sahl@ee.doe.gov.

Back to Top