<%
Response.Buffer = True
Response.CacheControl = "private"
Response.Expires = -1
if (Request.Form("Submit") = "Submit") then
'
'code for composing the mail
'
'Dimension variables
Dim strBody 'Holds the body of the e-mail
Dim strMyEmailAddress 'Holds your e-mail address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail
Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail
Dim strReturnEmailAddress 'Holds the return e-mail address of the user
'----------------- Place your e-mail address in the following sting ----------------------------------
strMyEmailAddress = "marketing@datexcorp.com" '""'
'----------- Place Carbon Copy e-mail address's in the following sting, separated by ; --------------
strCCEmailAddress = "marmanious@datexcorp.com"'Use this string only if you want to send the carbon copies of the e-mail
'----------- Place Blind Copy e-mail address's in the following sting, separated by ; --------------
strBCCEmailAddress = ""'""'"" 'Use this string only if you want to send the blind copies of the e-mail
'-----------------------------------------------------------------------------------------------------
'Initialse strBody string with the body of the e-mail
strBody = "Shown interest in Redbeam demo"
strBody = strBody & "
The following user has shown interest in Redbeam demo"
strBody = strBody & " "
strBody = strBody & " Name: " & Request.Form("Name")
strBody = strBody & " Company: " & Request.Form("Company")
strBody = strBody & " Title: " & Request.Form("Title")
strBody = strBody & " Address: " & Request.Form("Address") & " " & Request.Form("Address2")
strBody = strBody & " City: " & Request.Form("City")
strBody = strBody & " State: " & Request.Form("State")
strBody = strBody & " ZIP: " & Request.Form("ZIP")
strBody = strBody & " Country: " & Request.Form("Country")
strBody = strBody & " Phone: " & Request.Form("Phone")
strBody = strBody & " Email: " & Request.Form("Email")
'Read in the users e-mail address
strReturnEmailAddress = Request.Form("Email")
'Send the e-mail
'Create the e-mail server object
Dim objCDOMail 'As CDONTS.NewMail
Set objCDOMail = server.CreateObject("CDO.Message")
'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = Request.Form("Name") & " <" & strReturnEmailAddress & ">"
'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress
'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress
'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress
'Set the subject of the e-mail
objCDOMail.Subject = "Redbeam demo downloaded"
'Set the main body of the e-mail
objCDOMail.HTMLBody = strBody
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
Session("redbeam") = "redbeam"
Response.Redirect("redbeam_demo.asp")
end if
%>
Please fill in this Registration form in order to view or download Redbeam Software demo. Your contact details will help us to keep you informed about future developments.
Note : Fields marked with * are necessary to complete this transaction.
