<% 'Information Retrieve strprocessemail = Request.Form("processemail") strcode = Request.QueryString("code") if strcode = "1" then strEmailTo = "Bill Cave" elseif strcode = "2" then strEmailTo = "Drew H. Cave" elseif strcode = "3" then strEmailTo = "Dr. Kelly Anderson" elseif strcode = "4" then strEmailTo = "Dan L. Trayler" elseif strcode = "5" then strEmailTo = "Nancy L. Carter" elseif strcode = "6" then strEmailTo = "TEST" elseif strcode = "7" then strEmailTo = "Bill Palmer" elseif strcode = "8" then strEmailTo = "Matt F. King" elseif strcode = "9" then strEmailTo = "Joyce Frazier" elseif strcode = "10" then strEmailTo = "Karen Woodly" elseif strcode = "11" then strEmailTo = "Bethany McCormick" elseif strcode = "12" then strEmailTo = "David Rouza" elseif strcode = "13" then strEmailTo = "Terry Croutharmel" elseif strcode = "14" then strEmailTo = "Bill Nanney" elseif strcode = "15" then strEmailTo = "Steve Reddington" else strEmailTo = "CATCHALL" end if if strprocessemail = "YES" then '#####DEFAULT strEmailFrom = """Web Submission: Request Service"" " '###INFORMATION strname = Request.Form("name") stremail = Request.Form("email") strtelephone = Request.Form("telephone") strcompanyname = Request.Form("companyname") strclientmessage = Request.Form("message") emailcode = Request.Form("emailcode") if emailcode = "1" then strEmailTo= """Bill Cave"" " elseif emailcode = "2" then strEmailTo= """Drew H. Cave"" " elseif emailcode = "3" then strEmailTo= """Dr. Kelly Anderson"" " elseif emailcode = "4" then strEmailTo= """Dan L. Trayler"" " elseif emailcode = "5" then strEmailTo= """Nancy L. Carter"" " elseif emailcode = "6" then strEmailTo= """Steve Reddington"" " elseif emailcode = "7" then strEmailTo= """Bill Palmer"" " elseif emailcode = "8" then strEmailTo= """Matt F. King"" " elseif emailcode = "9" then strEmailTo= """Joyce Frazier"" " elseif emailcode = "10" then strEmailTo= """Karen Woodly"" " elseif emailcode = "11" then strEmailTo= """Bethany McCormick"" " elseif emailcode = "12" then strEmailTo= """David Rouza"" " elseif emailcode = "13" then strEmailTo= """Terry Croutharmel"" " elseif emailcode = "14" then strEmailTo= """Bill Nanney"" " elseif emailcode = "15" then strEmailTo= """Nancy C"" " else strEmailTo= """CATCHALL"" " end if strSubject = "Web Submission: General Email" Response.Write stremailcode strMessage = strMessage + "Full Name : "+ strname & vbCRLF strMessage = strMessage + "Email Address : "+ stremail & vbCRLF strMessage = strMessage + "Telephone : "+ strtelephone & vbCRLF strMessage = strMessage + "Company Name : "+ strcompanyname & vbCRLF & vbCRLF strMessage = strMessage + "------------------------------------------------------------------------"& vbCRLF & vbCRLF strMessage = strMessage + "Email Message : " & vbCRLF strMessage = strMessage + strclientmessage & vbCRLF Dim Mail set Mail=server.createobject("CDO.Message") Mail.From = strEmailFrom Mail.To= strEmailTo Mail.Subject = strSubject Mail.TextBody = strMessage Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="phoinixgroup.startlogic.com" Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "web@phoinixgroup.com" Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "success999" Mail.Configuration.Fields.Update Mail.Send set Mail=nothing end if %> >|< The Phoinix Group >|< -
<%else%>

Thank You For Your Submission

<%end if%>
<%if strprocessemail <> "YES" then %> Email To: <%=strEmailTo%>

 


 

Your Name:

E-mail Address:

Your Telephone:

Company Name:

Your message:
 
 

Submit Request for Service  ||  Join Team Phoinix
Telephone : 813.962.4000
Copyright © 2009 Phoinix Group Inc. All rights reserved. Legal Info