<% '============= 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 August 2012 Update

What do you think?
Your feedback is very important to us. To subscribe, submit articles, suggest topics, or give us your feedback, contact Amanda Sahl.

For more information about energy-efficient product procurement, visit femp.energy.gov/procurement.

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

In This Issue:

Commit to Efficiency for Energy Action Month

October is Energy Action Month, and this year hundreds of Federal facilities across the nation will be recruiting champions and participants to commit to efficiency. The Federal Commit to Efficiency campaign will help connect individuals throughout the Federal Government to one another and to resources that can help them procure, specify, and contract for cost-saving, energy-efficient products. If you are interested in helping to recruit participants or know of a champion whom you would recommend, please contact Amanda Sahl at the Energy Department's Federal Energy Management Program (FEMP).

Back to Top

Low Standby Product List Updates

FEMP improved the layout and content of the Low Standby Product List over the summer of 2012, ensuring that it remains the authoritative standby power resource for Federal procurement professionals. The data center clearly labels whether a product model complies with Federal standby power levels, which describe power drawn while the product is not in use. By reducing standby power draws, Federal agencies can drastically reduce plug load demand.

All products listed in the Low Standby Product List are ENERGY STAR®–qualified, so buyers can be sure that compliant products meet both ENERGY STAR and standby power requirements. Buyers can search the data center for a particular model, use the data center to choose a model with low standby power, or download data directly into a spreadsheet. FEMP has also reviewed all data points and updated which models are listed based on current data from ENERGY STAR and manufacturers. Users can compare the standby power of compliant products for covered product types, such as desktop workstations, fax machines, printers, and cordless phones.

Back to Top

The End Is Near! End of Year Procurement

Fiscal Year 2012 is coming to a close, and agencies often see an uptick in procurement actions during this time of year. Make your purchases count by working with your procurement officials and colleagues to emphasize the importance of purchasing energy-efficient products. End-of-year procurement offers an excellent opportunity to go beyond FEMP's efficiency requirements and purchase high-performance products. Look for products that meet ENERGY STAR's "most efficient" classification or the "best available" levels listed on FEMP's covered product categories list. You may find great opportunities for cost-effective energy savings through purchases your agency already intends to make! Wrap up the fiscal year on a high note—buy high-performance energy-efficient products.

Back to Top

Purchasing Pathways: How the Federal Government Buys Products

FEMP is conducting research on the variety of purchasing mechanisms used in the Federal sector. Developing an understanding of these procurement pathways provides FEMP with an opportunity to target its assistance to Federal buyers more effectively. Lawrence Berkeley National Laboratory (LBNL) is conducting interviews to develop a deeper understanding of the various procurement pathways used to buy energy-consuming products.

Procurement officials in your agency may have recently received a call from LBNL requesting an interview. If you have any questions about the research, please contact Amanda Sahl to learn more. If you'd like to share your procurement experience, we are eager to learn from you. Please let us know and we will schedule an interview.

Back to Top

Nominate Your Building for the 2013 Better Buildings Federal Award by September 7, 2012

In support of the Obama Administration's comprehensive strategy to save energy, protect our air and water, and reduce costs for taxpayers, the Energy Department is currently accepting nominations for its 2013 Better Buildings Federal Award (BBFA), which recognizes the Federal Government's highest-performing buildings. The year-long competition challenges agencies to achieve the greatest reduction in annual energy intensity (energy consumed per square foot) and honors the Federal building that achieves the greatest energy savings at the end of the 12-month competition period.

The 2013 award nomination process is open through September 7, 2012, and the winner will be announced late in 2013. The winner of the 2012 competition will be announced at the end of the 2012 calendar year. Read the full nomination process announcement.

Back to Top

Upcoming Events

The following conferences and events can be beneficial resources for facility managers and procurement officials:

Back to Top

Contacts and Subscriptions

For questions and comments about this bi-monthly update or to subscribe, contact Amanda Sahl at amanda.sahl@ee.doe.gov.

Back to Top