<%@ Language=VBScript %> <% Dim dbcon Dim strOpen Dim rsMembersSummary Dim rsMembersList Dim rsKeyWordIn rsKeyWordIn = Session("rsKeyWord") If rsKeyWordIn <> "" Then rsMembersSummary = "SELECT Station, Frequency, MailingAddress, MailingCity, MailingState, MailingZipCode, PhoneNumber, EmailPublic, WebAddress, Corporation, ContactForWS, CityOfOperation, IDNumber, ActiveMember " rsMembersSummary = rsMembersSummary & "FROM tblMembers " rsMembersSummary = rsMembersSummary & "WHERE Station like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "Frequency like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "MailingAddress like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "MailingCity like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "MailingState like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "MailingZipCode like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "PhoneNumber like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "EmailPublic like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "WebAddress like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "Corporation like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "ContactForWS like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "CityOfOperation like '%"&rsKeyWordIn&"%' " rsMembersSummary = rsMembersSummary & "ORDER BY CityOfOperation, Station" Else rsMembersSummary = "SELECT Station, Frequency, MailingAddress, MailingCity, MailingState, MailingZipCode, PhoneNumber, EmailPublic, WebAddress, Corporation, ContactForWS, CityOfOperation, IDNumber, ActiveMember " rsMembersSummary = rsMembersSummary & "FROM tblMembers " rsMembersSummary = rsMembersSummary & "ORDER BY CityOfOperation, Station" End If %> <% Set dbcon=Server.CreateObject ("ADODB.Connection") Set rs=Server.CreateObject ("ADODB.Recordset") strOpen = "driver={Microsoft Access Driver (*.mdb)};" &_ "dbq=" & Server.MapPath ("website.mdb") dbcon.Open strOpen Set rsMembersList = dbcon.Execute(rsMembersSummary) set rs = server.createObject("ADODB.Recordset") rs.cursorlocation = 3 rs.cursortype = adopenstatic %> Members
 
 

Home
About Us
Board of Directors
FYI
Search
Members
Associates
Members Only
Services
To Join
Careers in Broadcasting
Contact Us

 

 
<% if rsMembersList.EOF then %> <% Else %>



There are no records containing your current search criteria.
Please try your search again.
        Station     Address   City Of
Operation		   Telephone
<% Dim Bar Bar = True Dim Count Count = 0 rsMembersList.MoveFirst Do Until rsMembersList.EOF If Bar Then Color = "#F7EFDE" Else Color = "#FFFFFF" End If Bar = Not Bar %> <% Dim PhoneArea Dim PhonePrefix Dim PhoneLast4 PhoneArea = Left(rsMembersList("PhoneNumber"),3) PhonePrefix = Mid(rsMembersList("PhoneNumber"),4,3) PhoneLast4 = Right(rsMembersList("PhoneNumber"),4) %> <% Count=(Count + 1) rsMembersList.MoveNext Loop %> <% End If %>
>   > " onMouseOver="drs('Click to view details about this station.'); return true;" onMouseOut="nd(); return true;" onClick="NewWindow(this.href,'details','500','300','yes'); return false;"> Details >   > <% If rsMembersList("WebAddress") <> "" Then %> " onMouseOver="drs('Click to go to the station web site.'); return true;" onMouseOut="nd(); return true;" onClick="NewWindow(this.href,'website','500','500','yes'); return false;"> <%= rsMembersList("Station") %> <% Else %> <%= rsMembersList("Station") %> <% End If %> >   > <%= rsMembersList("MailingAddress") %> >   > <%= rsMembersList("CityOfOperation") %> >  > (<%= PhoneArea %>) <%= PhonePrefix %>-<%= PhoneLast4 %>
<% If Count > 0 Then %>

<% Count = FormatNumber(Count,0) If Count = 1 Then %> Your search returned <%= Count %> record. <% Else %> Your search returned <%= Count %> records. <% End If %>

New Search
<% End If %>