<%=SiteName%>

<%if not (editor or master or member) then response.redirect("/common/private_page.asp")%> <% 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 %> <%=SiteName%> <% tblName = "tbl_members" dbName = datadir&"npc_members.mdb" OpenOleConn(dbName) set rs = objConn.execute("SELECT * from "&tblName&" where member_ID = " & request("member_id")) %>

<%if editor or master then %> <%end if %> <%if not rs("email_priv") then %> <%end if if not rs("telephone_priv") then %> <%end if if not rs("mobile_priv") then %> <%end if %>

NPC Member Details

Name

<%=rs("title")%> <%=rs("initials")%> <%=rs("firstname")%> <%=rs("Surname")%>

Member Status

<%=rs("status")%>

Boat(s)

<%sql2 = "SELECT tbl_member_boat.member_number as member_number, tbl_boats.boat_id as boat_id, "&_ " tbl_boats.boat_name as boat_name, tbl_boats.boat_class as boat_class, tbl_boats.sail_number as sail_number "&_ "FROM tbl_member_boat LEFT JOIN tbl_boats ON tbl_member_boat.boat_id = tbl_boats.boat_id "&_ "where member_number = '"&rs("member_number")&"'" Set rs2 = objConn.execute(sql2) do while not rs2.eof %>

<%=rs2("boat_class")%> <%=rs2("sail_number")%>

"> <%=rs2("boat_name")%>

<%rs2.movenext() loop 'rs2 link file %>

Address

<%=rs("address1")%>
<%=rs("address2")%>
<%=rs("address3")%>
<%=rs("address4")%>

Post Code

<%=rs("postcode")%>

Mailshot Address

<%if rs("mailshot") then %> Yes - this Member is included in the Mailshot Export <%else %> No - this Member is not included in the Mailshot Export - (duplicate address) <%end if %>

Website User Name

<%=rs("username")%>

e-Mail

<%=rs("email")%>

Telephone

<%=rs("telephone")%>

Mobile

<%=rs("mobile")%>

<%if (editor or master) then %> '"> <%end if %>

"> <%closedata()%>