<%
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="Altiris Software Virtualization 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 & "
" & "
" & "Thank you for downloading the Altiris Software Virtualization Solution, please do let me know if you encountered any download problems.I trust your trial will be successful, please do not hesitate to contact me should you have any questions."
strBody = strBody & "
" & "
" & "You can also email support@codework.com for any technical queries."
strBody = strBody & "
" & "
" & "Best Regards"
strBody = strBody & "
" & "Divyesh Lakhani"
strBody = strBody & "
" & "dl@codework.com http://www.codework-systems.com"
strBody = strBody & "
" & "
" & "CONTACT DETAILS:"
strBody = strBody & "
" & "Codework Ltd"
strBody = strBody & "
" & "Atlas House, 1 Simonsway"
strBody = strBody & "
" & "Manchester, M22 5PP, United Kingdom."
strBody = strBody & "
" & "Tel: +44-161-499-7888"
strBody = strBody & "
" & "Fax: +44-161-499-7899"
strBody = strBody & "
" & "
" & "
" & "USA"
strBody = strBody & "
" & "Codework Inc."
strBody = strBody & "
" & "1623, Military Rd #556, Niagara Falls"
strBody = strBody & "
" & "NY 14304-1745, USA."
strBody = strBody & "
" & "Tel: 1-905-278-8278"
strBody = strBody & "
" & "Fax: 1-866-929-9808"
strBody = strBody & "
" & "
" & "
" & "Canada"
strBody = strBody & "
" & "Codework Inc."
strBody = strBody & "
" & "629 Sequin Crescent,"
strBody = strBody & "
" & "Mississauga, Ontario,"
strBody = strBody & "
" & "L5H 1W4, Canada."
strBody = strBody & "
" & "Tel: 1-905-278-8278"
strBody = strBody & "
" & "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 & "
" & "Company = " & strcompany
strBody2 = strBody2 & "
" & "Address1 = " & straddress1
strBody2 = strBody2 & "
" & "Address2 = " & straddress2
strBody2 = strBody2 & "
" & "Post/Zip Code = " & strpostcode
strBody2 = strBody2 & "
" & "Country = " & strcountry
strBody2 = strBody2 & "
" & "Other Country = " & strothercountry
strBody2 = strBody2 & "
" & "Telephone = " & strtelephone
strBody2 = strBody2 & "
" & "Fax = " & strfax
strBody2 = strBody2 & "
" & "Email = " & stremail & ""
strBody2 = strBody2 & "
" & "Discovered = " & strdiscovered
strBody2 = strBody2 & "
" & "Extra Info = " & strinfo
strBody2 = strBody2 & "
" & "Date they downloaded = " & strDate
strBody2 = strBody2 & "
" & "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 = "Altiris Software Virtualization Solution Eval from www.codework-systems.com"
objCDO.BodyFormat=0
objCDO.Body = strBody2
objCDO.Send
'email sent
'send email to customer using the predefined email strBody
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "db@codework-systems.com"
objCDO.To = stremail
objCDO.Subject = "Altiris Software Virtualization Solution Evaluation Download"
objCDO.BodyFormat=0
objCDO.Body = strBody
objCDO.Send
'response.Write(stremail)
response.redirect "../vsolution/download.htm"
end if
%>