% Response.Buffer = true If Request("success") <> "" then Dim CDOMail, strBody Set CDOMail = Server.CreateObject("CDONTS.NewMail") CDOMail.Importance = 1 CDOMail.To = "Norm@rxexpressmarketing.com" CDOMail.To = "ryan@rxexpressmarketing.com" CDOMail.From = "Free Bag Request <" & Request("email") & ">" CDOMail.Subject = "Free Bag Request" strBody = "The following was received " & now() & ":" & vbcrlf strBody = strBody & "---------------------------------------------------------------" & vbcrlf strBody = strBody & "Contact Name: " & Request("name") & vbcrlf strBody = strBody & "Pharmacy Name: " & Request("pharmacy") & vbcrlf strBody = strBody & "Pharmacy Address: " & Request("address") & vbcrlf strBody = strBody & "Pharmacy City: " & Request("city") & vbcrlf strBody = strBody & "Pharmacy State: " & Request("state") & vbcrlf strBody = strBody & "Pharmacy Zip Code: " & Request("zip") & vbcrlf strBody = strBody & "Pharmacy Phone Number: " & Request("phone") & vbcrlf strBody = strBody & "Pharmacy Fax Number: " & Request("fax") & vbcrlf strBody = strBody & "Person's Email: " & Request("email") & vbcrlf strBody = strBody & "Bag size and color: " & Request("baginfo") & vbcrlf strBody = strBody & "---------------------------------------------------------------" & vbcrlf CDOMail.Body = strBody CDOMail.Send Set CDOMail = nothing Response.Redirect Request("success") End If %>