<%@ LANGUAGE="VBSCRIPT" %> <% option explicit %> <% Response.Buffer = True %> <% '*********************************************************************** ' COPYRIGHT NOTICE ' Code Example : Self Submitting "Contact Us" Form Using CDOSYS ' Author : Christopher Williams of ' www.CJWSoft.com and www.PowerASP.com ' You can use this code anywhere as long as this copyright notice ' remains with the code and the link to www.PowerASP.com remains on the ' form page this code is used on ' ' (c) Copyright 2000 - 2005 by CJWSoft / PowerASP All rights reserved '*********************************************************************** %> <% 'Declaring Variables Dim smtpserver,youremail,yourpassword Dim Contact_Name Dim Job_Title Dim School_Name Dim Address Dim City Dim State_Prov Dim Country Dim Phone Dim Fax Dim Email Dim Preferred_Date Dim Number_Of_Presentations Dim Student Dim Grade Dim Conference Dim Local_Provincial_State_National 'Don't change this line Dim ContactUs_Subject,ContactUs_Body,Action,IsError ' Edit these 3 values accordingly smtpserver = "mx1.wc1.sat1.stabletransit.com" youremail = "info@alvinlaw.com" yourpassword = "darlene09" ' Grabbing variables from the form post Contact_Name = Request("Contact_Name") Job_Title = Request("Job_Title") School_Name = Request("School_Name") Address = Request("Address") City = Request("City") State_Prov = Request("State_Prov") Country = Request("Country") Phone = Request("Phone") Fax = Request("Fax") Email = Request("Email") Preferred_Date = Request("Preferred_Date") Number_Of_Presentations = Request("Number_Of_Presentations") Student = Request("Student") Grade = Request("Grade") Conference = Request("Conference") Local_Provincial_State_National = Request("Local_Provincial_State_National") Action = Request("Action") ' Used to check that the email entered is in a valid format Function IsValidEmail(Email) Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1 ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function %> Alvin Law - Motivational Speaker - AJL Communications Ltd
AJL Communications Ltd
Home About Promo Bookings FAQ Gallery Videos  Passages DVD Radio Buy Book Contact


AJL Communications Ltd
Alvin's Laws
Alvin's Laws of Life
Programs
Available Programs
Equipment List
Audio/Visual Requirements
Clients
Client List
Testimonials
Client Testimonials



 


