%@LANGUAGE="VBSCRIPT"%> <% if (cStr(Request("Submit")) <> "") Then Dim Mail Set Mail = Server.CreateObject("SMTPsvg.Mailer") Mail.Recipient = "franchise@pmafranchise.com" Mail.FromName = "Speak With Franchise Consultant" Mail.FromAddress = "franchise@pmafranchise.com" Mail.RemoteHost = "mrelay.perfora.net" Mail.Subject = Request.Form("lname")&", "&Request.Form("fname")&" REQUEST TO SPEAK WITH A FRANCHISE COONSULTANT" Mail.BodyText = "Speak With a Franchise Consultant submission form from the PMA Franchise website. Please Respond Within 24 Hours "&chr(10)&chr(13)&"------------------------------------------------------------"&chr(10)&chr(13)&"Name: "&Request.Form("lname")&", "&Request.Form("fname")&chr(10)&chr(13)&"CITY: "&Request.Form("city")&chr(10)&chr(13)&"STATE: "&Request.Form("state")&chr(10)&chr(13)&"HOME TELEPHONE: "&Request.Form("home_phone")&chr(10)&chr(13)&"WORK TELEPHONE: "&Request.Form("work_phone")&chr(10)&chr(13)&"CELL TELEPHONE: "&Request.Form("cell_phone")&chr(10)&chr(13)&"EMAIL ADDRESS: "&Request.Form("email")&chr(10)&chr(13)&"BEST WAY TO CONTACT: "&Request.Form("contact")&chr(10)&chr(13)&"TERRITORY REQUEST: "&Request.Form("territory")&chr(10)&chr(13)&"TIME FRAME: "&Request.Form("time")&chr(10)&chr(13)&"LIQUID CAPITAL: "&Request.Form("capital")&chr(10)&chr(13)&"HOW FOUND US: "&Request.Form("found")&chr(10)&chr(13)&"QUESTIONS: "&Request.Form("questions_text") Mail.SendMail Set Mail = Nothing Response.Redirect("http://www.pmafranchise.com") End If %>