'============= 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: Purchasing Renewable Power"
''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
Purchasing Renewable Power
Federal agencies can purchase renewable power or renewable energy certificates (RECs) from a utility or other organization to meet Federal renewable energy requirements. Renewable power and RECs are good choices for facilities where on-site projects may be difficult or capital budgets are limited.
There are three methods for purchasing renewable power that's not generated on a Federal site:
Renewable Energy Certificates: Also known as renewable energy credits, green certificates, green tags, or tradable renewable certificates, RECs represent the environmental attributes of the power produced from renewable energy projects and are sold separately from commodity electricity. RECs are an attractive option for Federal facilities located where renewable power is not readily available.
To learn more, read the REC Quick Guide, Guide to Purchasing Green Power, and the Green Power Network's REC Web page.
Competitive Renewable Power: In states with competitive electricity markets, Federal agencies can purchase renewable power through competitive electricity procurements. The Green Power Network website shows states that have competitive renewable power product offerings.
Regulated Utility Green Pricing Programs: Green pricing is an optional utility service that allows customers to support a greater level of utility company investment in renewable energy technologies. Participating customers pay a premium on their electric bills to cover the incremental cost of the additional renewable energy. To find out if your utility has a green pricing program, consult the Green Power Network's Green Pricing Web page.
The General Services Administration, Defense Logistics Agency Energy, and Western Area Power Administration each assist Federal agencies with renewable power or REC purchases.
Federal agencies that purchase renewable power may be eligible to join the Environmental Protection Agency's Green Power Partnership, a voluntary program designed to reduce the environmental impact of electricity generation by promoting renewable energy. The Federal Energy Management Program (FEMP) can help determine the best renewable power purchase option in your area and provide you with Green Power Partnership requirements and application procedures.
For more information, see the Resources on Purchasing Renewable Power. FEMP also offers services to help determine the best renewable energy power option based on geographic location.
On-Site Renewable Power Purchase Agreements
On-site power purchase agreements (PPA) allow Federal agencies to fund on-site renewable energy projects with no up-front capital costs incurred. Learn more about PPAs.