<% Dim messageSent messageSent = "" If Request.Form("email") <> "" and Request.form("fname") <> "" and Request.form("lname") <> "" and Request.form("phone") <> "" and Request.form("teamorg") <> ""and Request.form("mailaddr") <> "" Then Dim cdoConfig Dim cdoMessage Dim strBody Dim firstname Dim lastname Dim email Dim phone Dim teamOrg Dim MailAddr Dim HowLong Dim HowHear Dim Comments Dim sql firstname = Request.Form("fname") lastname = Request.Form("lname") email = Request.Form("email") phone = Request.Form("phone") teamOrg = Request.Form("TeamOrg") MailAddr = Request.Form("MailAddr") HowLong = Request.Form("HowLong") HowHear = Request.Form("HowHear") Comments = Request.Form("Comments") strBody = "" strBody = strBody & "" strBody = strBody & "Name: " & Request.Form("fname") & " " & Request.Form("lname") & "
Contact Phone: " & Request.Form("phone") & "

Team/Org: " & Request.Form("TeamOrg") & "

Mail Address: " & Request.Form("MailAddr") & "

How Hear: " & Request.Form("HowHear") & "
How Long: " & Request.Form("HowLong") & "

Comments: " & Request.Form("Comments") strBody = strBody & "" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = 2 'cdoSendUsingPort .Item(cdoSMTPServer) = "mail.kefferdevelopment.com" '.Item(cdoSMTPAuthenticate) = 1 '.Item(cdoSendUsername) = "" '.Item(cdoSendPassword) = "" .Update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = Request.Form("email") .To = "rhett@kefferdevelopment.com" .Subject = "ATS Question" .HTMLBody = strBody .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing messageSent = "Your message was successfully sent.
We will get back to you as soon as possible." End If %> Athletic Trainer System, Behavioral Health Software, Athletic Trainer Software
 

Keffer Development Services

 

 

 

  

<%If messageSent <> "" Then%> <%=messageSent%> <%End If%>
* First Name:  
* Last Name:  
* Email Address:  
* Phone:  
* Company:  
* Mailing Address:  

Question:

 

 

 

* Required Field               

 

Mail:   Keffer Development Services, LLC

           24 Village Park Drive

           Grove City, PA  16127

 

Phone:   1-888-328-2577 or 724-458-5289

Fax:        724-458-0621

 

 

View our privacy policy

 
 
 

Copyright © by Keffer Development Services, LLC

24 Village Park Drive

Grove City, PA  16127

1-888-328-2577