School Booking Inquiry - Fields marked (*) are required
<% If Action = "SendEmail" Then ' Here we quickly check/validate the information entered ' These checks could easily be improved to look for more things If Contact_Name = "" Then IsError = "Yes" Response.Write("Please Enter a Name
") End If If IsValidEmail(Email) = "False" Then IsError = "Yes" Response.Write("Please Enter a Valid Email Address
") End If End If ' If there were no input errors and the action of the form is "SendEMail" we send the email off If Action = "SendEmail" And IsError <> "Yes" Then Dim strBody ' Here we create a nice looking html body for the email strBody = strBody & "Submission Entered At " & Now() & vbCrLf & "

" strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
" strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "

" strBody = strBody & "Contact Name" & " : " & " " & Replace(Contact_Name,vbCr,"
") & "
" strBody = strBody & "Job Title" & " : " & " " & Replace(Job_Title,vbCr,"
") & "
" strBody = strBody & "School Name" & " : " & " " & Replace(School_Name,vbCr,"
") & "
" strBody = strBody & "Address" & " : " & " " & Replace(Address,vbCr,"
") & "
" strBody = strBody & "City" & " : " & " " & Replace(City,vbCr,"
") & "
" strBody = strBody & "State-Province" & " : " & " " & Replace(State_Prov,vbCr,"
") & "
" strBody = strBody & "Country" & " : " & " " & Replace(Country,vbCr,"
") & "
" strBody = strBody & "Phone" & " : " & " " & Replace(Phone,vbCr,"
") & "
" strBody = strBody & "Fax" & " : " & " " & Replace(Fax,vbCr,"
") & "
" strBody = strBody & "Email" & " : " & " " & Replace(Email,vbCr,"
") & "
" strBody = strBody & "Preferred Date" & " : " & " " & Replace(Preferred_Date,vbCr,"
") & "
" strBody = strBody & "Number Of Presentations" & " : " & " " & Replace(Number_Of_Presentations,vbCr,"
") & "
" strBody = strBody & "Student" & " : " & " " & Replace(Student,vbCr,"
") & "
" strBody = strBody & "Grade" & " : " & " " & Replace(Grade,vbCr,"
") & "
" strBody = strBody & "Student Conference" & " : " & " " & Replace(Conference,vbCr,"
") & "
" strBody = strBody & "Local Provincial State National" & " : " & " " & Replace(Local_Provincial_State_National,vbCr,"
") & "
" strBody = strBody & "
" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = youremail ObjSendMail.Subject = "Booking Submission" ObjSendMail.From = Email ' we are sending a html email.. simply switch the comments around to send a text email instead ObjSendMail.HTMLBody = strBody 'ObjSendMail.TextBody = strBody ObjSendMail.Send Set ObjSendMail = Nothing ' change the success messages below to say or do whatever you like ' you could do a response.redirect or offer a hyperlink somewhere.. etc etc %> Submission Successful...
Thank You !!
<% =Replace(ContactUs_Body,vbCr,"
") %>
<% Else %>
Contact Name *
Job Title
School Name
Address
City
State/Province
Country
Phone
Fax
Email *
Preferred Date
Number of Presentations Required
Is this a: Student School Presentation?
Grade Level:
Elementary   Middle School   High School

Student Conference?
Local   Province/State   National
Local/Provincial/State/National

<% End If %>


TRAVEL LOGISTICS


IntroductionWhat are Alvin’s travel requirements?
Introduction Does Alvin require any special travel assistance?
Introduction Does Alvin need an accessible hotel room?
Introduction Is there any paperwork involved in bringing Alvin to the United States?

THE PROGRAM

Introduction What message does Alvin present to student audiences?
IntroductionWhat grade levels does Alvin speak to?
Introduction Is there a religious tone to Alvin’s program?
IntroductionHow long is Alvin’s presentation?
Introduction Does Alvin do more than one program a day?
Introduction Does Alvin have any restrictions on audience size?
IntroductionWill any piano work?
Introduction Does Alvin answer questions after his program?
Introduction How does one thank Alvin following a program?
IntroductionDoes Alvin have products for sale?

TRAVEL LOGISTICS

Q:  What are Alvin’s travel requirements?  
A:
  Alvin tries to be as flexible as possible, especially regarding budgets. He does not insist on First Class or Business Class airfare. Flights are booked at the best available fare, must be a changeable ticket but not necessarily fully refundable. Also, Alvin prefers to drive himself and must rent a full-size automobile in order to accommodate his needs. Finally, Alvin requests a hotel room at or near the event location. His preference is for a king size bed in a smoking room (Darlene doesn’t even try to talk him into quitting anymore) if it is available.

We prefer to book Alvin’s travel in-house. Clients may handle travel arrangements but only with Alvin’s approval and input. Important note: Alvin does not make airline policy or pricing…they do.

Q:  Does he require any special travel assistance?  
A:  No. Alvin has adapted to carry his own luggage and care for himself all through the flight process. All people have a seating preference, but Alvin does require an aisle seat, preferably on the right side (facing forward). It allows him extra space to use his feet, but it’s also important if he requires any assistance from flight attendants, especially in case of emergency.

Q:  Does Alvin need an accessible hotel room?  
A:  No. In fact, rooms designed for the handicapped are less convenient, although if it’s the only room available, he can make due.

Q:  Is there any paperwork involved in bringing Alvin to the United States?  
A:  Alvin has an E-1 visa which allows him to enter the U.S. without any paperwork on the client’s part. Other countries like Australia have brought Alvin in with a minimum of paperwork.

Many U.S. organizations require a tax exemption form such as a W-8ECI. If such a form is required please advise Alvin’s office. Darlene has copies of this particular form available and would be happy to provide it, and any other necessary paperwork you require.

THE PROGRAM

Q:  What message does Alvin present to student audiences?  
A:  Alvin’s presentation focuses on self-image, challenges, bullying – pretty well any issue facing young people today. Alvin first started speaking to children as a project of the International Year for the Disabled in 1981. His focus was very much on disability issues and awareness. Since he began, students, especially teenagers, have benefited from a message related to self-image and challenge.

Q:  What grade levels does Alvin speak to?  
A:  Alvin can and does speak to all grade levels from kindergarten to high school students.

Q:  Is there a religious tone to his program?  
A:  No. However, Alvin is a very spiritual person and that just shows, it’s not stated. In fact, it’s his ability to inspire people no matter what faith they do or don’t practice that makes him such powerful presenter. “No one person is better than another because we’re all just people who need to be more tolerant of each other’s beliefs”, is a quote of Alvin’s that may answer the question.

Q:  How long is Alvin’s presentation?  
A:
  Alvin’s school presentation, There’s No Such Word As Can’t, should never be less than one hour. Presentations to younger audiences, K to Grade 4, can be shortened to 45 minutes. If you require the presentation to be shorter than one hour please advise our office as soon as possible.

Q:  Does Alvin do more than one program a day?  
A:
  Alvin will visit a maximum of two schools in one day and will visit an area for a maximum of three days. Not all that long ago it was quite common for Alvin to visit three schools in one day, coming into an area for five consecutive days. That was then, now he’s over forty!

Q:  Does Alvin have any restrictions on audience size?  
A:
  No. Some schools require two presentations due to the size of the school but that is the decision of the school, not a requirement for Alvin. Alvin has spoken to as small a group as 50 and as large as 3,000.

Q:  Will any piano work?  
A:
  The piano is an important tool in Alvin’s program. He uses his toes, so a standard keyboard with weighted keys is his important. Many people own the portable, battery operated “Casio” brand keyboards and wonder if they will work – the answer is no! Key size and volume is vital. The keys on a small, portable, Casion keyboard are often too small for his toes and the entire audience needs to hear him. Visibility means the piano or keyboard should be on the stage but if that’s not practical (grand pianos are kinda heavy), please advise.

Q:  Does Alvin answer questions after his program?  
A:
  He normally does not allow for Q & A during his sessions due to time constraints, but he will answer questions privately following his program. If time can be allowed and questions are a desired part of the whole session, that’s no problem. Alvin often says, “I’ve spoken to a lot of Kindergarteners, I’ve heard and answered any question you might imagine.

Q:  How does one thank Alvin following a program?  
A:
  As Alvin discusses in his program, one of his most awkward moments is meeting people as the custom is to shake hands. Alvin can shake a person’s hand with his right foot but he also realizes not everyone is comfortable with that so whether it’s a pat on the back, a hug, or a kiss on the cheek, whatever is most comfortable for the thanker. By the way, Alvin never expects a gift but when one is presented, he can either take it under his chin or in his teeth. If it’s an awkward size or weight, Alvin will offer instruction. These moments can be very special, so prepping a thanker too much can take away from the spontaneity.

Q:  Does Alvin have products for sale?  
A:
  Alvin’s first book, Alvin’s Laws of Life, 5 Steps to Successfully Overcome Anything is now available and a video/dvd is in the works. Arrangements to make bulk purchases of the book can be made by contacting Alvin’s office. We are also currently working on a video with a class room guide for teachers to talk to their students following his presentation.

top
Copyright © - AJL Communications Ltd - All Rights Reserved Privacy Policy  |  Terms Of Use