<%
if Request.Form("txtEMail")<>"" then
mailFrom = Request.Form("txtEMail")
'''CHANGE THE TO ADDRESS
mailTo = "aosales@aobiz.com"
mailSubject = "Pricing Questionnaire"
mailMessage = "****User Contact Information****" & " "
if Request.Form("txtName") <> "" then
mailMessage = mailMessage & "Name - " & Request.Form("txtName") & " "
end if
if Request.Form("txtEMail") <> "" then
mailMessage = mailMessage & "EMail - " & Request.Form("txtEMail") & " "
end if
if Request.Form("txtPhone") <> "" then
mailMessage = mailMessage & "Phone - " & Request.Form("txtPhone") & " "
end if
if Request.Form("txtFax") <> "" then
mailMessage = mailMessage & "Fax - " & Request.Form("txtFax") & " "
end if
mailMessage = mailMessage & " "
mailMessage = mailMessage & "****Current Network Environment****" & " "
if Request.Form("txtServer") <> "" then
mailMessage = mailMessage & "# of servers - " & Request.Form("txtServer") & " "
end if
if Request.Form("txtEmployee") <> "" then
mailMessage = mailMessage & "# of employees - " & Request.Form("txtEmployee") & " "
end if
if Request.Form("txtStation") <> "" then
mailMessage = mailMessage & "# of work stations - " & Request.Form("txtStation") & " "
end if
if Request.Form("txtLocation") <> "" then
mailMessage = mailMessage & "# of locations - " & Request.Form("txtLocation") & " "
end if
mailMessage = mailMessage & " "
if Request.Form("firewallGrp") <> "" then
mailMessage = mailMessage & "Firewall? - " & Request.Form("firewallGrp") & " "
end if
if Request.Form("txtManufacturer") <> "" then
mailMessage = mailMessage & "Firewall Manufacturer - " & Request.Form("txtManufacturer") & " "
end if
if Request.Form("txtModel") <> "" then
mailMessage = mailMessage & "Firewall Model - " & Request.Form("txtModel") & " "
end if
mailMessage = mailMessage & " "
if Request.Form("checkBoth") <> "" then
mailMessage = mailMessage & "Interested in - " & "on-site support and remote support" & " "
elseif Request.Form("checkOnsite") <> "" then
mailMessage = mailMessage & "Interested in - " & Request.Form("checkOnsite") & " "
elseif Request.Form("checkRemote") <> "" then
mailMessage = mailMessage & "Interested in - " & Request.Form("checkRemote") & " "
end if
mailMessage = mailMessage & " "
if Request.Form("radiomail") <> "" then
mailMessage = mailMessage & "Do you host your own mail server? - " & Request.Form("radiomail") & " "
end if
mailMessage = mailMessage & " "
mailMessage = mailMessage & "****Which Alpha and Omega services are you interested in having a quote for?****" & " "
if(Request.Form("checkManage")<>"") then
mailMessage = mailMessage & Request.Form("checkManage") & " "
end if
if(Request.Form("checkSecure")<>"") then
mailMessage = mailMessage & Request.Form("checkSecure") & " "
end if
if(Request.Form("checkPath")<>"") then
mailMessage = mailMessage & Request.Form("checkPath") & " "
end if
if(Request.Form("checkFilter")<>"") then
mailMessage = mailMessage & Request.Form("checkFilter") & " "
end if
if(Request.Form("checkWatch")<>"") then
mailMessage = mailMessage & Request.Form("checkWatch") & " "
end if
if(Request.Form("checkSupport")<>"") then
mailMessage = mailMessage & Request.Form("checkSupport") & " "
end if
mailMessage = mailMessage & " "
mailMessage = mailMessage & "****Currently who support your network?****" & " "
if(Request.Form("checkFT")<>"") then
mailMessage = mailMessage & Request.Form("checkFT") & " "
end if
if(Request.Form("checkPT")<>"") then
mailMessage = mailMessage & Request.Form("checkPT") & " "
end if
if(Request.Form("checkContract")<>"") then
mailMessage = mailMessage & Request.Form("checkContract") & " "
end if
if(Request.Form("checkNone")<>"") then
mailMessage = mailMessage & Request.Form("checkNone") & " "
end if
mailMessage = mailMessage & " "
if(Request.Form("radiogrow")<>"") then mailMessage = mailMessage
& "Are you expecting your company to grow in the next 5 years? - "
& Request.Form("radiogrow") & " "
end if
mailMessage = mailMessage & " "
if(Request.Form("dropScale")<>"") then mailMessage = mailMessage
& "On a scale of 1-10 (10 being best), how would you rate your
current network support? - " & Request.Form("dropScale") & " "
end if
mailMessage = mailMessage & " "
if(Request.Form("txtTop10")<>"") then mailMessage = mailMessage
& "What would you like to see happen in order to make it a 10 - "
& Request.Form("txtTop10") & " "
end if
mailMessage = mailMessage & " "
if(Request.Form("txtHear")<>"") then
mailMessage = mailMessage & "How did you hear about us? - " & Request.Form("txtHear") & " "
end if 'response.Write(mailMessage) Dim ObjSendMail Set ObjSendMail =
CreateObject("CDO.Message") 'This section provides the configuration
information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send
the message using the network (SMTP over the network).
'''CHANGE THE SMTP SERVER NAME BEFORE UPLOADING
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserver")
="smtp.concentric.net" ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60 ' If your server requires outgoing authentication uncomment the
lines bleow and use a valid email address and password.
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'basic (clear-text) authentication
'''CHANGE THE USER NAME BEFORE UPLOADING
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusername") =""
'''CHANGE THE PASSWORD BEFORE UPLOADING
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendpassword") =""
ObjSendMail.Configuration.Fields.Update 'End remote SMTP server
configuration section== ObjSendMail.To = mailTo ObjSendMail.Subject =
mailSubject ObjSendMail.From = mailFrom ' we are sending a text email..
simply switch the comments around to send an html email instead
ObjSendMail.HTMLBody = mailMessage '"this is the body"
'ObjSendMail.TextBody = mailMessage ObjSendMail.Send Set ObjSendMail =
Nothing Response.Redirect("thankyou.html")
end if
%>