<% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim objCDO Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "Name~Email Address~Comments" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "pcws1601@pegottycooper.com" objCDO.To = "pegottty@pegottycooper.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "From Contact Page" BodyString = Replace("Information Gathered from Contact Page","~",chr(13) & chr(10) )& chr(13) If FormFields <> "" Then For Each item In arrFormFields BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) Next End If objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Set objCDO = Nothing RedirectURL = "http://pegottycooper.com/thankyouemail.asp" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %> Pegotty Cooper | Contact
Pegotty Cooper | Coaching | Tampa, Florida  
Pegotty Cooper | Home
Pegotty Cooper | Services
Pegotty Cooper | About
Pegotty Cooper | Resources
Pegotty Cooper | Contact Us
 

Contact

Please provide a brief description of your needs or your questions. I will get back to you within 48 hours.

Pegotty Cooper, MBA, Certified Coach
8729 Bay Pointe Dr.
Tampa, FL 33615

Phone: 813-884-9511
FAX: 813-901-8955
Mobile: 813-760-2844
E-Mail: Pegotty Cooper


 

 

 

Copyright PegottyCooper. Privacy Policy