% @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 life everyone negotiates about almost anything but we don't always realise this and it is one reason why we get worse deals than we want. This Workshop covers the basics of negotiation skills in Workshop fashion.
A one-day Workshop with active participation by all delegates
|