<% '============= 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 September 2011 Update

What do you think?
Your feedback is very important to us. To subscribe to this e-newsletter, submit articles, suggest topics, or provide feedback, please contact Amanda Sahl.

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

Welcome to the premier 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.

In This Issue:

GSA Green Products Compilation

The U.S. General Services Administration (GSA) recently updated its Green Products Compilation. The spreadsheet compiles products for which the Department of Energy (DOE), Environmental Protection Agency (EPA), and Department of Agriculture (USDA) provide environmental or energy attribute recommendations. More information is available online.

Back to top

FEMP-Designated Efficiency Requirement Updates

FEMP temporarily suspended the efficiency requirement for fluorescent tube lamps as it evaluates the market impact of the pending 2012 minimum efficiency standards for fluorescent lamps. FEMP will issue an updated efficiency requirement when the market distribution of this product category stabilizes and when doing so has the potential to result in significant Federal energy savings.

Recently Updated FEMP-Designated Efficiency Requirements:

FEMP-Designated Efficiency Requirements Currently Under Revision:

  • Fluorescent Ballasts
  • Fluorescent Luminaires
  • Industrial Luminaires
  • Commercial Boilers

Back to top

First Thursday Seminar: Energy Efficient Product Procurement

On August 4, FEMP hosted a First Thursday Seminar on energy-efficient product procurement. In the session, Amanda Sahl, FEMP Product Procurement Program Lead, and Christopher Payne, Ph.D., Lawrence Berkeley National Laboratory research scientist, showed participants how to meet executive order and Federal Acquisition Regulation (FAR) requirements on purchasing FEMP-designated and ENERGY STAR products. This and other First Thursday Seminars are available on demand.

Back to top

GovEnergy 2011 Recap and 2012 Update

More than 4,200 people registered for GovEnergy 2011. From August 7-10, members of Federal, state, and local governments; the private sector; and academia gathered in Cincinnati, Ohio, to share ideas and learn about Federal energy management. Subjects included reducing greenhouse gas emission, planning energy efficiency projects, and advancing energy-efficient product procurement. PowerPoint presentations are posted on the GovEnergy website.

GovEnergy 2012 will be held in St. Louis, Missouri, from August 19-22. GovEnergy is currently seeking new and returning volunteers to serve on the 2012 planning committee. Individuals interested in a variety of energy-related topics are encouraged to apply on the GovEnergy website by Friday, September 23, 2011.

Back to top

Underutilized Energy-Efficient Technologies

FEMP identified technologies that are ready for Federal deployment but currently underutilized within the Federal sector. These technologies offer significant energy savings opportunities and may help your agency meet existing energy and greenhouse gas reduction requirements. FEMP encourages agencies to consider these technologies, but they are not legally required for Federal acquisition. Information about these technologies is now available.

Back to top

USDA BioPreferred Program Featured in FEMP Focus

The latest issue of FEMP Focus features an article on USDA's recently-launched BioPreferred labeling program. Just as the ENERGY STAR label help develop a market for energy-efficient products, USDA's BioPreferred label is making it easier for Federal agencies to comply with regulations requiring the procurement of bio-based products.

Back to top

Upcoming Events and Conferences

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