<%Response.ContentType = "application/vnd.ms-excel"
Response.Charset = ""
EnableViewState = false
%>
<%if not (editor or master) then
response.redirect("/common/private_page.asp")
end if %>
<%
Function StandardDate(mDate)
mDate = CDate(mDate)
StandardDate = Day(mDate) & "/" & Month(mDate) & "/" & Year(mDate)
End Function
Function nz(mData) ' avoid saving null values
If len(mData) = 0 then
nz = " "
Else
nz = mData
End if
End Function
Function ReplaceChar(mChar,mData)
If Instr(mData,chr(mChar)) > 0 Then
DataLength = len(mData)
Pointer = 1
Do While Pointer <= DataLength
Char = Mid(mData,Pointer,1)
If Char = chr(mChar) then
mData = Left(mData,Pointer-1) & " " & Mid(mData,Pointer+1)
End If
Pointer = Pointer + 1
Loop ' next char in string
End If
ReplaceChar = mData
End Function
Function FixApostrophe(mData)
If Instr(mData,"'") > 0 Then
DataLength = len(mData)
Pointer = 1
Do While Pointer <= DataLength
Char = Mid(mData,Pointer,1)
If Char = "'" then
If Mid(mData,Pointer,2) <> "''" then
mData = Left(mData,Pointer) & "'" & Mid(mData,Pointer+1)
Pointer = Pointer + 1
DataLength = DataLength + 1
End If
End If
Pointer = Pointer + 1
Loop ' next char in string
End If
FixApostrophe = mData
End Function
function WriteSelectCodeSingle(mReq,mText)
response.write("")
end function
function WriteSelectCode(mReq,mTag,mText)
response.write("")
end function
Function ReFormatted(Str)
on Error resume next
Str=Replace(Str, CHR(13), "")
Str=Replace(Str, CHR(10) & CHR(10),"
")
Str=Replace(Str, CHR(10), " ")
ReFormatted = "
" & Str & "
"
End Function
Function VetInput(cTestString)
' checks for HTML or profanities in a string
' each 'library!' word is searched for in the string
' if any of the library words are surrounded with text, then the word is passed (eg 'scunthorpe')
' if the word is at the beginning or end of another word, then it is blocked.
VetInput = "OK"
If (Instr(cTestString,"<") > 0 and Instr(cTestString,"<") > 0) then
VetInput = "html"
Else
Dim aProf,Profanity, Suffix, Prefix,pointer, offset, alphachars
aProf = Array("bum","tit","crap","fuck","phuck","tosser","fuk","bollo","cunt","bastard","wank","shit","wank","wog","coon","arse")
Profanity = ""
alphachars = "abcdefghijklmnopqrstuvwxyzABSDEFGHIJKLMNOPQRSTUVWXYZ"
cTestString = " " & cTestString & " " ' insert a space at each end of the string
For pointer = 0 To UBound(aProf) - 1
offset = InStr(UCase(cTestString), UCase(aProf(pointer)))
If offset > 0 Then
Prefix = Mid(cTestString, offset - 1, 1)
Suffix = Mid(cTestString, offset + Len(aProf(pointer)), 1)
If InStr(alphachars, Prefix) > 0 And InStr(alphachars, Suffix) > 0 Then
' it's embedded in another word, so we'll take a chance
Else
Profanity = Mid(cTestString, offset, Len(aProf(pointer)))
Exit For
End If
End If
Next
If Len(Profanity) > 0 Then
VetInput = "suspect"
'VetInput = "sorry, your entry contained the word " & Profanity & " and cannot be saved."
End If
End If
End Function
%>
<%if (editor or master) then %>
Excel Download
<%
OpenOleConn(datadir&"npc_members.mdb")
select case request("pmode")
case "handbook"
sqlString = "SELECT tbl_Members.title, tbl_Members.initials, tbl_Members.firstname, tbl_Members.surname, " &_
"tbl_Members.dob, tbl_Members.address1, tbl_Members.address2, tbl_Members.address3, tbl_Members.address4, tbl_Members.postcode, " &_
"IIf([telephone_priv],' ',[telephone]) AS Expr1, tbl_Members.membership_class, tbl_Members.class_type, " &_
"tbl_Members.first_aider, tbl_Members.mailshot, tbl_boats.boat_name, tbl_boats.sail_number, tbl_boats.boat_class " &_
"FROM tbl_Members LEFT JOIN (tbl_member_boat LEFT JOIN tbl_boats ON tbl_member_boat.boat_id=tbl_boats.boat_id) " &_
"ON tbl_Members.member_number=tbl_member_boat.member_number where ucase(status) = 'ACTIVE' order by tbl_Members.surname "
case "mailshot"
sqlString = "select title,initials,surname,address1,address2,address3,address4,postcode from tbl_Members where mailshot = true and ucase(status) = 'ACTIVE' order by surname"
case "boatlist"
sqlString = "SELECT tbl_boats.boat_name, tbl_boats.boat_class, "&_
"tbl_boats.sail_number, tbl_Members.initials, "&_
"tbl_Members.firstname, tbl_Members.surname as surname "&_
"FROM (tbl_boats RIGHT JOIN tbl_member_boat ON tbl_boats.boat_id = tbl_member_boat.boat_id) "&_
"LEFT JOIN tbl_Members ON tbl_member_boat.member_number = tbl_Members.member_number "&_
" where status = 'active' order by tbl_boats.boat_name "
case "contactlist_all"
sqlString = "SELECT tbl_Members.title, tbl_Members.initials, tbl_Members.firstname, "&_
"tbl_Members.surname, tbl_Members.address3, tbl_Members.telephone, "&_
"tbl_Members.mobile, tbl_Members.email FROM tbl_Members where status = 'active' order by tbl_Members.surname "
case "classlist"
sqlString = "SELECT tbl_boats.boat_class, tbl_boats.sail_number, tbl_boats.boat_name, "&_
"tbl_Members.title, tbl_Members.initials, tbl_Members.firstname, "&_
"tbl_Members.surname, tbl_Members.address3, tbl_Members.email "&_
"FROM (tbl_boats RIGHT JOIN tbl_member_boat ON tbl_boats.boat_id = tbl_member_boat.boat_id) "&_
"LEFT JOIN tbl_Members ON tbl_member_boat.member_number = tbl_Members.member_number "&_
"where status = 'active' ORDER BY tbl_boats.boat_class, tbl_boats.sail_number "
case "usernames"
sqlString = "SELECT tbl_Members.username, tbl_Members.userlevel, "&_
"tbl_Members.lastvisit, tbl_Members.title, tbl_Members.initials, "&_
"tbl_Members.firstname, tbl_Members.surname "&_
"FROM tbl_Members WHERE ((Len([tbl_Members]![username])>'0')) "&_
"and status = 'active' order by tbl_Members.username "
case else
sqlString = "select * from tbl_Members order by surname"
end select
Set rs = objConn.execute(sqlString)
%>
<%For i = 0 to rs.fields.count - 1 %>
<% = rs(i).name %>
<%next %>
<%while not rs.eof %>
<%For i = 0 to rs.fields.count - 1 %>
<% = rs(i) %>
<%Next %>
<% rs.MoveNext
wend
rs.Close %>
<%else %>
you do not have the neccessary rights to view this information
<%end if
closedata() %>