<%@ Language=VBScript %> <% Option Explicit Const fromField = "Best of Building Science Online Training" Const toField = "Best of Building Science Online Training" Const subjectField = "Registration Form " Dim MyCodSys Dim strName Dim strCompany Dim strOccupation Dim strAddress Dim strCity Dim strState Dim strZip 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") strCity = Request.Form("city") strState = Request.Form("state") strZip = Request.Form("zip") strPhone = Request.Form("phone") strFax = Request.Form("fax") stremail = Request.Form("email") strmessage = Request.Form("message") strbody = "Best of Building Science Online Training " & 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 & "City: " & chr(10) & strCity & chr(10) & chr(10) strbody = strbody & "State: " & chr(10) & strState & chr(10) & chr(10) strbody = strbody & "Zip: " & chr(10) & strZip & 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 %>

Contact/Update Thank you for taking the time to register!

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

Contact/Update We encourage your feedback and input to this dynamic and growing effort; please contact project partner Guaranteed Watt Savers Inc.; info@gwssi.com. Register Name Occupation Company Address E-mail City Please comment State  Zip   Phone #     Fax #

<%End If%>