DELTA - in Yorkshire and Humberside

<% 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("") if locShow then response.write(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("" & locName & "") 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("" & opt & "") 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("") 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 %>

Deaf Education through
Listening and Talking

Charity No:1115603 Company No:5698173

DELTA in Yorkshire and Humberside
We will be telling you more about what we are doing in Yorkshire and Humberside

Current Events

Sponsor DELTA Runners Online

DELTA eBay AUCTION

Update your details
Become a member

Chat and Chattering

Make a donation online

Buy a copy of Morag Clark's new book

Cover of Morag Clark's new book