<% if request.form("Submit")<> "Submit" then %> <% else 'collect variables strfname=Request.form("fname") strlname=Request.form("lname") strcompany=Request.form("company") strAddress1=Request.form("Address1") strAddress2=Request.form("Address2") strPostcode=Request.form("Postcode") strCountry=Request.form("Country") strothercountry=Request.form("othercountry") strTelephone=Request.form("Telephone") strfax=Request.form("fax") stremail=Request.form("email") strDiscovered=Request.form("Discovered") strDate=Date strinfo=Request.form("info") strproduct="Deployment Solution" 'Define email to the customer using plain text as Chiliasp does not support HTML. Email thanks them for the download and gives them contact details for all three codework offices strBody = "Hi " & strfname strBody = strBody & vbcrlf & vbcrlf & "Thanks for downloading the trial of Altiris Deployment Solution, I trust the download was successful?" strBody = strBody & vbcrlf & vbcrlf & "To install Altiris Deployment Solution, simply run the setup file from a Windows 2000/2003 Server. During setup, you will be asked for the path of a license file, please choose the one which you downloaded earlier from our Download page." strBody = strBody & vbcrlf & vbcrlf & "Note: The License file is not readable, so please do not try to open it." strBody = strBody & vbcrlf & vbcrlf & "The product you have downloaded contains PDF Getting Started guides and User Manuals designed to help you get up to speed quickly and easily." strBody = strBody & vbcrlf & vbcrlf & "I trust your trial will be successful, please do not hesitate to contact me should you have any questions." strBody = strBody & vbcrlf & vbcrlf & "You can also email support@codework-systems.com for any technical questions or queries which you may have." strBody = strBody & vbcrlf & vbcrlf & "Best Regards" strBody = strBody & vbcrlf & "Danielle Brown" strBody = strBody & vbcrlf & "info@codework.com http://www.codework-systems.com" strBody = strBody & vbcrlf & vbcrlf & "CONTACT DETAILS:" strBody = strBody & vbcrlf & "Codework Ltd" strBody = strBody & vbcrlf & "Atlas House, 1 Simonsway" strBody = strBody & vbcrlf & "Manchester, M22 5PP, United Kingdom." strBody = strBody & vbcrlf & "Tel: +44-161-499-7888" strBody = strBody & vbcrlf & "Fax: +44-161-499-7899" strBody = strBody & vbcrlf & vbcrlf & vbcrlf & "USA" strBody = strBody & vbcrlf & "Codework Inc." strBody = strBody & vbcrlf & "1623, Military Rd #556, Niagara Falls" strBody = strBody & vbcrlf & "NY 14304-1745, USA." strBody = strBody & vbcrlf & "Tel: 1-905-278-8278" strBody = strBody & vbcrlf & "Fax: 1-866-929-9808" strBody = strBody & vbcrlf & vbcrlf & vbcrlf & "Canada" strBody = strBody & vbcrlf & "Codework Inc." strBody = strBody & vbcrlf & "629 Sequin Crescent," strBody = strBody & vbcrlf & "Mississauga, Ontario," strBody = strBody & vbcrlf & "L5H 1W4, Canada." strBody = strBody & vbcrlf & "Tel: 1-905-278-8278" strBody = strBody & vbcrlf & "Fax: 1-866-929-9808" 'end email to customer 'Define email to all for the download. Lets Everyone know there is a download and gives them the customers full details. strBody2 = "Name = " & strfname & " " & strlname strBody2 = strBody2 & vbcrlf & "Company = " & strcompany strBody2 = strBody2 & vbcrlf & "Address1 = " & straddress1 strBody2 = strBody2 & vbcrlf & "Address2 = " & straddress2 strBody2 = strBody2 & vbcrlf & "Post/Zip Code = " & strpostcode strBody2 = strBody2 & vbcrlf & "Country = " & strcountry strBody2 = strBody2 & vbcrlf & "Other Country = " & strothercountry strBody2 = strBody2 & vbcrlf & "Telephone = " & strtelephone strBody2 = strBody2 & vbcrlf & "Fax = " & strfax strBody2 = strBody2 & "
" & "Email = " & stremail & "" strBody2 = strBody2 & vbcrlf & "Discovered = " & strdiscovered strBody2 = strBody2 & vbcrlf & "Extra Info = " & strinfo strBody2 = strBody2 & vbcrlf & "Date they downloaded = " & strDate strBody2 = strBody2 & vbcrlf & "Product = " & strproduct 'end of email 'open email to use CDONTS email system Dim objCDO 'Set objCDO = Server.CreateObject("CDONTS.NewMail") 'Send email to Divyesh using the body of the predefined email strBody2 'objCDO.From = stremail 'objCDO.To = "dl@codework.com" 'objCDO.Subject = "Deployment Solution Eval from www.codework-systems.com" 'objCDO.Body = strBody2 'objCDO.Send 'email sent 'send email to customer using the predefined email strBody Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "info@codework.com" objCDO.To = stremail objCDO.Subject = "Deployment Solution Evaluation Download" objCDO.Body = strBody objCDO.Send 'response.Write(stremail) response.redirect "../cloning/download.htm" end if %>