% @LANGUAGE = VBScript%> <% Option Explicit Response.Expires = 0 Response.Buffer = True Sub sendMail() Dim mailSubject,mailBody,inEmail,badMail,inID,x,mailName,eMail inID = Trim(Request.Form("FormID")) inEmail = Trim(Request.Form("Email")) mailSubject = "" mailBody = "" If inStr(inEmail, "@") < 1 OR inStr(inEmail,"@") > Len(inEmail) OR inStr(inEmail,"@") = Len(inEmail) Then badMail = "BAD EMAIL: " If inID = "BOOKING" Then mailName = Trim(Request.Form("FirstName"))&" "&Trim(Request.Form("LastName")) mailSubject = mailSubject & "RADWEB BOOKING: "&Trim(Request.Form("Course")) Else mailName = Trim(Request.Form("FullName")) mailSubject = mailSubject & "RADWEB CONTACT: "&Trim(Request.Form("Course")) End If mailBody = "
"
mailBody = mailBody&"Date: "&Year(Now)&"/"&Month(Now)&"/"&Day(Now)
mailBody = mailBody&" ("&Hour(Now)&":"&Minute(Now)&")
"
mailBody = mailbody&"Subject: "&mailSubject&"
"
For Each x in Request.Form
If x = "SB" OR x = "RB" OR x = "FormID" Then
Else
If x = "Email" Then
mailBody = mailBody&""&x&": "&Trim(Request.Form(x))&"
"
Else
mailBody = mailBody&""&x&": "&Trim(Request.Form(x))&"
"
End If
End If
Next
mailBody = mailBody&"
![]()
|
|
|
Course Overview In his studies and recent book "The new rules" John Kotter makes the point that the role of the visionary is a key to success in business. Supplementing that role and following on from it, is the Strategic Planner, who translates the Vision into a workable Strategic Plan that will lead to the realisation of the vision. A key to success in this endeavour is to do the basic things well and to follow a powerful structure to stay on track But, important though a plan is, it is just a worthless bunch of words if it is not put to work to provide direction and purpose. This and many more issues are covered in this Workshop Whether you want to focus a team or Department or a whole Organisation, this Workshop provides the guidelines
An intensive two-day Workshop with participation by way of teamwork on detailed case studies
|