<%
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("")
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
%>
