% @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 Most Organisations are using teams to a greater or lesser degree. Various theories abound and we at Radical believe in doing the basics that work really well to achieve success. This Workshop covers these basics in true Workshop style, with delegates working in teams.
A two-day Workshop incorporating a number of team exercices
|