<% dim Request2 Request2 = request.querystring("Request") %>

Search Results

<% Show_Results %>

Unless otherwise stated telephone numbers are at the East London area code 043
if you are dialing from outside of South Africa it will be +27 43.

Search Again
<% Sub Show_Results on error resume next set conn = server.createobject("ADODB.connection") conn.open "BRC", "ZS2CE", "ZS2CE" set rs = conn.execute("SELECT Callsign, Name, Surname, BIRTH_DAY, BIRTH_MTH, BIRTH_YEAR, " _ & " Telephone, Address1, Address2, Address3, XYL_NAME, EMAIL, Website " _ & " FROM Members WHERE Callsign = " & "'" & Request2 & "'") 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 "Callsign: " & rs("callsign") & "  " & "Name: "_ & rs("name") & " " & rs("surname") response.write "
Birth Date: " & rs("birth_day") & "/" & rs("birth_mth") & "/" & rs("birth_year") response.write "
Address: " & rs("address1") & ", " & rs("address2") & ", " & rs("address3") response.write "
Telephone: " & rs("telephone") if rs("email") <> "" then response.write "  " & "E-Mail: " & rs("email") & "" end if if rs("website") <> "" then response.write "
Website: " & rs("website") & "" end if if rs("xyl_name") <> "" then response.write "
XYL/OM: " & rs("xyl_name") end if rs.close conn.close end sub %>