<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if Request.Form.Count > 0 then sInitialValue = request.Form("txtName") if request.Form("rdgAge") <> sInitialValue and instr(lcase(request.Form("txtEmail")),"web-accessibility.co.uk") = 0 then 'this form isn't a spam request rdgAge cannot be the same value as a text box. sResults = "Name: " & Request.Form("txtName") & vbCrLf sResults = sResults & "Age range: " & request.Form("rdgAge") & vbCrLf sResults = sResults & "1) Internet use frequency: " & request.Form("rdgFrequency") & vbCrLf sResults = sResults & "2) Use of the internet: " & request.Form("chkUses") & vbCrLf if Request.Form("txtOtherUses") <> "" then sResults = sResults & "Other Details:" & FormatBlock(Request.Form("txtOtherUses")) end if sResults = sResults & "3) Websites found particularly easy to use: " & FormatBlock(request.Form("txtWebsitesGood")) & vbCrLf sResults = sResults & "4) Websites found particularly hard to use: " & FormatBlock(request.Form("txtWebsitesBad")) & vbCrLf sResults = sResults & "5) Assistive technologies: " & request.Form("chkTech") & vbCrLf if Request.Form("txtOtherTech") <> "" then sResults = sResults & "Other Details:" & FormatBlock(Request.Form("txtOtherTech")) end if sResults = sResults & "6) Generally use: " & request.Form("chkTechUse") & vbCrLf sResults = sResults & "7) How they are benefited using the internet?: " & FormatBlock(request.Form("txtBenefit")) & vbCrLf sResults = sResults & "8) What difficulties experienced using the internet that are specific to their disability/impairment: " & FormatBlock(request.Form("txtDifficulties")) & vbCrLf sResults = sResults & "9) Suggestions of changes that may be of benefit: " & FormatBlock(request.Form("txtSuggestions")) & vbCrLf sResults = sResults & "10) Services not on the Internet that would like to see introduced: " & FormatBlock(request.Form("txtServices")) & vbCrLf sResults = sResults & "11) Further comments: " & FormatBlock(request.Form("txtFurtherComments")) & vbCrLf sResults = sResults & "Name of organization: " & request.Form("txtOrganization") & vbCrLf sResults = sResults & "Email address: " & request.Form("txtEmail") & vbCrLf sResults = sResults & "Telephone: " & request.Form("txtTelephone") & vbCrLf sResults = sResults & "Chosen charity: " & request.Form("txtCharity") & vbCrLf sResults = sResults & "Opt in: " & request.Form("ddlOptIn") & vbCrLf sResults = sResults & "Referrer Page: " & request.ServerVariables("HTTP_REFERER") & vbcrlf sResults = sResults & "Client IP: " & request.ServerVariables("REMOTE_ADDR") & vbcrlf sBody = "#################################################################" & vbCrLf & vbCrLf & _ "Web-Accessibility: Accessibility Survey" & 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 Survey Details" .Body = sBody .send End With Set objMailer = nothing response.Redirect("contactthankyou.asp") end if end if function FormatBlock(sField) FormatBlock = vbCrLf & sField & vbCrLf & vbCrLf end function %> Web Accessibility

Accessibility Survey

The Disability Discrimination Act has meant that companies now need to be aware of the different accessibility issues. Epsilis want to build their knowledge and understanding of the different problems and issues that people with disabilities experience when using the internet. This will help us to avoid making mistakes with our future website designs.

You can enter our monthly prize draw and win £25 towards your chosen charity.

So please help us by completing the following questionnaire.

There are 12 questions to complete with some optional questions at the end of the survey. Fields marked with * must be filled in.

Name *

Approximately, how often do you use the Internet?

Everyday
2 - 3 Days a week
Once a week
Most days
Less than any of these

Are there any websites you have found particularly easy to use? Please list them below.

Equally, are there any you have found difficult to use and would like to tell us about them? Please give details below:

Do you use any of the following assistive technologies?

None
Screenreader
Screen Magnification
Text based browser
Other Please Specify

Generally, do you use: (tick which apply to you)

None
Screenreader
Screen Magnification
Large Text

How do you think you benefit using the internet?

What difficulties that you experience using the internet, do you think are specific to your disability/impairment?

Do you have any suggestions of changes that may be of benefit to you?

Is there any service that you don't get from the Internet that you would like to see introduced?

Please feel free to make any further comments that have not been covered by the other questions.

If you wish to take part in our monthly prize draw please provide us with the following information so we can contact you if you are selected:

Name of your organization (if you belong to one)

Email Address

Telephone

Please write the name of your chosen charity here

We will publish the competition results on the Epsilis website. www.epsilis.co.uk

If you have supplied us with your email address or telephone number, would you mind if we contacted you in the future (if necessary) for more assistance with our research?

We would like to thank you for taking part in this important survey. We appreciate your contribution and will treat your comments with respect.