<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 65001 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("master3_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(5) Dim arFormDBFields0(5) Dim arFormValues0(5) arFormFields0(0) = "zipcode" arFormDBFields0(0) = "zipcode" arFormValues0(0) = Request("zipcode") arFormFields0(1) = "firstname" arFormDBFields0(1) = "firstname" arFormValues0(1) = Request("firstname") arFormFields0(2) = "lastname" arFormDBFields0(2) = "lastname" arFormValues0(2) = Request("lastname") arFormFields0(3) = "EmailAddress" arFormDBFields0(3) = "EmailAddress" arFormValues0(3) = Request("EmailAddress") arFormFields0(4) = "Comments" arFormDBFields0(4) = "Comments" arFormValues0(4) = Request("Comments") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "news/10 TIPS TO HELP YOU SAVE ENERGY.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Energy Efficiency and Radiant Barriers for energy savings

MY Energy Efficiency.info

Energy Efficiency Information Website

Learn how to become energy efficient, save energy and money with smart choices for your home.

Wind Power & Solar Energy  The energy that we use is based on our life style choices. The rising cost of energy is now creating challenges us because of our lack of attention to the details of how we use energy in our homes.

This website is dedicated to sharing information that can help improve our energy efficiency and reduce our energy consumption in our homes and not limit the quality of our lives.

 

Come learn about energy efficiency and different energy saving technology that can save you money.

 

Energy Savings Tips (EST) Newsletter
Sign up here for our popular EST newsletter with information about Radiant Barrier systems for attics, Solar Screens, Solar powered attic fans, weatherization techniques and power factor correction equipment to help in your energy conservation and energy efficiency.

Sign up now and you will get our FREE 10 point Energy Conservation guide that will save you money on your energy cost today.

  First Name        

  Last Name        

  Zip Code for calculating energy cost
                          

  Email address   

  Comments        

                          

Other resources

Dallas Home Inspection

Dallas Energy Inspection

Energy Efficiency for your Home

Saving Energy for Energy Efficiency

Energy Conservation for Energy Savings