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

New and Underutilized Building Envelope Technologies

The following building envelope technologies are underutilized within the Federal sector. These technologies have been identified by FEMP as the most promising for Federal agency deployment. Review each technology for potential facility energy savings.

Additional information is available by clicking on the individual technology, including technology application, key factors and considerations for deployment, and points of contact.

Technology Benefits Application Weighted Score
High R-Value Windows Highly insulated windows triple pane R5 or greater (U value 0.22 and lower) windows Appropriate for deployment within most building categories. These windows should be considered in building design, renovation, or during window replacement projects. 65
Cool Roofs Cool roofs that stay cool in the sun by minimizing solar absorption and maximizing thermal emission while lessening the flow of heat from the roof into the building and reducing the need for space cooling energy in conditioned buildings. Cool roofs may also increase the need for heating energy in cold climates. For a commercial building, the decrease in annual cooling load is typically much greater than the increase in annual heating load. Applicable in most building applications. 53
Window Films A spectrally-selective film used to decrease heat gained through a window Appropriate for deployment within most building categories and should be considered in building design, renovation, or during window replacement projects. 53
Colored Paint for Heat Reflective or Absorptive Applications New technology allows paint to be any color in the visible spectrum, yet have either absorptive or reflective properties in the heat spectrum. Applicable in most building applications. 47
Green Roofs Vegetation on the roof reduces heat load and adds insulation to the roof. Also reduces storm runoff from roof. Appropriate for deployment within most building categories with higher roof to conditioned floor area ratios and should be considered in building design, renovation, or during roof replacement projects. 33
Aerogel Insulation - Piping, Ducts, and Buildings Aerogel products displace current insulation material. Aerogel insulation tends to be far thinner than current insulation because the thermal conductivity of the aerogels is so low. Appropriate for deployment across piping, ducts, and within most building categories. It should be considered in building design, construction, or major renovation. 28
Smart Windows Electrochromic glass uses electrical energy to transition between clear and darkened states. Darkened glass transmits less light and reduces heat gain when darkened, especially in dual-pane windows. Appropriate for deployment within most building categories and should be considered in building design, renovation, or during window replacement projects. 25

Ranking Criteria

Ranking hinges on three major attributes derived from specific capabilities and qualities of that technology in the Federal marketplace. Each attribute is weighted and scored individually. The ultimate ranking score is a summation of scores and weightings of each attribute, such as:

  1. Federal Impact (50% weighting): Combination of energy savings potential and applicability in the Federal market.

  2. Cost Effectiveness (30% weighting): Relative cost of the implementation and average expected return typically reported in case studies as simple payback period.

  3. Probability of Success (20% weighting): Combination of the qualitative characteristics scored separately and averaged to determine probability of success. Criteria include strength of supply chain, knowledge base, implementation difficulty, and customer acceptance.