<%
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
%>
ALPHA & OMEGA - The First and Last of All Your Technology Needs