% @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 Various studies have shown that testing is the most time-consuming aspect of any system and it is an aspect that cannot be avoided. Despite this, testing receives little or no formal attention and training. The point is made in study after study that........... TESTING HAS THE GREATEST POTENTIAL FOR IMPROVING DELIVERED QUALITY The little training that is available emphasises all of this and usually offers somewhat academic solutions. We at Radical Training live by our motto that it is RESULTS that count and we have been studying information available both locally and abroad. We have compiled a two-day testing course with comprehensive documentation that can be put to use straight away in your Organisation. Here is a list of the main topics that are covered in this two-day workshop:
|