免费投资技巧和通讯于您的收件箱
 
名字:
电邮:
<% if server_response <> "" or newCaptcha then %> <% if newCaptcha = False then %>
Wrong Code Entered! Please Re-Enter Code. <% end if %>
  演讲请求  
     
 
想象一下,史蒂芬李博士可以为您的活动带来强大而持久的影响!无论是一个小时,半天或一天的演讲,史蒂芬李博士将带给您的听众实际的知识,使他们可以立即改善他们的成绩。我们可以帮您做到这一点!如需更多的信息,请填写以下表格。

 

 

请告诉我们您的...
 
     
 
       
*
姓名
:
*
标题
:
*
组织
:
*
电子邮件
:
*
电话
:
*
城市
:
*
国家
:
*
邮编
:
       

 

 

请告诉我们您的会议...
 
       
*
日期
:
*
地点
:
*
活动的类型
(包括活动的细节和总体目标)
:
*
目标听众
:
*
听众的数量
:
*
讲员预算
:
会议需要
:
      <%=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%>
   
 
 

 

 
 
版权所有。Welltodo Marketing 有限公司2006-2009。不得转载.