<% '============= 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 Requirements for the Procurement of Energy-Efficient Products

Federal agencies must purchase ENERGY STAR–qualified products or FEMP-designated product categories where such categories have been established. The following laws and regulations govern the procurement of energy-efficient products:

Additional requirements spanning renewable energy, water efficiency, greenhouse gases, and other topics are outlined on the Requirements and Guidance by Subject page.

Final Rule on Federal Procurement of Energy Efficiency Products

FEMP issued a final rule covering the Federal procurement of energy-efficient products. The rule was recorded in the Federal Register (Volume 74, Number 48) Friday, March 13, 2009.

The final rule updates 10 CFR Part 436. It establishes guidelines for Federal agencies regarding the implementation of amendments to the National Energy Conservation Policy Act (NECPA) that require the procurement of ENERGY STAR–qualified products and FEMP-designated product categories in procurements involving energy-consuming products and systems.

Back to top

Energy Independence and Security Act of 2007

The Energy Independence and Security Act (EISA) of 2007 requires each Federal agency to ensure that major replacements of installed equipment (such as heating and cooling systems) or renovation or expansion of existing space employ the most energy-efficient designs, systems, equipment, and controls that are life cycle cost-effective.

EISA 2007 sets several additional mandates surrounding the procurement of energy-efficient products, including:

  • Requires Federal agencies to minimize standby energy use in purchases of energy-using equipment, and to buy products with one watt or less of standby power when possible.
  • Requires Federal procurement to focus on ENERGY STAR–qualified products and FEMP-designated product categories.

Back to top

Energy Policy Act of 2005

Section 104 of the Energy Policy Act (EPAct) of 2005 requires agencies to purchase ENERGY STAR–qualified products or FEMP-designated product categories when procuring energy-consuming products. The requirement applies to products and equipment purchased through any agency procurement action, including those products purchased:

  • Directly by agencies from Federal supply agencies and commercial sources.
  • Indirectly through acquisitions carried out under construction, renovation, or services contracts.
  • Individually through any purchases using Government credit cards.

Exceptions to these requirements are allowed only if:

  1. No ENERGY STAR–qualified product or FEMP-designated product category is cost-effective over the life of the product.
  2. No ENERGY STAR–qualified product or FEMP-designated product category is reasonably available that meets the agency's functional requirements.

In such cases, the head of the agency must find in writing that such an exception is warranted.

EPAct 2005 directs the General Services Administration and the Defense Logistics Agency to supply only ENERGY STAR–qualified products or FEMP-designated product categories unless written justification is received from the requesting agency to supply an alternative product. This justification must meet the exception criteria above.

Back to top

Federal Acquisition Regulations

Part 23 of Federal Acquisition Regulations (48 CFR Part 23) requires Federal agencies to purchase, where life cycle cost-effective and available, energy-using products that are ENERGY STAR–qualified or meet the requirements of FEMP-designated product category specifications and FEMP low standby power specifications. For details, see FAR Section 23.203.

Back to top

Executive Order 13423

Executive Order 13423 requires Federal agencies to acquire energy-efficient products in acquisition of goods and services. Instructions for implementing the order define energy-efficient products as ENERGY STAR–qualified products or FEMP-designated product categories.

Back to top

Executive Order 13221

Executive Order 13221 directs Federal agencies to purchase products that use minimal standby power when possible. Specifically, when Federal agencies purchase commercially available, off-the-shelf products, the products must use no more than one watt of standby power. If such products are not available, agencies shall purchase products with the lowest standby power wattage available.

Back to top