%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if Request.Form.Count > 0 then
sInitialValue = request.Form("txtName")
if request.Form("ddlOptIn") <> "yes" and request.Form("ddlOptIn") <> "no" then
'if the optin is not yes or no then there is a spam request. therefore blocked from the next statements
if instr(lcase(request.Form("txtEmail")),"web-accessibility.co.uk") = 0 then
'if the email contains the website domain name then its classed as a spam and therefore blocked from the next statements
sResults = "Name: " & Request.Form("txtName") & vbCrLf
if Request.Form("txtAbout") <> "" then
sResults = sResults & "Other Details:" & FormatBlock(Request.Form("txtOtherUses"))
end if
if Request.Form("txtContribution") <> "" then
sResults = sResults & "Other Details:" & FormatBlock(Request.Form("txtOtherTech"))
end if
sResults = sResults & "Name of organization: " & request.Form("txtOrganization") & vbCrLf
sResults = sResults & "Email address: " & request.Form("txtEmail") & vbCrLf
sResults = sResults & "Opt in: " & request.Form("ddlOptIn") & vbCrLf
sBody = "#################################################################" & vbCrLf & vbCrLf & _
"Web-Accessibility: Accessibility Contributions" & vbCrLf & vbCrLf & _
"#################################################################" & vbCrLf & vbCrLf & _
sResults & vbCrLf & vbCrLf & _
"#################################################################"
Set objMailer = Server.CreateObject("CDONTS.NewMail")
with objMailer
.To = "enquiries@epsilis.co.uk"
.From = "website@web-accessibility.co.uk"
.Subject = "Accessibility Contributions"
.Body = sBody
.send
End With
Set objMailer = nothing
response.Redirect("contactthankyou.asp")
end if 'own domain in email query
end if 'ddloptin query
end if 'request.count
function FormatBlock(sField)
FormatBlock = vbCrLf & sField & vbCrLf & vbCrLf
end function
%>
Accessibility Contributions
If you wish to provide a contribution to the site, we would be happy to hear from you.
We invite contributions to this site from people who
- have accessibility issues themselves
- want to promote awareness of website accessibility
- want to highlight good and bad cases of websites accessibility
- want to help make this site more useful
Simply fill in the details below: