<% Option Explicit %>
<!-- #include file="includes/utilities.asp" -->
<!-- #include file="includes/sendmail.asp" -->
<%
'#####  PROCESS QUESTIONNAIRE FORM  #####

'check to see if this is a form post
If Request("postcheck") = "yes" Then
	'it is a form post, begin processing form
	
	'Setup Email variables
	Dim strBody, strFromAddress, strFromName, strToAddress, strToName, strSubject
	
	'Setup Information variables
	Dim strCurrentCommerce, strAvgMonthlySales, strPayToPromote, strMonthlyToPromote
	Dim strPromote, strTrack, strEmailFrequency, strEmailInfo, strTypeOfInfo
	Dim strWebSalesIncreaseExpected, strSiteEmployees, strOtherExpenses, strUseAgencyOrFirm, strApplyOtherExpenses
	Dim strReportOnCompetition, strKnowProfitMargin, strProfitMargin, strKeptYou
	Dim strPartner, strWillingToSpend, strMarginExpected, strEmailAddress
	
	'Set up variables for code execution
	Dim numTrack
	
	'Set up database variables
	Dim strSQL, objConn
	
	'gather and process info as needed
	strBody = ""
	If Request("currentcommerce") = "" Or IsNull(Request("currentcommerce")) Then
		strCurrentCommerce = ""
		strBody = strBody & "Commerce on current web site: not selected" & vbCrLf
	Else
		strCurrentCommerce = Request("currentcommerce")
		strBody = strBody & "Commerce on current web site: " & Request("currentcommerce") & vbCrLf
	End If
	If Request("avgmonthlysales") = "" Or IsNull(Request("avgmonthlysales")) Then
		strAvgMonthlySales = ""
		strBody = strBody & "Average monthly sales: not selected" & vbCrLf
	Else
		strAvgMonthlySales = Request("avgmonthlysales")
		strBody = strBody & "Average monthly sales: " & Request("avgmonthlysales") & vbCrLf
	End If
	If Request("paytopromote") = "" Or IsNull(Request("paytopromote")) Then
		strPayToPromote = ""
		strBody = strBody & "Pay to promote: not selected" & vbCrLf
	Else
		strPayToPromote = Request("paytopromote")
		strBody = strBody & "Pay to promote: " & Request("paytopromote") & vbCrLf
	End If
	If Request("monthlytopromote") = "" Or IsNull(Request("monthlytopromote")) Then
		strMonthlyToPromote = ""
		strBody = strBody & "Monthly to promote: not selected" & vbCrLf
	Else
		strMonthlyToPromote = Request("monthlytopromote")
		strBody = strBody & "Monthly to promote: " & Request("monthlytopromote") & vbCrLf
	End If
	strBody = strBody & "Where is money spent to promote site: "
	numTrack = 0
		If Not(Request("promote_searchengines") = "" Or IsNull(Request("promote_searchengines"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strPromote = strPromote & ", "
			End If
			strBody = strBody & "Search Engines"
			strPromote = strPromote & "Search Engines"
			numTrack = numTrack + 1
		End If
		If Not(Request("promote_bannerads") = "" Or IsNull(Request("promote_bannerads"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strPromote = strPromote & ", "
			End If
			strBody = strBody & "Banner Ads"
			strPromote = strPromote & "Banner Ads"
			numTrack = numTrack + 1
		End If
		If Not(Request("promote_printads") = "" Or IsNull(Request("promote_printads"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strPromote = strPromote & ", "
			End If
			strBody = strBody & "Print Ads"
			strPromote = strPromote & "Print Ads"
			numTrack = numTrack + 1
		End If
		If Not(Request("promote_television") = "" Or IsNull(Request("promote_television"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strPromote = strPromote & ", "
			End If
			strBody = strBody & "Television"
			strPromote = strPromote & "Television"
			numTrack = numTrack + 1
		End If
		If Not(Request("promote_radio") = "" Or IsNull(Request("promote_radio"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strPromote = strPromote & ", "
			End If
			strBody = strBody & "Radio"
			strPromote = strPromote & "Radio"
			numTrack = numTrack + 1
		End If
		If Not(Request("promote_directmail") = "" Or IsNull(Request("promote_directmail"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strPromote = strPromote & ", "
			End If
			strBody = strBody & "Direct Mail"
			strPromote = strPromote & "Direct Mail"
			numTrack = numTrack + 1
		End If
		If Not(Request("promote_email") = "" Or IsNull(Request("promote_email"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strPromote = strPromote & ", "
			End If
			strBody = strBody & "Email"
			strPromote = strPromote & "Email"
			numTrack = numTrack + 1
		End If
		If Not(Request("promote_publicrelations") = "" Or IsNull(Request("promote_publicrelations"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strPromote = strPromote & ", "
			End If
			strBody = strBody & "Public Relations"
			strPromote = strPromote & "Public Relations"
			numTrack = numTrack + 1
		End If
	strBody = strBody & vbCrLf &  "How do you track online marketing effectiveness: "
	numTrack = 0
		If Not(Request("track_sitetraffic") = "" Or IsNull(Request("track_sitetraffic"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTrack = strTrack & ", "
			End If
			strBody = strBody & "Site Traffic"
			strTrack = strTrack & "Site Traffic"
			numTrack = numTrack + 1
		End If
		If Not(Request("track_costpervisit") = "" Or IsNull(Request("track_costpervisit"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTrack = strTrack & ", "
			End If
			strBody = strBody & "Cost Per Visit"
			strTrack = strTrack & "Cost Per Visit"
			numTrack = numTrack + 1
		End If
		If Not(Request("track_costpertransaction") = "" Or IsNull(Request("track_costpertransaction"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTrack = strTrack & ", "
			End If
			strBody = strBody & "Cost Per Transaction"
			strTrack = strTrack & "Cost Per Transaction"
			numTrack = numTrack + 1
		End If
		If Not(Request("track_monthlysalesgrowth") = "" Or IsNull(Request("track_monthlysalesgrowth"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTrack = strTrack & ", "
			End If
			strBody = strBody & "Monthly Sales Growth"
			strTrack = strTrack & "Monthly Sales Growth"
			numTrack = numTrack + 1
		End If
		If Not(Request("track_conversionrate") = "" Or IsNull(Request("track_conversionrate"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTrack = strTrack & ", "
			End If
			strBody = strBody & "Conversion Rate"
			strTrack = strTrack & "Conversion Rate"
			numTrack = numTrack + 1
		End If
	strBody = strBody & vbCrLf
	If Request("emailfrequency") = "" Or IsNull(Request("emailfrequency")) Then
		strEmailFrequency = ""
		strBody = strBody & "Email sending frequency: not selected" & vbCrLf
	Else
		strEmailFrequency = Request("emailfrequency")
		strBody = strBody & "Email sending frequency: " & Request("emailfrequency") & vbCrLf
	End If
	strBody = strBody & "What information do you include in emails: "
	numTrack = 0
		If Not(Request("email_specialoffers") = "" Or IsNull(Request("email_specialoffers"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strEmailInfo = strEmailInfo & ", "
			End If
			strBody = strBody & "Site Traffic"
			strEmailInfo = strEmailInfo & "Site Traffic"
			numTrack = numTrack + 1
		End If
		If Not(Request("email_closeoutmerchandise") = "" Or IsNull(Request("email_closeoutmerchandise"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strEmailInfo = strEmailInfo & ", "
			End If
			strBody = strBody & "Closeout Merchandise"
			strEmailInfo = strEmailInfo & "Closeout Merchandise"
			numTrack = numTrack + 1
		End If
		If Not(Request("email_tipsoradvice") = "" Or IsNull(Request("email_tipsoradvice"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strEmailInfo = strEmailInfo & ", "
			End If
			strBody = strBody & "Tips or Advice"
			strEmailInfo = strEmailInfo & "Tips or Advice"
			numTrack = numTrack + 1
		End If
		If Not(Request("email_questionnaires") = "" Or IsNull(Request("email_questionnaires"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strEmailInfo = strEmailInfo & ", "
			End If
			strBody = strBody & "Questionnaires"
			strEmailInfo = strEmailInfo & "Questionnaires"
			numTrack = numTrack + 1
		End If
		If Not(Request("email_thirdpartyoffers") = "" Or IsNull(Request("email_thirdpartyoffers"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strEmailInfo = strEmailInfo & ", "
			End If
			strBody = strBody & "Third Party Offers"
			strEmailInfo = strEmailInfo & "ThirdPartyOffers"
			numTrack = numTrack + 1
		End If
		If Not(Request("email_articles") = "" Or IsNull(Request("email_articles"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strEmailInfo = strEmailInfo & ", "
			End If
			strBody = strBody & "Articles"
			strEmailInfo = strEmailInfo & "Articles"
			numTrack = numTrack + 1
		End If
		If Not(Request("email_discountsorcoupons") = "" Or IsNull(Request("email_discountsorcoupons"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strEmailInfo = strEmailInfo & ", "
			End If
			strBody = strBody & "Discounts or Coupons"
			strEmailInfo = strEmailInfo & "Discounts or Coupons"
			numTrack = numTrack + 1
		End If
		If Not(Request("email_whitepapers") = "" Or IsNull(Request("email_whitepapers"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strEmailInfo = strEmailInfo & ", "
			End If
			strBody = strBody & "White Papers"
			strEmailInfo = strEmailInfo & "White Papers"
			numTrack = numTrack + 1
		End If
	strBody = strBody & vbCrLf & "What information do you gather from customers: "
	numTrack = 0
		If Not(Request("typeofinfo_age") = "" Or IsNull(Request("typeofinfo_age"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTypeOfInfo = strTypeOfInfo & ", "
			End If
			strBody = strBody & "Age"
			strTypeOfInfo = strTypeOfInfo & "Age"
			numTrack = numTrack + 1
		End If
		If Not(Request("typeofinfo_sex") = "" Or IsNull(Request("typeofinfo_sex"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTypeOfInfo = strTypeOfInfo & ", "
			End If
			strBody = strBody & "Sex"
			strTypeOfInfo = strTypeOfInfo & "Sex"
			numTrack = numTrack + 1
		End If
		If Not(Request("typeofinfo_householdincome") = "" Or IsNull(Request("typeofinfo_householdincome"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTypeOfInfo = strTypeOfInfo & ", "
			End If
			strBody = strBody & "Household Income"
			strTypeOfInfo = strTypeOfInfo & "Household Income"
			numTrack = numTrack + 1
		End If
		If Not(Request("typeofinfo_maritalstatus") = "" Or IsNull(Request("typeofinfo_maritalstatus"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTypeOfInfo = strTypeOfInfo & ", "
			End If
			strBody = strBody & "Marital Status"
			strTypeOfInfo = strTypeOfInfo & "Marital Status"
			numTrack = numTrack + 1
		End If
		If Not(Request("typeofinfo_profession") = "" Or IsNull(Request("typeofinfo_profession"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTypeOfInfo = strTypeOfInfo & ", "
			End If
			strBody = strBody & "Profession"
			strTypeOfInfo = strTypeOfInfo & "Profession"
			numTrack = numTrack + 1
		End If
		If Not(Request("typeofinfo_familysize") = "" Or IsNull(Request("typeofinfo_familysize"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTypeOfInfo = strTypeOfInfo & ", "
			End If
			strBody = strBody & "Family Size"
			strTypeOfInfo = strTypeOfInfo & "Family Size"
			numTrack = numTrack + 1
		End If
		If Not(Request("typeofinfo_shoppinghistory") = "" Or IsNull(Request("typeofinfo_shoppinghistory"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTypeOfInfo = strTypeOfInfo & ", "
			End If
			strBody = strBody & "Shopping History"
			strTypeOfInfo = strTypeOfInfo & "Shopping History"
			numTrack = numTrack + 1
		End If
		If Not(Request("typeofinfo_mediaconsumption") = "" Or IsNull(Request("typeofinfo_mediaconsumption"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTypeOfInfo = strTypeOfInfo & ", "
			End If
			strBody = strBody & "Media Consumption"
			strTypeOfInfo = strTypeOfInfo & "Media Consumption"
			numTrack = numTrack + 1
		End If
		If Not(Request("typeofinfo_email") = "" Or IsNull(Request("typeofinfo_email"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTypeOfInfo = strTypeOfInfo & ", "
			End If
			strBody = strBody & "Email Address"
			strTypeOfInfo = strTypeOfInfo & "Email Address"
			numTrack = numTrack + 1
		End If
		If Not(Request("typeofinfo_outsidedata") = "" Or IsNull(Request("typeofinfo_outsidedata"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strTypeOfInfo = strTypeOfInfo & ", "
			End If
			strBody = strBody & "Outside Data"
			strTypeOfInfo = strTypeOfInfo & "Outside Data"
			numTrack = numTrack + 1
		End If
	strBody = strBody & vbCrLf
	If Request("websalesincreaseexpected") = "" Or IsNull(Request("websalesincreaseexpected")) Then
		strWebSalesIncreaseExpected = ""
		strBody = strBody & "Web Sales Increase Expected: not selected" & vbCrLf
	Else
		strWebSalesIncreaseExpected = Request("websalesincreaseexpected")
		strBody = strBody & "Web Sales Increase Expected: " & Request("websalesincreaseexpected") & vbCrLf
	End If
	If Request("siteemployees") = "" Or IsNull(Request("siteemployees")) Then
		strSiteEmployees = ""
		strBody = strBody & "Site employees: not selected" & vbCrLf
	Else
		strSiteEmployees = Request("siteemployees")
		strBody = strBody & "Site employees: " & Request("siteemployees") & vbCrLf
	End If
	If Request("otherexpenses") = "" Or IsNull(Request("otherexpenses")) Then
		strOtherExpenses = ""
		strBody = strBody & "Other Expenses: not selected" & vbCrLf
	Else
		strOtherExpenses = Request("otherexpenses")
		strBody = strBody & "Other Expenses: " & Request("otherexpenses") & vbCrLf
	End If
	If Request("useagencyorfirm") = "" Or IsNull(Request("useagencyorfirm")) Then
		strUseAgencyOrFirm = ""
		strBody = strBody & "Use Agency or Firm: not selected" & vbCrLf
	Else
		strUseAgencyOrFirm = Request("useagencyorfirm")
		strBody = strBody & "Use Agency or Firm: " & Request("useagencyorfirm") & vbCrLf
	End If
	If Request("applyotherexpenses") = "" Or IsNull(Request("applyotherexpenses")) Then
		strApplyOtherExpenses = ""
		strBody = strBody & "Apply Other Expenses: not selected" & vbCrLf
	Else
		strApplyOtherExpenses = Request("applyotherexpenses")
		strBody = strBody & "Apply Other Expenses: " & Request("applyotherexpenses") & vbCrLf
	End If
	If Request("reportoncompetition") = "" Or IsNull(Request("reportoncompetition")) Then
		strReportOnCompetition = ""
		strBody = strBody & "Report on Competition: not selected" & vbCrLf
	Else
		strReportOnCompetition = Request("reportoncompetition")
		strBody = strBody & "Report on Competition: " & Request("reportoncompetition") & vbCrLf
	End If
	If Request("knowprofitmargin") = "" Or IsNull(Request("knowprofitmargin")) Then
		strKnowProfitMargin = ""
		strBody = strBody & "Know Profit Margin: not selected" & vbCrLf
	Else
		strKnowProfitMargin = Request("knowprofitmargin")
		strBody = strBody & "Know Profit Margin: " & Request("knowprofitmargin") & vbCrLf
	End If
	If Request("profitmargin") = "" Or IsNull(Request("profitmargin")) Then
		strProfitMargin = ""
		strBody = strBody & "Profit Margin: not selected" & vbCrLf
	Else
		strProfitMargin = Request("profitmargin")
		strBody = strBody & "Profit Margin: " & Request("profitmargin") & vbCrLf
	End If
	strBody = strBody & "What has kept you from e-commerce: "
	numTrack = 0
		If Not(Request("keptyou_cost") = "" Or IsNull(Request("keptyou_cost"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strKeptYou = strKeptYou & ", "
			End If
			strBody = strBody & "Cost"
			strKeptYou = strKeptYou & "Cost"
			numTrack = numTrack + 1
		End If
		If Not(Request("keptyou_competition") = "" Or IsNull(Request("keptyou_competition"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strKeptYou = strKeptYou & ", "
			End If
			strBody = strBody & "Competition"
			strKeptYou = strKeptYou & "Competition"
			numTrack = numTrack + 1
		End If
		If Not(Request("keptyou_resources") = "" Or IsNull(Request("keptyou_resources"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strKeptYou = strKeptYou & ", "
			End If
			strBody = strBody & "Resources"
			strKeptYou = strKeptYou & "Resources"
			numTrack = numTrack + 1
		End If
		If Not(Request("keptyou_time") = "" Or IsNull(Request("keptyou_time"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strKeptYou = strKeptYou & ", "
			End If
			strBody = strBody & "Time"
			strKeptYou = strKeptYou & "Time"
			numTrack = numTrack + 1
		End If
		If Not(Request("keptyou_noreason") = "" Or IsNull(Request("keptyou_noreason"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strKeptYou = strKeptYou & ", "
			End If
			strBody = strBody & "No Reason"
			strKeptYou = strKeptYou & "No Reason"
			numTrack = numTrack + 1
		End If
		If Not(Request("keptyou_security") = "" Or IsNull(Request("keptyou_security"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strKeptYou = strKeptYou & ", "
			End If
			strBody = strBody & "Security"
			strKeptYou = strKeptYou & "Security"
			numTrack = numTrack + 1
		End If
		If Not(Request("keptyou_other") = "" Or IsNull(Request("keptyou_other"))) Then
			If numTrack > 0 Then
				strBody = strBody & ", "
				strKeptYou = strKeptYou & ", "
			End If
			strBody = strBody & "Other"
			strKeptYou = strKeptYou & "Other"
			numTrack = numTrack + 1
		End If
	strBody = strBody & vbCrLf
	If Request("partner") = "" Or IsNull(Request("partner")) Then
		strPartner = ""
		strBody = strBody & "Would you e-commerce with partner: not selected" & vbCrLf
	Else
		strPartner = Request("partner")
		strBody = strBody & "Would you e-commerce with parther: " & Request("partner") & vbCrLf
	End If
	If Request("willingtospend") = "" Or IsNull(Request("willingtospend")) Then
		strWillingToSpend = ""
		strBody = strBody & "Willing to spend: not selected" & vbCrLf
	Else
		strWillingToSpend = Request("willingtospend")
		strBody = strBody & "Willing to spend: " & Request("willingtospend") & vbCrLf
	End If
	If Request("marginexpected") = "" Or IsNull(Request("marginexpected")) Then
		strMarginExpected = ""
		strBody = strBody & "Margin expected: not selected" & vbCrLf
	Else
		strMarginExpected = Request("marginexpected")
		strBody = strBody & "Margin expected: " & Request("marginexpected") & vbCrLf
	End If
	If Request("emailaddress") = "" Or IsNull(Request("emailaddress")) Then
		strEmailAddress = ""
		strBody = strBody & "Email address: not entered" & vbCrLf
	Else
		strEmailAddress = Request("emailaddress")
		strBody = strBody & "Email address: " & Request("emailaddress") & vbCrLf
	End If
	
	'enter data into database
	Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open Application("ConnectionString")
	strSQL = "INSERT INTO Questionnaire(CurrentCommerce,AvgMonthlySales,PayToPromote,MonthlyToPromote,Promote"
	strSQL = strSQL & ",Track,EmailFrequency,EmailInfo,TypeOfInfo,WebSalesIncreaseExpected,SiteEmployees"
	strSQL = strSQL & ",OtherExpenses,UseAgencyOrFirm,ApplyOtherExpenses,ReportOnCompetition,KnowProfitMargin"
	strSQL = strSQL & ",ProfitMargin,KeptYou,Partner,WillingToSpend,MarginExpected,EmailAddress"
	strSQL = strSQL & ",VisitorIP) VALUES("
	strSQL = strSQL & "'" & RemApostLen(strCurrentCommerce,3) & "','" & RemApostLen(strAvgMonthlySales,50) & "'"
	strSQL = strSQL & ",'" & RemApostLen(strPayToPromote,3) & "','" & RemApostLen(strMonthlyToPromote,50) & "'"
	strSQL = strSQL & ",'" & RemApostLen(strPromote,256) & "','" & RemApostLen(strTrack,256) & "'"
	strSQL = strSQL & ",'" & RemApostLen(strEmailFrequency,50) & "','" & RemApostLen(strEmailInfo,256) & "'"
	strSQL = strSQL & ",'" & RemApostLen(strTypeOfInfo,256) & "','" & RemApostLen(strWebSalesIncreaseExpected,50) & "'"
	strSQL = strSQL & ",'" & RemApostLen(strSiteEmployees,50) & "','" & RemApostLen(strOtherExpenses,50) & "'"
	strSQL = strSQL & ",'" & RemApostLen(strUseAgencyOrFirm,3) & "','" & RemApostLen(strApplyOtherExpenses,3) & "'"
	strSQL = strSQL & ",'" & RemApostLen(strReportOnCompetition,3) & "','" & RemApostLen(strKnowProfitMargin,3) & "'"
	strSQL = strSQL & ",'" & RemApostLen(strProfitMargin,50) & "','" & RemApostLen(strKeptYou,256) & "'"
	strSQL = strSQL & ",'" & RemApostLen(strPartner,3) & "','" & RemApostLen(strWillingToSpend,50) & "'"
	strSQL = strSQL & ",'" & RemApostLen(strMarginExpected,50) & "','" & RemApostLen(strEmailAddress,100) & "'"
	strSQL = strSQL & ",'" & Request.ServerVariables("remote_addr") & "'"
	strSQL = strSQL & ");"
	objConn.Execute strSQL
	objConn.Close
	Set objConn = Nothing
	
	'send email to Pete and Brian
	If strEmailAddress = "" Then
		strSubject = "ificient Web Site Questionnaire Details: No Address"
	Else
		strSubject = "ificient Web Site Questionnaire Details: " & strEmailAddress
	End If
	'SendMail (sSenderName, sSenderAddress, sReceiverName, sReceiverAddress, sSubject, sBody, sRemoteHost, sContentType)
	'FOR TESTING: SendMail "ificient Web Site Questionnaire", "info@perficiency.com", "Jeff Demel", "jeff@myverse.net", strSubject, strBody, "mail.perficiency.com", "text"
	SendMail "ificient Web Site Questionnaire", "info@ificient.com", "ificiency info", "info@ificient.com", strSubject, strBody, "mail.ificient.com", "text"
	
	'send email to visitor, if they provided their email address
	If Not(strEmailAddress = "") Then
		strBody = "Thank you for filling out our questionnaire.  We are including your responses below, and will send you a copy of the over all summary of survey results when we are finished accepting and compiling them." & vbCrLf & vbCrLf & strBody
		'SendMail (sSenderName, sSenderAddress, sReceiverName, sReceiverAddress, sSubject, sBody, sRemoteHost, sContentType)
		SendMail "ificient", "info@ificient.com", strEmailAddress, strEmailAddress, strSubject, strBody, "mail.ificient.com", "text"
	End If
	
	'redirect visitor to thank you page
	Response.Redirect "questions1.asp?sent=yes"
	
End If

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>ificient - Performance and efficiency without the risk</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type=text/css>
td {font-family:arial;color:#666;font-size:11px;}
a.nav {font-family:arial;color:#666;font-size:12px;text-decoration:none}
a.nav:hover {font-family:arial;background-color:#B7431A;color:#fff;font-size:12px;}
a.props {font-family:arial;color:#666;font-size:11px;text-decoration:underline}
a.tour {font-family:arial;color:#B7431A;font-size:11px;text-decoration:underline}
#main {background-color:#fff;padding:10px;width:700px;margin-top:60px;}
#flashtable {margin:-6px;padding:0;}
#propstable {padding:4px;width:420px;}
.bold {font-size:17px;font-weight:bold;color:#B7431A;}
</style>
</head>
<body bgcolor="#74744E" link="#CCCCCC">
<form action="questions1.asp" method="POST" name="Question_Form">
<input type="hidden" name="postcheck" value="yes">
<div align="center"><table border="0" cellpadding="0" cellspacing="0" id="main"> 
<tr> <td width="700" colspan="3"> <table width="100%" border="0" cellpadding="0" cellspacing="0" id="flashtable"> 
<tr> <td width="123"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="123" height="132" hspace="5" vspace="3"> 
<param name="movie" value="images/dallas_sm.swf"> <param name="quality" value="high"> 
<embed src="images/dallas_sm.swf" width="123" height="132" hspace="5" vspace="3" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed> 
</object> </td><td width="326"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="364" height="132" hspace="5" vspace="3"> 
<param name="movie" value="images/dallas_mid.swf"> <param name="quality" value="high"> 
<embed src="images/dallas_mid.swf" width="364" height="132" hspace="5" vspace="3" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed> 
</object> </td><td width="256"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="183" height="132" hspace="5" vspace="3"> 
<param name="movie" value="images/dallas_rt.swf"> <param name="quality" value="high"> 
<embed src="images/dallas_rt.swf" width="183" height="132" hspace="5" vspace="3" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed> 
</object> </td></tr> </table></td></tr> <tr> <td valign="top" colspan="3"><a href="index.htm"><img src="images/ificientlogo.gif" vspace="5" border="0"></a><br>  
<a href="new%20site/services.htm" class="nav"> </a>
        <table width="90%" border="0">
          <tr> 
            <td>&nbsp;</td>
              <td><a href="retail.htm" class="nav">retail</a> | <a href="manufacturing.htm" class="nav">manufacturing</a> 
                | <a href="assesment.htm" class="nav">assesment </a>| <a href="consulting.htm" class="nav">consulting 
                </a>| <a href="about-old.htm" class="nav">about</a></td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
        </table>
      </td>
    </tr> 
<tr><td>&nbsp;</td> <td height="2086"><p><span class="bold"></span></p>
        <table width="94%" border="0" align="RIGHT">
          <tr> 
            <td width="96%" height="2049" valign="top">
			  <table width="80%" border="0" align="center">
                <tr> 
                  <td width="98%" height="1977" valign="top">
                      <table width="96%" border="0">
                        <% If Request("sent") = "yes" Then %>
						<tr>
                          <td colspan="3" valign="top"><span class="bold"><font color="red">Thank you for answering our questionnaire!</font></span></td>
                        </tr>
						<tr><td colspan="3">&nbsp;</td></tr>
						<% End If %>
						<tr>
                          <td colspan="2" valign="top"><span class="bold">Questionnaire</span></td>
                          <td width="30%">&nbsp;</td>
                        </tr>
                        <tr> 
                          <td width="3%" valign="top"><p>1. </p>
                            <p>&nbsp;</p></td>
                          <td width="67%" valign="top"><p>Do you currently have 
                              commerce functionality on your web site? </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><input type="radio" name="currentcommerce" value="Yes">
                            Yes 
                            <input type="radio" name="currentcommerce" value="No">
                            No</td>
                        </tr>
                        <tr> 
                          <td height="20" valign="top"> <p>2.</p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><p>If yes, what are your average monthly 
                              sales?<br>
                              If no, go to question 17.</p></td>
                          <td valign="top"><select name="avgmonthlysales">
                              <option>Select One</option>
                              <option>0 - 5,000</option>
                              <option>5,001 - 10,000</option>
                              <option>10,001 - 25,000</option>
                              <option>25,001 - 50,000</option>
                              <option>50,001 - 100,000</option>
                              <option>100,001 - 500,000</option>
							  <option>500,001 or more</option>
                            </select></td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>3.</p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><p> Do you currently pay to promote 
                              your web site? </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><input type="radio" name="paytopromote" value="Yes">
                            Yes 
                            <input type="radio" name="paytopromote" value="No">
                            No</td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>4. </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><p>If yes, how much per month? </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><select name="monthlytopromote">
                              <option>Select One</option>
                              <option>0 - 250</option>
                              <option>251 - 500</option>
                              <option>501 - 1,000</option>
                              <option>1,001 - 2,000</option>
                              <option>2,001 - 5,000</option>
                              <option>5,001 - 25,000</option>
							  <option>25,001 or more</option>
                            </select></td>
                        </tr>
                        <tr> 
                          <td height="146" valign="top"><p>5. </p>
                            <p>&nbsp;</p>
                            <p>&nbsp;</p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><p>Where do you spend money to promote 
                              your site?<br>
                              (check all that apply)</p></td>
                          <td valign="top"><p> 
                              <input type="checkbox" name="promote_searchengines" value="Yes">
                              Search Engines<br>
                              <input type="checkbox" name="promote_bannerads" value="Yes">
                              Banner Ads<br>
                              <input type="checkbox" name="promote_printads" value="Yes">
                              Print Advertising<br>
                              <input type="checkbox" name="promote_television" value="Yes">
                              Television<br>
                              <input type="checkbox" name="promote_radio" value="Yes">
                              Radio<br>
                              <input type="checkbox" name="promote_directmail" value="Yes">
                              Direct Mail<br>
                              <input type="checkbox" name="promote_email" value="Yes">
                              e-Mail<br>
                              <input type="checkbox" name="promote_publicrelations" value="Yes">
                              Public Relations<br>
                            <p>&nbsp;</p></td>
                        </tr>
                        <tr> 
                          <td height="24" valign="top"><p>6. </p>
                            <p>&nbsp;</p>
                            <p>&nbsp;</p>
                            <p>&nbsp; </p></td>
                          <td valign="top"><p>How do you currently track the effectiveness 
                              of your online marketing?<br>(check all that apply)</p>
                            <p>&nbsp; </p></td>
                          <td valign="top"> <input type="checkbox" name="track_sitetraffic" value="Yes">
                            Site Traffic<br> <input type="checkbox" name="track_costpervisit" value="Yes">
                            Cost per visit<br> <input type="checkbox" name="track_costpertransaction" value="Yes">
                            Cost per transaction<br> <input type="checkbox" name="track_monthlysalesgrowth" value="Yes">
                            Sales Growth<br> <input type="checkbox" name="track_conversionrate" value="Yes">
                            Conversion Rate</td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>7. </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><p>How frequently do you email your 
                              customer list? </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><select name="emailfrequency">
                              <option>Select One</option>
							  <option>Never/No List</option>
                              <option>Annually</option>
                              <option>Quarterly</option>
                              <option>Monthly</option>
                              <option>Twice Monthly</option>
                              <option>Weekly</option>
                              <option>Twice Weekly</option>
                              <option>More than twice a week</option>
                            </select></td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>8. </p>
                            <p>&nbsp;</p>
                            <p>&nbsp;</p>
                            <p>&nbsp; </p></td>
                          <td valign="top"><p>What information do you include in the emails?<br>
                              (check all that apply)</p>
                            <p>&nbsp;</p></td>
                          <td valign="top"> <p> 
                              <input type="checkbox" name="email_specialoffers" value="Yes">
                              Special Offers<br>
                              <input type="checkbox" name="email_closeoutmerchandise" value="Yes">
                              Close Out Merchandise<br>
                              <input type="checkbox" name="email_tipsoradvice" value="Yes">
                              Tips or Advice<br>
                              <input type="checkbox" name="email_questionnaires" value="Yes">
                              Questionnaires<br>
                              <input type="checkbox" name="email_thirdpartyoffers" value="Yes">
                              Third party offers<br>
                              <input type="checkbox" name="email_articles" value="Yes">
                              Articles<br>
                              <input type="checkbox" name="email_discountsorcoupons" value="Yes">
                              Discounts or coupons<br>
                              <input type="checkbox" name="email_whitepapers" value="Yes">
                              White Papers</p>
                            <p>&nbsp;</p></td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>9. </p>
                            <p>&nbsp;</p>
                            <p>&nbsp;</p>
                            <p>&nbsp;</p>
                            <p>&nbsp; </p></td>
                          <td valign="top"><p>What type of information do you 
                              gather from customers?<br>(check all that apply) </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"> <p> 
                              <input type="checkbox" name="typeofinfo_age" value="Yes">
                              Age<br>
                              <input type="checkbox" name="typeofinfo_sex" value="Yes">
                              Sex<br>
                              <input type="checkbox" name="typeofinfo_householdincome" value="Yes">
                              Household Income<br>
                              <input type="checkbox" name="typeofinfo_maritalstatus" value="Yes">
                              Marital Status<br>
                              <input type="checkbox" name="typeofinfo_profession" value="Yes">
                              Profession<br>
                              <input type="checkbox" name="typeofinfo_familysize" value="Yes">
                              Family Size<br>
                              <input type="checkbox" name="typeofinfo_shoppinghistory" value="Yes">
                              Shopping history<br>
                              <input type="checkbox" name="typeofinfo_mediaconsumption" value="Yes">
                              Media consumption<br>
                              <input type="checkbox" name="typeofinfo_email" value="Yes">
                              e-Mail address<br>
                              <input type="checkbox" name="typeofinfo_outsidedata" value="Yes">
                              Oustide data </p>
                            <p>&nbsp;</p></td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>10. </p>
                            <p><br>
                            </p></td>
                          <td valign="top">What percentage increase do you expect 
                            to see in your web sales next year? </td>
                          <td valign="top"><select name="websalesincreaseexpected">
                              <option>Select One</option>
                              <option>0 - 10%</option>
                              <option>11 - 20%</option>
                              <option>21 - 30%</option>
                              <option>31 - 40%</option>
                              <option>41 - 50%</option>
                              <option>51 - 60%</option>
                              <option>61 - 70%</option>
                              <option>71 - 80%</option>
                              <option>81 - 100%</option>
							  <option>101% or more</option>
                            </select></td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>11. </p>
                            <p>&nbsp;</p></td>
                          <td valign="top">How many people do you employ to maintain 
                            your web site? </td>
                          <td valign="top"><select name="siteemployees">
                              <option>Select One</option>
                              <option>0</option>
                              <option>1</option>
                              <option>2</option>
                              <option>3</option>
                              <option>4</option>
                              <option>5</option>
                              <option>6</option>
                              <option>7</option>
                              <option>8</option>
							  <option>9 or more</option>
                            </select></td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>12. </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><p>How much are all other expenses 
                              to keep the web site running? (hosting, back-up, 
                              software and hardware upgrades, etc.) </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><select name="otherexpenses">
                              <option>Select One</option>
                              <option>0 - 250</option>
                              <option>251- 500</option>
                              <option>501 - 750</option>
                              <option>751 - 1,000</option>
                              <option>1,001 - 1,500</option>
                              <option>1,501- 2,000</option>
                              <option>2,001 - 3,000</option>
                              <option>3,001 - 5,000</option>
                              <option>5,001 - 10,000</option>
							  <option>10,001 or more</option>
                            </select></td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>13. </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><p>Do you currently employ an agency 
                              or design firm to maintain your site? </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"> <input type="radio" name="useagencyorfirm" value="Yes">
                            Yes 
                            <input type="radio" name="useagencyorfirm" value="No">
                            No</td>
                        </tr>
                        <tr> 
                          <td height="23" valign="top"><p>14.</p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><p> Do you currently apply other operating 
                              expenses against your web efforts? </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><input type="radio" name="applyotherexpenses" value="Yes">
                            Yes 
                            <input type="radio" name="applyotherexpenses" value="No">
                            No</td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>15. </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><p>Do you currently report internally 
                              on your online competition? </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"> <input type="radio" name="reportoncompetition" value="Yes">
                            Yes 
                            <input type="radio" name="reportoncompetition" value="No">
                            No</td>
                        </tr>
                        <tr> 
                          <td height="69" valign="top"><p>16.</p>
                            <p>&nbsp; </p></td>
                          <td valign="top"><p> Do you know your profit margin 
                              on web sales? If so, what is it?</p>
                            <p>&nbsp; </p></td>
                          <td valign="top"> <input type="radio" name="knowprofitmargin" value="Yes">
                            Yes 
                            <input type="radio" name="knowprofitmargin" value="No">
                            No<br> <select name="profitmargin">
                              <option>Select One</option>
                              <option>0 - 10%</option>
                              <option>11 - 20%</option>
                              <option>21 - 30%</option>
                              <option>31 - 40%</option>
                              <option>41 - 50%</option>
                              <option>51 - 60%</option>
                              <option>61 - 70%</option>
                              <option>71 - 80%</option>
                              <option>81 - 100%</option>
                            </select> </td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>17. </p>
                            <p>&nbsp;</p>
                            <p>&nbsp;</p>
                            <p>&nbsp; </p></td>
                          <td valign="top"><p>What has kept you from deploying 
                              an e-commerce site? </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"> <p> 
                              <input type="checkbox" name="keptyou_cost" value="yes">
                              Cost/ Economics<br>
                              <input type="checkbox" name="keptyou_competition" value="yes">
                              Competition <br>
                              <input type="checkbox" name="keptyou_resources" value="yes">
                              Resources<br>
                              <input type="checkbox" name="keptyou_time" value="yes">
                              Time<br>
                              <input type="checkbox" name="keptyou_noreason" value="yes">
                              No reason<br>
                              <input type="checkbox" name="keptyou_security" value="yes">
                              Security Concerns<br>
                              <input type="checkbox" name="keptyou_other" value="yes">
                              Other</p>
                            <p>&nbsp;</p></td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>18.</p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><p> If you had a partner to take on 
                              the responsibility of the site and its growth, would 
                              you be interested in launching an e-commerce site? 
                            </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"> <input type="radio" name="partner" value="Yes">
                            Yes 
                            <input type="radio" name="partner" value="No">
                            No</td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>19. </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><p>How much are you willing to spend 
                              to develop and launch an e-commerce site? </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><select name="willingtospend">
                              <option>Select One</option>
                              <option>0 - 5,000</option>
                              <option>5,001 - 10,000</option>
                              <option>10,001 - 15,000</option>
                              <option>15,001 - 20,000</option>
                              <option>20,001 - 30,000</option>
                              <option>30,001 - 50,000</option>
                              <option>51,001 - 100,000</option>
							  <option>100,001 or more</option>
                            </select></td>
                        </tr>
                        <tr> 
                          <td valign="top"><p>20. </p>
                            <p>&nbsp; </p></td>
                          <td valign="top"><p> What type of margin would you expect 
                              from web sales? </p>
                            <p>&nbsp;</p></td>
                          <td valign="top"><select name="marginexpected">
                              <option>Select One</option>
                              <option>0 - 10%</option>
                              <option>11 - 20%</option>
                              <option>21 - 30%</option>
                              <option>31 - 40%</option>
                              <option>41 - 50%</option>
                              <option>51 - 60%</option>
                              <option>61 - 70%</option>
                              <option>71 - 80%</option>
                              <option>81 - 100%</option>
                            </select></td>
                        </tr>
                        <tr> 
                          <td>&nbsp;</td>
                          <td>If you would like to recieve a summary of the results 
                            of this survey, please provide your email address. 
                          </td>
                          <td><input type="text" name="emailaddress"></td>
                        </tr>
                        <tr> 
                          <td><div align="right"> </div></td>
                          <td>&nbsp;</td>
                          <td>&nbsp;</td>
                        </tr>
                        <tr> 
                          <td><div align="right"> </div></td>
                          <td>&nbsp;</td>
                          <td><input type="submit" name="Submit" value="Submit"></td>
                        </tr>
                        <tr> 
                          <td>&nbsp;</td>
                          <td>&nbsp;</td>
                          <td>&nbsp;</td>
                        </tr>
                      </table>
                    <p>&nbsp; </p>
                    <p><br>
                    </p>
                    <p><br>
                    </p>
                    <p><br>
                    </p></td>
                  <td width="2%">&nbsp;</td>
                </tr>
              </table>
              <p>&nbsp;</p>
              <p>&nbsp;</p></td>
            <td width="4%"><p align="center">&nbsp;</p>
              <p>&nbsp;</p></td>
          </tr>
        </table></td>
      <td>&nbsp;</td></tr> </table>
<table width="56%" border="0"><tr>
      <td width="49%"><font color="#FFFFFF"><a href="mailto:info@ificient.com">info@ificient.com</a> 
        - t. 214.207.8910 / t. 972.679.1621 </font> </td>
      <td width="10%">&nbsp;</td><td width="41%"><div align="RIGHT"><font color="#FFFFFF">copyright 
2005. ificient L.P. All rights reserved.</font></div></td></tr></table><p>&nbsp;</p></div>
</form>
</body>
</html>