<%
' page specific constants
const PAGE_TITLE = "Request Information"
dim InputError, ErrorMessage
dim subject, body
dim CommentsInitialValue
if not isempty( request("query")) then
CommentsInitialValue = request("query")
else
CommentsInitialValue = ""
end if
%>
New and used hot foil stamping machines, servicing, parts and consumables - SF Services
<%
if request("submitted") = "1" then
' ** submitted **
' false by default
InputError = false
ErrorMessage = ""
if request("name") = "" then
InputError = true
ErrorMessage = "Please enter your name "
end if
if request("company") = "" then
InputError = true
ErrorMessage = ErrorMessage & "Please enter your company name "
end if
if request("email") = "" or InStr(1,request("email"),"@",vbTextCompare) = 0 OR InStr(1,request("email"),".",vbTextcompare) = 0 then
InputError = true
ErrorMessage = ErrorMessage & "Please enter your email address "
end if
if request("comments") = "" then
InputError = true
ErrorMessage = ErrorMessage & "Please tell us how me may help you "
end if
if InputError = true then
' ** input error **
%>
The following errors or omissions must be corrected before we can process your request.
