% 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 = "mev@cascadeent.com" objmail.bcc = "robin@rmbvirtual.com" objmail.Subject = "website consultation 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 & "
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|