'============= 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: Large-scale Renewable Energy Projects (Larger than 10 MWs)"
''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
Large-scale Renewable Energy Projects (Larger than 10 MWs)
Renewable energy projects larger than 10 megawatts (MW) are complex and typically require private-sector financing. The Federal Energy Management Program (FEMP) developed a guide to help Federal agencies, and the developers and financiers that work with them, to successfully install these projects at Federal facilities. The Large-Scale Renewable Energy Guide: Developing Renewable Energy Projects Larger than 10 MWs at Federal Facilities: A Practical Guide to Getting Large-Scale Renewable Energy Projects Financed with Private Capital provides a framework to allow the Federal Government, private developers, and financiers to work in a coordinated effort on large-scale renewable energy projects. The framework includes key elements that should describe a successful, financially attractive large-scale renewable energy project.
The guide also offers key elements that can help Federal agencies build strong business cases, define and mitigate risks, and establish good project characteristics. Federal projects that demonstrate these elements should attract the private sector to respond to the Federal competitive acquisition process and invest in large-scale renewable energy projects.
In addition, the guide:
Shows agencies and developers that they have a common goal of deploying significant amounts of large-scale renewable energy projects at Federal facilities.
Provides a common language to facilitate effective communication and support successful working relationships between developers and Federal agencies. Lays out a common process that is grounded in commercial development and risk, but accommodates the unique requirements and constraints of each party.
Offers an organizational framework, evaluation process, and sample resources in appendices for Federal employees and others seeking to learn about private development methodologies.
About the Guide
The Large-Scale Renewable Energy Guide is comprehensive but divided into user-friendly sections:
- Section I highlights the language differences between Federal agencies and the private sector.
- Section II describes a framework commonly used by the private sector to develop large-scale renewable energy projects.
- Section III adapts the private sector framework to the government planning and acquisition process.
Appendices, which detail subjects covered in Sections II and III, make up a large portion of this guide. Particular attention should focus on Appendix B, which provides detailed information on the data collected through the stages of the project development process.