% dim strname, stremail dim strreferral strname = Trim(Request.Form("fname")) stremail = Trim(Request.Form("email")) strreferral = Trim(Request.Form("referral")) if (strname <> "" And stremail <> "") Then dim objmail, recipients set objmail = Server.CreateObject("CDONTS.NewMail") objmail.From = stremail objmail.To = "kayla@drmarkpeters.com" objmail.bcc = "robin@rmbvirtual.com" objmail.Subject = "newsletter request" objmail.BodyFormat = 0 objmail.MailFormat = 0 htmlText = htmltext & "" htmlText = htmltext & "" htmlText = htmltext & "
" htmlText = htmltext & "" & strcity & " " & strstate & " " & strzip & " Email Address: " & stremail & " Phone Number: " & strphone & " | "
htmlText = htmltext & "" htmlText = htmltext & " | How did you hear about us: " & strreferral & " | "
htmlText = htmltext & "
| belle nouveau - Skin Center for Dr. Mark Peters in Houma LA (985) 223-2602 | |||||||||||||
|
|||||||||||||
Cosmetic Plastic Surgery Website Development by RMBvirtual | www.drmarkpeters.com ©Copyright 2004-2007 |