<% '============= 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 November 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 second 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:

FEMP-Designated Efficiency Requirement Updates

FEMP will update the following efficiency requirements in November 2011:

  • Fluorescent Ballasts
  • Fluorescent Luminaires
  • Industrial Luminaires
  • Commercial Boilers
  • Standby Power

Back to Top

Low Standby Power Update

Federal procurement officials must purchase products that use less than 1 watt of standby power, where such products are available. FEMP is in the process of eliminating many low standby power categories and is instead referring Federal purchasers to the ENERGY STAR© website for the following categories:

  • Consumer Audio
  • DVD Players
  • TV/VCR/DVD Combo
  • Scanners
  • Televisions (TVs)

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

  • Desktop Computers
  • Displays and Computer Monitors
  • Copiers
  • Fax/Printer Machines
  • Multifunction Imaging Devices
  • Printers
  • Cordless Phones

Back to Top

Federal Energy and Water Management Award Winners

Celebrating its 30th year, the Federal Energy and Water Management Awards recognize the commitment by Federal agencies to invest in efficiency measures that save money for taxpayers, reduce greenhouse gas emissions, and create a stronger economy for the American people. Over the past 30 years, winners have saved almost $16 billion and an estimated 770 trillion Btu of energy. This is enough energy to provide all the energy needs of Federal Government facilities for two years.

In 2011, 29 individuals, teams, and organizations across the Federal Government received awards for outstanding and innovative efforts to implement sustainable strategies that improve energy, water, and vehicle fleet efficiency. Winners include employees from the U.S. Air Force, Army, Marine Corps, Navy, and Defense Logistics Agency; the Departments of Agriculture, Energy, Homeland Security, Interior, and Veterans Affairs; and the General Services Administration.

Back to Top

OMB Scorecards Due in January

FEMP would like to remind agencies that the next quarter for scorecard reporting is in January 2012. Agencies can also view their current scorecard data and sustainability plans in the Sustainability section of the Performance.gov website.

Back to Top

GreenGov 2011

The 2011 GreenGov Symposium was held October 31 through November 2 and featured 70 sessions, nine breakout tracks, and more than 325 speakers and moderators. GreenGov brings leaders in sustainability together under one roof to address the challenges of the Federal Government—the biggest energy consumer in the U.S. economy—to become leaner, greener, and more efficient. Thank you to everyone who participated in making this year's GreenGov Symposium a success. Visit the GreenGov website for more information.

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.