<% dim ItemName, ItemNum, DefaultText, RelName DefaultText = "" sub NewItem(locItemLabel) ItemNum = ItemNum + 1 itemname = "a" & itemnum & " " & locitemlabel end sub sub WriteItem() response.write("""" & ItemName & """") end sub sub WriteValue(locText) if request.form(itemname) = "" then response.write("""" & locText & """") else response.write("""" & request.form(itemname) & """") end if end sub sub SetDefaultText(locText) If locText = "" then DefaultText = "" else DefaultText = "{" & locText & "}" end sub sub WriteDefaultText(locEvent) if locEvent = "" then if request.form(itemname) = "" then response.write("""" & DefaultText & """ ") else response.write("""" & request.form(itemname) & """ ") end if else if defaulttext <> "" then response.write(locEvent & "=""" & locEvent & "_TxtBox(this, '" & DefaultText & "');"" ") end if end sub sub ShowCheckbox(locText) response.write(" " & locText & "
") end sub sub GetDay() response.write("") end sub sub GetMonth() months = array ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December") response.write("") end sub sub GetYear(locSpan) response.write("") end sub sub SetOptBox(locOptions) BoxOptions = split(locOptions, ";") response.write("") end sub sub ShowLabel(locName, locShow) NewItem(locName) response.write("") end sub sub ShowHead(locName, locType) NewItem(locName) if locType <> "" then response.write("<" & loctype & ">" & locName & "") response.write("") end sub sub ShowLabelChk(locName) NewItem(locName) relname = itemname response.write("") response.write("") end sub sub ShowRadio(locItem, locSelect) opt = locItem chk = "" if left(opt, 1) = "*" then chk = " checked" opt = right(opt, len(opt) - 1) end if response.write("") response.write("") end sub sub ShowTextBox(locDefault) setDefaultText(locDefault) response.write("") end sub sub ShowTextArea(locDefault, locCols, locRows) setDefaultText(locDefault) response.write("") end sub sub JoinEvent(locOrganiser, locEvent) response.write("
") response.write("") response.write("") response.write("") response.write("Would you like to come and join us for this day? ") response.write("") response.write("
") end sub %> <% function writetext(locText) response.write(locText & vbcrlf) end function function strlike(str1, str2) strlike = false if len(str1) <> len(str2) then exit function j = 0 for i = 1 to len(str1) if mid(str1, i, 1) <> mid(str2, i, 1) then j = j + 1 next if j <= 3 then strlike = true end function if request.ServerVariables("HTTP_AUTHORIZATION") <> "" then usercode = split(request.ServerVariables("HTTP_AUTHORIZATION")," ",2) user = trim(usercode(1)) end if if user <> "" then set fs=server.createobject("scripting.filesystemobject") htmlpath="/" path=server.mappath(htmlpath) & "/" userfilename = path & "users.txt" set fo=fs.opentextfile(userfilename) while not fo.atendofstream nextline = fo.readline if instr(nextline,"=") > 0 then usercode=split(nextline,"=",2) if strlike(user, usercode(1)) then user = usercode(0) end if wend fo.close logfilename = path & "authlog.txt" set fo=fs.opentextfile(logfilename, 8, true) if request.QueryString("Code") <> "" then addinfo = ":" & request.QueryString("Code") fo.writeline(now & ";" & user & ";" & request.ServerVariables("PATH_INFO") & addinfo) fo.close set fo = nothing set fs = nothing end if %>
DELTA Logo

Deaf Education through
Listening and Talking

Questions?

Charity No:1115603      Company No:5698173
 
Choosing to Talk  
We have produced this information to help parents who are trying to decide how to deal with their child’s deafness.

We support the Natural Aural Approach to the education of severely and profoundly deaf children, because it works - and we can prove it...

By ordinary people
living ordinary lives,
wearing hearing aids
using cochlear implants
with deaf and with hearing friends
going to school, college or work every day
gossiping with their friends
just getting on with life
By hard evidence
GCSE and other exam results
Reading ages
Research studies
Experience

We can show you that, with the right support, young people can achieve across the board at school and get the exam results which open up interesting and rewarding jobs. We can tell you the stories, show you the photos, introduce you to the young people and their families.

The Natural Aural Approach gives severely and profoundly deaf children the chance...
To talk with family, neighbours, friends
To go to school with brothers, sisters and local friends
And show just how talented they are

Please browse through the following sections:

  1. The Natural Aural Approach
  2. How do we know it works?
  3. Deaf children DO hear
  4. Speaking for THEMSELVES
  5. The child not the deafness
  6. A Deaf identity?
  7. Discussing the options
  8. Your Right to Choose

'Deaf Children Talking - the Parents' Guide to the Natural Aural Approach' provides more information about how to help your deaf child learn to listen and talk.

Current Events

Sponsor DELTA Runners Online
justgiving logo

Keep In Touch

Update your details
Become a member

Latest Copies of

Chat and Chattering

Supporting DELTA:

Online Shop button

Make a donation online
Buy a copy of Morag Clark's new book

Cover of Morag Clark's new book
 
© DELTA 2007 - Last modified: 4 February, 2007 10:02 PM