%@ Language=VBScript %>
<%
if request.querystring("send") ="y" then
' Form validation begin here
Dim vMobile, vVAT_number, vComments
If Request.Form("Mobile") = "" Then
vMobile = " "
Else
vMobile = Trim(Request.Form("Mobile"))
End if
if Request.Form("VAT_number") <> "" Then
vVAT_number = Trim(Request.Form("VAT_number"))
Else
vVAT_number = " "
End if
If Request.Form("Comments") = "" Then
vComments = " "
Else
vComments = Trim(Request.Form("Comments"))
End if
Dim BodyText
BodyText="--------------------- Trade Enquiry Information ---------------------" & vbcrlf
BodyText = BodyText & "" & vbcrlf
BodyText = BodyText & "Company/Shop : " & Trim(Request.Form("Company")) & vbcrlf
BodyText = BodyText & "Owner/Enquirers : " & Trim(Request.Form("Name")) & vbcrlf
BodyText = BodyText & "Position in the Company : " & Trim(Request.Form("Position")) & vbcrlf
BodyText = BodyText & "" & vbcrlf
BodyText = BodyText & "Delivery Address : " & Trim(Request.Form("Address")) & vbcrlf
BodyText = BodyText & "" & vbcrlf
BodyText = BodyText & "Telephone : " & Trim(Request.Form("Tel"))& vbcrlf
BodyText = BodyText & "Mobile : " & vMobile & vbcrlf
BodyText = BodyText & "VAT No : " & vVAT_number & vbcrlf
BodyText = BodyText & "" & vbcrlf
BodyText = BodyText & "Estimated order and quantity required : " & vbcrlf
BodyText = BodyText & Trim(Request.Form("OrderDetail")) & vbcrlf
BodyText = BodyText & "" & vbcrlf
BodyText = BodyText & "Further questions or comments : " & vbcrlf
BodyText = BodyText & vComments & vbcrlf
BodyText = BodyText & "" & vbcrlf
BodyText = BodyText & " --------------------- End of Enquiry --------------------- " & vbcrlf
Set objSendMail= CreateObject("CDO.Message")
With objSendMail
.From ="online-user-noreply@twistoffateonline.com"
'.To = "info@twistoffateonline.com"
'.To = "brennanmystic@btinternet.com"
.To = "brennanmystic@hotmail.co.uk"
.Bcc = "info@hqwebservices.co.uk"
.Subject = "Twist of Fate On Line Trade Enquiry"
.TextBody = BodyText
.Send
End With
Set objSendMail =Nothing
end if
%>
Tarot, Board Game, Card game, Fortune Telling with Playing Cards