% @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 Sound Business Solutions! What can you hope to
learn on this Workshop? Method of Tuition Curriculum Brief details Prices:
See
landing page for Workshop dates
|