Illinois Energy Conservation Code

<%@ Language=VBScript %> <% Option Explicit Const fromField = "Illinois Energy Conservation Code" Const toField = "Illinois Energy Conservation Code" Const subjectField = "Electronic Request for MultiMedia CD " Dim MyCodSys Dim strName Dim strCompany Dim strOccupation Dim strAddress Dim strPhone Dim strFax Dim stremail Dim strmessage Dim strbody Dim submitButton submitButton = Request.Form("submitButton") If submitButton = "Proceed" Then ' submitting the form strName = Request.Form("name") strCompany = Request.Form("company") strOccupation = Request.Form("occupation") strAddress = Request.Form("address") strPhone = Request.Form("phone") strFax = Request.Form("fax") stremail = Request.Form("email") strmessage = Request.Form("message") strbody = "Electronic Request for MultiMedia CD " & chr(10) strbody = strbody & FormatDateTime(Now(), 3) & " " & FormatDateTime(Date(), 1) & chr(10) & chr(10) strbody = strbody & "Name: " & chr(10) & strName & chr(10) & chr(10) strbody = strbody & "Email: " & chr(10) & stremail & chr(10) & chr(10) strbody = strbody & "Company: " & chr(10) & strCompany & chr(10) & chr(10) strbody = strbody & "Occupation: " & chr(10) & strOccupation & chr(10) & chr(10) strbody = strbody & "Address: " & chr(10) & strAddress & chr(10) & chr(10) strbody = strbody & "Phone Number: " & chr(10) & strPhone & chr(10) & chr(10) strbody = strbody & "Fax Number: " & chr(10) & strFax & chr(10) & chr(10) strbody = strbody & "Comments: " & chr(10) & strmessage & chr(10) & chr(10) Set MyCodSys = Server.CreateObject("CDO.Message") response.write("") response.flush() MyCodSys.From = fromField ' define by constant at the top of the page MyCodSys.To = toField ' define by constant at the top of the page MyCodSys.Subject = subjectField ' define by constant at the top of the page MyCodSys.TextBody = strbody MyCodSys.Send Set MyCodSys = Nothing End If %> <% ' Decide whether to show the email form ' or show the confirmation page and start download If submitButton = "Proceed" Then ' we have just sent the email %> Illinois Energy Conservation Code

ABOUT

VIDEO PRESENTATIONS

» ILLINOIS ENERGY CONSERVATION CODE
» COMcheck
» BUILDING SCIENCE
» INDOOR AIR QUALITY

RESOURCES

TECHNICAL SUPPORT

CONTACT

To watch the video presentations, your computer must have up-to-date video viewing software installed. If the video doesn't work, install the FREE Windows Media Player. »

If you are unable to view this training due to poor internet connections or insufficient computer operation, you may request the content be mailed to you on a compact disc. Please submit this form »

NOTE: We apologize, however the Indoor Environmental Quality in Commercial Buildings Training is unavailable on CD-ROM.

Electronic Request for MultiMedia CD

Thank-you! Your CD will be mailed to the provided address.

HOME | ABOUT | RESOURCES | TECHNICAL SUPPORT | CONTACT

<%Else ' we are loading this form for the first time or user didn't provide required fields %> Illinois Energy Conservation Code