Registration Response

<%@ Language=VBScript %> <% 'declare variables Dim strLname 'user's last name Dim strFname 'user's first name Dim strJob 'user's job Dim strCompany 'user's company Dim strAddress 'user's address Dim strCity Dim strSt Dim strZip Dim phone 'user's phone Dim intFax1 'user's fax Dim intFax2 Dim intFax3 Dim strEmail 'user's email Dim strseminardate 'contains answer to the first question of the survey Dim strOtherText 'contains answer to the first question of the survey 'get user information fields strLname = Request.Form("lname") strFname = Request.Form("fname") strJob = Request.Form("job") strCompany = Request.Form("company") strAddress = Request.Form("address") strCity = Request.Form("city") strSt = Request.Form("st") strZip = Request.Form("zip") strCountry = Request.Form("country") phone = Request.Form("phone") intFax1 = Request.Form("fax1") intFax2 = Request.Form("fax2") intFax3 = Request.Form("fax3") strEmail = Request.Form("email") If Request.QueryString("submit") = "true" and Request.Form("hdnAction") = "send" Then 'check if Other radio is selected on the survey question if Request.Form("optQ1") = "Other" Then strOtherText = "Other: " & Request.Form("Other") Else strOtherText = Request.Form("optQ1") End If 'Start sending of email On error resume next Dim mySmartMail Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") mySmartMail.Server = "localhost" mySmartMail.SenderName = strFname & " " & strLname mySmartMail.SenderAddress = strEmail mySmartMail.Recipients.Add "adobereg@bomacorp.com", "Adobe Registrations" mySmartMail.Subject = "Registration Details - " & strCompany HTML = "" & vbCrLf HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Registration Response " HTML = HTML & " " HTML = HTML & " " HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "

Enterprise - Download Presentation
Making the Case - Intelligent Workflows for Effective Case Management - Download Presentation
Last Name:	" & strLname & "
First Name:	" & strFname & "
Job Title:	" & strJob & "
Company:	" & strCompany & "
Address:	" & strAddress & "
City:	" & strCity & "
State/Province:	" & strSt & "
Zip/Postal Code:	" & strZip & "
Country:	" & strCountry & "
Phone:	" & phone & "
Fax:	" & intFax1 & "-" & intFax2 & "-" & intFax3 & "
Email:	" & strEmail & "
Survey Response " HTML = HTML & "Q1. Is your organization facing any of the following business challenges today? " HTML = HTML & "Answer: " & strOtherText & " " HTML = HTML & "Q2. Do you currently have an active project(s) in place to address these business challenges? " HTML = HTML & "Answer: " & Request.Form("ActiveProjects") & " " HTML = HTML & "Q3. If Yes, is this project funded? " HTML = HTML & "Answer: " & Request.Form("ProjectFunded") & " " HTML = HTML & "Q4. If Yes, what is your timeframe to implement a new business solution? " HTML = HTML & "Answer: " & Request.Form("TimeFrame") & " " HTML = HTML & "Q5. Are you implementing an Enterprise Content Management solution to manage forms, documents and email? " HTML = HTML & "Answer: " & Request.Form("ImplementContent") & " " HTML = HTML & "Q6. What is your job function/title? " HTML = HTML & "Answer: " & Request.Form("JobFunction") & " " HTML = HTML & "Q7. Which industry best describes your organization? " HTML = HTML & "Answer: " & Request.Form("Industry") & " " HTML = HTML & "Q8. Would you be interested in receiving our Adobe eNewsletter? " HTML = HTML & "Answer: " & Request.Form("ReceiveNewsletter") & " " HTML = HTML & "Q10. Are you interested in learning more about Adobe solutions? " HTML = HTML & "Answer: " & Request.Form("LearnAdobeSolution") & " " HTML = HTML & "Q11. Would you like to talk to an Adobe Account Manager? " HTML = HTML & "Answer: " & Request.Form("TalkAccountManager") & " " HTML = HTML & "

" HTML = HTML & "" HTML = HTML & "" mySmartMail.Body = HTML mySmartMail.ContentType = "text/html" mySmartMail.SendMail if Err.Number<>0 then Response.write "Error: " & Err.description else 'redirect to the confirmation page Response.Redirect("http://www.adobereg.com/enterprise/workflow/thanks.htm") end if End If %> Registration

	Step 2 of 2
	Is your organization facing any of the following business challenges today?		Generating customized, high quality documents from core applications
			Streamlining collaborative processes: review, commenting and approval
			Extending the reach of core applications to all users
			Storing, maintaining and accessing archived documents
			Automating processes not managed by core business systems
			Supporting global business requirements with the ability to deliver documents worldwide in multiple languages
			None
			Other:

	Do you currently have an active project(s) in place to address these business challenges?
	If Yes, is this project funded?
	If Yes, what is your timeframe to implement a new business solution?
	Are you implementing an Enterprise Content Management solution to manage forms, documents and email?
	What is your job function/title?
	Which industry best describes your organization?
	Would you be interested in receiving our Adobe eNewsletter?
	Are you interested in learning more about Adobe solutions?
	Would you like to talk to an Adobe Account Manager?