Border Area Radio Hams

<% call Show_Results %>

NAME	CALLSIGN	CURRENT	SARL MEMBER
Peter Tottle	ZS2ABF	2011/2012
Phil Sörensen	ZS2NP	2011/2012
Karl Heinz	ZS2BC	2011/2012
Anthony Forteath	ZS2BQ	2011/2012	Yes
Len Lotter	ZS2LEN	2011/2012	Yes
Cedric Hart	ZS2CY	2011/2012
Clarence Coetzer	ZS2CDC	2011/2012
Neil Bousfield	ZR2DR	2011/2012
Chris Hundling	ZS2CH	2011/2012
Brian Prior	ZS2AU	2011/2012	Yes
Neil Holmes	ZS2AI	2011/2012	Yes
Andy Swanepoel	ZR2ACJ	2011/2012
Derek Stuart	ZS2J	2011/2012	Yes
Aloma Basson	ZS2AW	2011/2012
Fred	ZS2AP	2011/2012
Heinz Jasson	ZS2HJ	2010/2011
Gerald Berlyn	ZR2GB	2010/2011
Ivan Newman	ZS2ILN	2011/2012	Yes
Henry Lemke	ZS2AHL	2011/2012
Garth Moore	ZS2AAR	2011/2012	Yes
Val Wood	ZR2VW	2011/2012
Russel		2011/2012
Shane		2011/2012
Torsten Hormann	ZS2THG
Marcel Splett	ZS2BS
Nick Basson	ZS2NB	HLM	Yes
Ken Wood	ZS2KW	HLM	Yes

 

<% Sub Show_Results dim emailad, telephone emailad = "" on error resume next Set conn = CreateObject("ADODB.Connection") conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("brc.mdb")) ' set conn = server.createobject("ADODB.connection") ' conn.open "BRC", "ZS2CE", "ZS2CE" set rs = conn.execute("SELECT Callsign, Name, FirstName, EMail, Birthdate, " _ & " PhoneHome, PhoneWork FROM MemberDetails ORDER By Callsign") sngErrorFound = conn.Errors.Count If sngErrorFound = 0 Then else for intloop = 0 to conn.errors.count response.write "error number: " & conn.errors(intloop).number response.write " - " & conn.errors(intloop).description & "
" next End If rs.movefirst if rs.eof then response.write "
Sorry, No Results Found "_ & " " end if rs.movefirst response.write "" response.write "" & "" response.write "" do while not rs.eof emailad = rs("EMail") response.write "" response.write "" response.write "" rs.movenext loop response.write "

" response.write "Callsign" & "	"_ & "Name" & " " & "Surname" & "	" & "Birth"_ & " Date  "_ & "	" & "Telephone"_ & "	"_ & "
" if emailad <> "" then response.write "" & rs("Callsign") & "" else response.write rs("Callsign") end if response.write "	" & rs("FirstName") & " " & rs("Name") & "	" & rs("BirthDate") & "	" response.write "" telephone = rs("PhoneHome") & " " if len(telephone) < 5 then telephone = rs("PhoneWork") else telephone = rs("PhoneHome") end if response.write telephone & "

" rs.close conn.close end sub %>