Free Investing Tips and Newsletters
Straight To Your Inbox!
Name :
Email :
<% if server_response <> "" or newCaptcha then %> <% if newCaptcha = False then %>
Wrong Code Entered! Please Re-Enter Code. <% end if %>
  Speaking Request Form  
     
 
Imagine the powerful and lasting impact that Dr. Steven Lee can create at your event! Whether it's for an hour, a half-day or full day, Dr. Steven Lee will give your audience practical take-away knowledge that they can apply immediately to improve their results. Complete the form below to request more information, and we'll help you make it happen!

 

 

Tell Us About You...
 
     
       
*
Name
:
*
Title
:
*
Organization
:
*
Email
:
*
Phone
:
*
City
:
*
State
:
*
Zip
:
       

 

 

Tell Us About Your Meeting...
 
       
*
Date(s)
:
*
Location
:
*
Type of Event
( include event details and overall goals )
:
*
Intended Audience
:
*
Audience Size
:
*
Speaker Budget
:
Session Needs
:
    <%=recaptcha_challenge_writer()%> 
    <% else %> <% If Request.Form("btnSend").Count > 0 Then Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Speaking Request" objMessage.From = Request.Form("email") objMessage.To = "admin@fatnrich.com" objMessage.CC = Request.Form("email") objMessage.TextBody = "From: " & Request.Form("name") & vbCrLf & "Contact No: " & Request.Form("phone") & vbCrLf & "Email: " & Request.Form("email") & vbCrLf & "Organization: " & Request.Form("organization") & vbCrLf & "City: " & Request.Form("city") & vbCrLf & "State: " & Request.Form("state") & vbCrLf & "Zip: " & Request.Form("zip") & vbCrLf & vbCrLf & "Event Date: " & Request.Form("date") & vbCrLf & "Event Location: " & Request.Form("location") & vbCrLf & "Event Type: " & Request.Form("event") & vbCrLf & "Audience: " & Request.Form("audience") & vbCrLf & "Budget: " & Request.Form("budget") & vbCrLf & "Session Needs: " & Request.Form("needs") objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "180.92.187.179" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "aaron@fatnrich.com" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "silicon" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update objMessage.Send Response.Redirect("contactsent.asp") End If %> <%end if%>
   
 
 

 

 
 
Copyright 2006-2010 Welltodo Marketing Sdn.Bhd. All rights reserved.