'============= Create and Open Database Connection =============
'OPEN THE DATABASE
If blnConnectToDB Then
blnDBconnectionDown = false
on error resume next
set dbConn = Server.CreateObject("ADODB.Connection")
'Open the Connnection
dbConn.Open "DSN=PostgreSQL30", "eere_news", "33reNews"
''New Error trapping. KC added 2/23/2012
If Err.Number <> 0 Then
''Response.Write (Err.Description& "
Set dbConn = nothing
blnDBconnectionDown = true
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
'' If (dbConn.Errors.Count > 0) AND (tmpDBErrorNativeError <> 5703) Then
'' Set dbConn = nothing
'' blnDBconnectionDown = true
'' 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 & "
'Response.Write "Count = " & objRS.RecordCount & "
'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
' End If
'Turn off error handling
' On Error GoTo 0
'Disconnect the recordset
'Set objComm.ActiveConnection = Nothing
'Close the connection
'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
'Create Recordset Object
set rs = Server.CreateObject("ADODB.Recordset")
If blnConnectToDB Then
'Open Recordset based on SQL
rs.Open sSQL, dbConn, 1, 3, 1
set GetRs = rs
'Open the Command Object
dbConn.Execute sSQL, lRecordsAffected
'Return the Records Affected
ExecSQL = lRecordsAffected
Dim sch ' Schema
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
.Item(sch & "sendusing") = 2
.Item(sch & "smtpserver") = "mxrelay.doe.gov"
Set cdoMessage = CreateObject("CDO.Message")
Set .Configuration = cdoConfig
.From = strFrom
.To = strTo
.Subject = strSubject
.TextBody = strMessage
Set cdoMessage = Nothing
Set cdoConfig = Nothing
tmpString = Replace(tmpString , "<", "")
tmpString = Replace(tmpString , ">", "")
tmpString = Replace(tmpString , "'", "")
tmpString = Replace(tmpString , """", "")
tmpString = Replace(tmpString , ";", "")
tmpString = Replace(tmpString , "(", "")
tmpString = Replace(tmpString , ")", "")
removeBadChars = tmpString
'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
- Site Map
- Printable Version
tmpTitle = "Federal Energy Management Program: Minimum Efficiency Standards for Electric Motors"
''Added the following code to make EERE news/events items work with the embedded addthis code.
strQueryString = ""
if request.servervariables("QUERY_STRING") <> "" then
strQueryString = "%3F" & Server.HTMLEncode(request.servervariables("QUERY_STRING"))
if inStr(LCase(tmpTitle), "newsdetail") > 0 Then
tmpTitle = replace(tmpTitle, "NewsDetail", "News")
if inStr(LCase(tmpTitle), "eventsdetail") > 0 Then
tmpTitle = replace(tmpTitle, "EventsDetail", "Event")
arrAddThis = Array("email", "facebook", "twitter", "google", "delicious", "digg")
arrAddThisDesc(0) = "Send a link to " & tmpTitle & " to someone by E-mail"
arrAddThisDesc(1) = "Share " & tmpTitle & " on Facebook"
arrAddThisDesc(2) = "Tweet about " & tmpTitle & " on Twitter"
arrAddThisDesc(3) = "Bookmark " & tmpTitle & " on Google"
arrAddThisDesc(4) = "Bookmark " & tmpTitle & " on Delicious"
arrAddThisDesc(5) = "Rank " & tmpTitle & " on Digg"
- this resource
''This code is strictly when a user clicks on a left nav and needs to be forwarded to another site/program/office
if ("" <> "") then
Minimum Efficiency Standards for Electric Motors
Section 313 of the Energy Independence and Security Act (EISA) of 2007 raised Federal minimum efficiency standards for general-purpose, single-speed, polyphase induction motors of 1 to 500 horsepower (hp). This new standard took effect in December 2010. The new minimum efficiency levels match FEMP's performance requirement for these motors.
As a result of this increase in mandatory minimum standards and combined with the lack of significant availability of motors exceeding these standards, FEMP is suspending the purchasing specification for electric motors. Federal buyers may select for purchase any motor that meets design requirements.
While there is no longer a performance requirement that Federal buyers must meet, FEMP recommends that Federal customers consider the following:
Variable Frequency Drives: Variable frequency drives (VFDs), the most common type of adjustable speed drives, can be used with motors to help lower energy costs. VFDs are electronic systems used to control motor speed by changing the frequency and voltage supplied to the motor. VFDs can result in substantial energy savings, especially for varying loads. Small reductions in speed can also yield substantial energy savings. For example, a 20% reduction in fan speed can reduce energy consumption by nearly 50%. Pump, fan, and compressor systems with variable loads should be considered for retrofit with VFDs.
Rewinding or Replacing Motors: Many users choose to rewind or repair motors when they fail, a practice that is more common with motors greater than 50 hp. Even though rewinding a motor costs less than buying a new one, for most applications with high annual hours of operation it is cost effective to replace a standard motor with a premium one. In many cases, it may be cost effective to replace a standard motor prior to failure with a NEMA premium motor.
Motor Decisions Matter provides guidance on motor replacement and rewinding. Once a new motor has been purchased, rewinding or repairing it, even at a quality service center, may degrade its efficiency slightly (0.5% to 1.0% per rewind is the common rule of thumb). Though it is generally not cost effective to rewind open drip proof (ODP) motors, rewinding is often a cost effective option for large (greater than 100 hp) totally enclosed fan cooled (TEFC) motors. The Electrical Apparatus Service Association (EASA) provides a list of motor service centers.