<% '============= 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 %>

Covered Product Category: Cool Roof Products

ENERGY STAR Qualified Products

FEMP provides acquisition guidance across a variety of product categories, including cool roof products, which are an ENERGY STAR®-qualified product category. Federal laws and executive orders mandate that agencies meet these efficiency requirements in all procurement and acquisition actions that are not specifically exempted by law.

Most manufacturers display the ENERGY STAR label on complying models. For a model not displaying this label, check the manufacturer's literature to determine if it meets the efficiency requirements outlined by ENERGY STAR.

This product category overview covers the following:

Performance Requirements for Federal Purchases

For the most up-to-date efficiency levels required by ENERGY STAR, look for the ENERGY STAR label or visit the ENERGY STAR Product Specifications website. For more information, contact the FEMP point of contact listed at the bottom of this page.

Back to Top

Buying Cool Roof Products

To reduce cooling costs, be sure to specify roof products that meet the recommended levels, whether buying from GSA or through a contractor. All products with the ENERGY STAR label meet efficiency requirements.

The Federal supply source for roof products is the General Services Administration (GSA), which offers them through Federal Supply Schedule 56-IV(A), "Construction and Building Materials."

These requirements apply to all forms of procurement, including guide and project specifications; construction, renovation, repair, energy service, operation and maintenance (O&M) contracts; lease agreements; and solicitations for offers. Energy performance requirements should be included in all evaluations of solicitation responses. Buyers shall insert the standard clause from FAR section 52.223-15 into contracts and solicitations that deliver, acquire, furnish, or specify energy-consuming products for use in Federal facilities. Agencies can claim an exception to these requirements through a written finding that no ENERGY STAR-qualified or FEMP-designated product is life-cycle cost effective for a specific application.

Back to Top

Buyer Tips

The three properties to look for when selecting a roof material to reduce building cooling load are:

  1. High solar reflectance
  2. Endurance of high reflectance over time
  3. High emittance

The ENERGY STAR program presently considers reflectance only, not emittance. High emittance lowers roof temperature by increasing the release of heat by thermal radiation. To ensure a high-emittance roof, avoid unpainted metal roofs and aluminum coatings. If installing a metal roof, make sure it is painted a light color (not with a clear coating).

Back to Top

User Tips

Choose an installer carefully to ensure proper installation of a roof product or roof coating that will maximize durability and solar reflectance. The National Roofing Contractors Association (NRCA) provides some helpful advice in its "Guidelines for Selecting a Roofing Contractor" (available on the NRCA website). Roofs should be properly examined at regular intervals and maintained or cleaned when necessary and appropriate to assure the maximum solar reflectance.

Back to Top

For More Information

Federal supply sources are the U.S. General Services Administration (GSA) and Defense Logistics Agency (DLA). GSA sells products through its Multiple Awards Schedules and GSA Advantage! DLA offers products through the Defense Supply Center Philadelphia and DOD EMALL.

The following resources are available for additional information:

Amanda Sahl
Federal Energy Management Program

Lawrence Berkeley National Laboratory provided supporting analysis for this acquisition guidance.

Back to Top