<% '============= 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 June 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 fifth 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:

Cost Calculator Updates Underway

You have spoken! The Federal Energy Management Program (FEMP) is updating the cost calculators for commercial boilers and pre-rinse spray valves. Thank you all for casting your votes at www.femp.energy.gov/calculators. Updates to these cost calculators will be available by mid-August in time for GovEnergy 2012.

Back to Top

FEMP "Covered Products" Page Update

We've missed you! Come visit FEMP's newly revised "covered products" page. The new format, which has tabs to help you easily navigate between major product categories, has received rave reviews from Federal energy managers. Visit www.femp.energy.gov/coveredproducts to see for yourself.

Back to Top

ENERGY STAR Products Update

ENERGY STAR®'s new product guidelines for 2012–2013 include uninterruptible power supplies. In addition, ENERGY STAR recently revised product guidelines for icemakers, clothes washers, dehumidifiers, and furnaces. Agencies interested in learning more about these products and revisions can email Una Song or call 202-343-9024.

Back to Top

New EPEAT Standards for TV and Imaging Equipment Ratings Move Forward

After three years of intensive stakeholder work, the Institute of Electrical and Electronics Engineers (IEEE) 1680 standards that will form the basis of Electronic Product Environmental Assessment Tool (EPEAT) imaging equipment and television environmental ratings are moving toward final approval.

EPEAT is the definitive environmental rating scheme for electronic products. EPEAT ratings are based on environmental performance criteria addressing design, production, energy use, product longevity, and recycling, and are backed up with ongoing, independent verification of manufacturer claims. EPEAT currently covers personal computers (PCs) and displays. In addition to the imaging equipment and television standards, a new server standard will begin development this summer. Implementing the new standards will more than double EPEAT's market reach, and TV coverage will increase the system's potential for use in the consumer market. For more information, please contact Sarah O'Brien at 802-233-1478.

Back to Top

Now Accepting Project Suggestions and Applications for the Sustainability in Procurement Fellows Program

As part of the Sustainability in Procurement Fellows (SPF) program, participants are required to work on projects that address a broad cross section of some of the most relevant sustainable procurement initiatives in the Federal Government. The SPF program is accepting project proposals for consideration. Descriptions of current projects are available on the SPF Program website.

The SPF program is a professional development program that provides Federal employees with in-depth training on sustainability. The fellowship covers regulatory requirements, industry trends, and systems thinking concepts, and provides hands-on sustainability project experience. As part of the fellowship, each employee receives training in relevant sustainability-in-procurement topics, performs substantive work on sustainability initiatives, and assumes an active role in the government-wide sustainability community. This intensive program aims to empower its alumni to serve as tomorrow's Federal sustainability leaders and enable them to serve as knowledge resources for staffs government-wide. The deadline for applications is June 29.

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