tRAINING: Online Registration Form

<% If Request("content_length")=0 then %>

Training sessions are usually held during February and September. To be added to the mailing list for our next training session, please complete the form below:

Company: *
Phone: *	Ext:  Fax:
Email: *
Address: *
City: *	State: Postal Code: *
(1) Name: *
(2) Name:
(3) Name:
(4) Name:
	Payment may be made by check, payable to Gartner Refrigeration, or billed direct using PO #
Confirmation will be sent to the individual(s) approximately 1 week before class. Hotel is not included with the registration fee. Lunch and breaks are included.

<% Response.End END SUB Sub ContinueForm() %>

Please feel free to contact Otto Gartner (ext. 1345) or Kim McKane (ext. 0) at 1-800/328-5547 if you have any questions or would like further information regarding our training sessions.

<% end sub If Trim(Request.Form("company")) = "" Then errorForm "Please enter your company affiliation." ElseIf Trim(Request.Form("address")) = "" Then errorForm "Please enter your mailing address to send the publication requested to." ElseIf Trim(Request.Form("city")) = "" Then errorForm "Please enter the city of your mailing address." ElseIf Trim(Request.Form("postalcode")) = "" Then errorForm "Please enter the postal code of your mailing address." ElseIf Trim(Request.Form("phone")) = "" Then errorForm "Please enter your phone number so we may contact you if we have questions." ElseIf Trim(Request.Form("emailaddress")) = "" Then errorForm "Your email address is required." ElseIf InStr(Request.Form("emailaddress"),"@") = 0 Then errorForm "Please check your email address, and make sure it is in a valid format." ElseIf Trim(Request.Form("name1")) = "" Then errorForm "At least one contact from your company is required." Else continueform() End If '********** declare variables for email template company = trim(request.form("company")) phone = trim(request.form("phone")) & " " & trim(request.form("ext")) fax = trim(request.form("fax")) emailaddress = trim(request.form("emailaddress")) address = trim(request.form("address")) & " " & trim(request.form("address2")) city = trim(request.form("city")) & ", " & trim(request.form("state")) & " " & trim(request.form("postalcode")) name1 = Trim(request.form("name1")) name2 = Trim(request.form("name2")) name3 = Trim(request.form("name3")) name4 = Trim(request.form("name4")) po = Trim(request.form("po")) 'Dimension variables Dim objCDOSYSCon, objTextStream, objFSO 'Create the e-mail server object Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") Set fso = Server.CreateObject("Scripting.FileSystemObject") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.gartner-refrig.com" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'Send notification email to gartner Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = "info@gartner-refrig.com" objCDOSYSMail.To = "KimM@Gartner-Refrig.com" 'objCDOSYSMail.To = "bonnie@supportunlimited.net" objCDOSYSMail.Subject = "Training Mailing List Request" spath=server.mappath(".") if fso.fileExists(spath & "/email_template.htm") then set ffile=Fso.opentextfile(spath & "/email_template.htm",1) Sbodycontent=ffile.ReadAll else sBodycontent="" end if fldBody=replace(sbodycontent,"",company) fldBody=replace(fldbody,"",phone) fldBody=replace(fldbody,"",fax) fldBody=replace(fldbody,"",emailaddress) fldBody=replace(fldbody,"",address) fldBody=replace(fldbody,"",city) fldBody=replace(fldbody,"",name1) fldBody=replace(fldbody,"",name2) fldBody=replace(fldbody,"",name3) fldBody=replace(fldbody,"",name4) fldBody=replace(fldbody,"",po) objCDOSYSMail.aspLBody = fldBody objCDOSYSMail.Send 'Send notification email to the registrant Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.To = emailaddress 'objCDOSYSMail.cc = "bonnie@supportunlimited.net" objCDOSYSMail.bcc = "KimM@Gartner-Refrig.com" objCDOSYSMail.Subject = "Publication Request Received" spath=server.mappath(".") if fso.fileExists(spath & "/visitor_template.htm") then set ffile1=Fso.opentextfile(spath & "/visitor_template.htm",1) Sbodycontent1=ffile1.ReadAll else sBodycontent1="" end if title = "Training Request Received" fldBody1=replace(sBodycontent1,"",company) fldBody1=replace(fldbody1,"",address) fldBody1=replace(fldbody1,"",city) fldBody1=replace(fldbody1,"",name1) fldBody1=replace(fldbody1,"",name2) fldBody1=replace(fldbody1,"",name3) fldBody1=replace(fldbody1,"",name4) objCDOSYSMail.aspLBody = fldBody1 objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing Set fso = Nothing Session.Abandon end if %>