<% If Request.Form("action") = "1" Then Set objMailer = Server.CreateObject("CDONTS.NewMail") objMailer.To = "pcox@pie-data.co.uk;npatel@pie-data.co.uk" objMailer.From = Request.Form("Contact_Email") objMailer.Subject = "Pie Data.com - MEDICAL Information Request" strMsg = strMsg & "First name: " & Request.Form("Contact_FirstName") & vbCRLf strMsg = strMsg & "Last name: " & Request.Form("Contact_LastName") & vbCRLf strMsg = strMsg & "Job Title: " & Request.Form("Contact_Title") & vbCrLf strMsg = strMsg & "Organisation: " & Request.Form("Contact_Organization") & vbCrLf strMsg = strMsg & "Street: " & Request.Form("Contact_StreetAddress") & vbCrLf strMsg = strMsg & "Addr2: " & Request.Form("Contact_Address2") & vbCRLf strMsg = strMsg & "City: " & Request.Form("Contact_City") & vbCrLf strMsg = strMsg & "State: " & Request.Form("Contact_State") & vbCrLf strMsg = strMsg & "Zip: " & Request.Form("Contact_ZipCode") & vbCrLf strMsg = strMsg & "Country: " & Request.Form("Contact_Country") & vbCrLf strMsg = strMsg & "Work phone: " & Request.Form("Contact_WorkPhone") & vbCrLf strMsg = strMsg & "Email: " & Request.Form("Contact_Email") & vbCrLf strMsg = strMsg & "Information Request: " & Request.Form("Request") & vbCrLf strMsg = strMsg & "Heard about Pie Data: " & Request.Form("Where") & vbCrLf objMailer.Body = strMsg objMailer.Send Set objMailer = Nothing strMailSent = "mailsent" End If %> Thank You!

Back to Med.      Back to Vet.

Back to Contact

 

Thank you for you information request we will get back to you as soon as possible!

Please click on the buttons above to go back!