%
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 & "" & loctype & ">")
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("
![]() |
Deaf Education through |
| ||||||||||
|
Charity No:1115603 Company No:5698173 |
||||||||||||
|
|
||||||||||||
|
|
|||||||||||
| © DELTA 2007 - Last modified: 4 February, 2007 10:02 PM | ||||||||||||