%@LANGUAGE="VBSCRIPT"%>
<% if (cStr(Request("Submit")) <> "") Then
Dim Mail
Set Mail = Server.CreateObject("SMTPsvg.Mailer")
Mail.Recipient = "administrator@milliondollartrainers.com"
Mail.FromName = "Recruiter Training Workshop"
Mail.FromAddress = "administrator@milliondollartrainers.com"
Mail.RemoteHost = "mrelay.perfora.net"
Mail.Subject = Request.Form("lname")&", "&Request.Form("fname")&" STAFFING TRAINING WORKSHOP "
Mail.BodyText = "Referal For a Staffing Training Workshop With Million Dollar Trainers from the MDT website. Please Respond Within 24 - 48 Hours "&chr(10)&chr(13)&"------------------------------------------------------------"&chr(10)&chr(13)&"TRAINING WORKSHOP DESIRED: "&Request.Form("training_session")&chr(10)&chr(13)&"WHERE WORKSHOP TO TAKE PLACE: "&Request.Form("where")&chr(10)&chr(13)&"TYPE OF WORKSHOP: "&Request.Form("type")&chr(10)&chr(13)&"TENTATIVE DATE: "&Request.Form("tentative_date")&chr(10)&chr(13)&"IF YES, WHEN: "&Request.Form("when")&chr(10)&chr(13)&"CONTACT NAME: "&Request.Form("contact")&chr(10)&chr(13)&"COMPANY NAME: "&Request.Form("company")&chr(10)&chr(13)&"CONTACT TELEPHONE: "&Request.Form("telephone")&chr(10)&chr(13)&"ALTERNATE OR CELL: "&Request.Form("alternate")&chr(10)&chr(13)&"BEST CONTACT METHOD: "&Request.Form("method")&chr(10)&chr(13)&"BEST TIME FOR CONTACT: "&Request.Form("time")&chr(10)&chr(13)&"address: "&Request.Form("address")&chr(10)&chr(13)&"CITY: "&Request.Form("city")&chr(10)&chr(13)&"STATE: "&Request.Form("state")&chr(10)&chr(13)&"E-MAIL: "&Request.Form("email")&chr(10)&chr(13)&"Additional Comments or Questions: "&Request.Form("additional_comments")
Mail.SendMail
Set Mail = Nothing
Response.Redirect("http://www.milliondollartrainers.com")
End If
%>