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

The following lighting 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
Spectrally Enhanced Lighting Shifting the color in fluorescent lamps to the cooler blue end of the color spectrum allows people to see things more clearly and spaces appear brighter. Changing the light color to be more like daylight allows lighting levels to be reduced to save energy while still achieving the same visual acuity. Appropriate in almost any fluorescent lighting system in most building types and settings. 91
Low Ambient/Task Lighting Low ambient/task lighting strategies improve the visual environment by adding controllable task fixtures that provide light directly where needed for a given task, while reducing the overhead (ambient) light level. Occupancy sensors can also be incorporated into the system. Applicable in most building categories. 88
Super T8 Lighting Super T8 lamps are 32W T8 lamps with a barrier-coat design, high lumen maintenance (88%-92% end-of-life lumens), long service life, and high light output (3,100+ initial lumens as opposed to 2850 for a standard T8). Combining Super T8 lamps with low ballast factor ballasts (BF of ≤ 0.77) on a one-for-one replacement will reduce energy consumption 15% to 20%. Appropriate in almost any fluorescent lighting system in most building types and settings. 79
Interior LED/Solid State Lighting Interior LED retrofits are currently viable for down lights, track lighting, sconces, and both line and low voltage task lighting. Replacements for incandescent A-lamps have also been improving rapidly. Replacements for fluorescent tube lighting may be viable for high-cost maintenance areas. Applicable for down lights, track lights, task lighting, accenting, high ceiling, and high cost maintenance areas. 61
Exterior LED/Solid State Lighting LED lighting economics can work in high electric cost areas with high hours of use. Pricing continually decreases. This technology provides quality, white, even lighting with good color rendition. Greater cost savings can be achieved when combined with bi-level motion sensors to reduce light levels in parking areas, garages, and walkways. Applicable in areas where security and visual performance are critical, including street lighting, parking lots, garages, walkways, building exteriors, and landscape areas. 59
Integrated Daylighting Systems Add electronic dimmable fluorescent ballasts, photo sensors, and occupancy sensors where appropriate. This can be combined with network components, workstation controls, and building management options to provide significant savings on applied systems. Applicable in perimeter and interior spaces with daylight exposure via windows and skylights. 53
Bi-level LED Garage/Parking Lot/Pedestrian Lighting Bi-level LED lighting uses fluorescent and LED lighting sources with bi-level motion sensors to reduce lighting levels when the parking area is not in use. This technology can also be applied to pathway lighting where appropriate. Appropriate for garage, parking lot, and pedestrian areas. It can also be applied to pathway lighting where appropriate. 53
Induction Lighting Induction lighting is a fluorescent light without electrodes or filaments, the items that frequently cause other bulbs to burn out quickly. Induction lamps offer the potential for very long life (up to 100,000 hours) while providing good color quality at competitive efficiencies. Applicable in areas that require continuous illumination where long lamp life provides significant benefits because of difficult maintenance or liability concerns. 51
HID Electronic Dimming Ballasts Most of these lights, typically metal halide or high-pressure sodium lamps, are currently driven by magnetic ballasts. Several manufacturers now offer electronic ballasts for these lamps, which promise better efficiency, longer lamp life, and faster startup and re-strike. Applicable in exterior/security lighting and facilities with high bay areas. 51
Bi-level Stairwell Lighting These products use integral occupancy sensor motion detectors to monitor the stairwell. When occupancy is detected, the lights go to full level. When the space has been vacated after a programmed period, the fixture goes to a minimum level. Applicable in most multi-story buildings. 50
Efficient High Bay Fluorescent Lighting This lighting can include either T5 or T8 fluorescent lighting systems for high-bay applications currently using metal halide fixtures. Fluorescent fixtures offer better light distribution, better light maintenance over the life of the lamp, improved color quality, and on-off control (re-strike time) with lower energy consumption. Applicable for facilities containing high bay areas. 42
High Bay Lighting LED light sources offer several potential benefits compared to metal halide or fluorescent lighting, including reduced energy consumption due to the ability to provide a more precise light distribution; longer operating life and lower maintenance requirements; less heat introduced into the space; and greater controllability for dimming and on/off control. Relevant to the cold storage application, LED performance improves in colder temperatures. Applicable for facilities containing high bay areas. 37
Airfield LED Lighting Airfield LED lighting is a good application for colored LED lights since the LED is monochromatic. Reduced maintenance costs dramatically improve economics over existing incandescent. Applicable at airports as wells military and domestic air stations and bases. 34

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.