<%@ Language=VBScript %> <% Dim dbcon Dim strOpen Dim rsMembersSummary Dim rsMembersList Dim rsKeyWordIn rsKeyWordIn = Session("rsKeyWord") If rsKeyWordIn <> "" Then rsMembersSummary = "SELECT WorkCompany, WorkAddress, WorkCity, WorkStateOrProvince, WorkPostalCode, WorkPhone, WebAddress, FirstName, LastName, IDNumber, ActiveMember " rsMembersSummary = rsMembersSummary & "FROM tblAssociates " rsMembersSummary = rsMembersSummary & "WHERE WorkCompany like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "WorkAddress like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "WorkCity like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "WorkStateOrProvince like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "WorkPostalCode like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "WorkPhone like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "WebAddress like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "FirstName like '%"&rsKeyWordIn&"%' OR " rsMembersSummary = rsMembersSummary & "LastName like '%"&rsKeyWordIn&"%' " rsMembersSummary = rsMembersSummary & "ORDER BY WorkCompany, IDNumber" Else rsMembersSummary = "SELECT WorkCompany, WorkAddress, WorkCity, WorkStateOrProvince, WorkPostalCode, WorkPhone, WebAddress, FirstName, LastName, IDNumber, ActiveMember " rsMembersSummary = rsMembersSummary & "FROM tblAssociates " rsMembersSummary = rsMembersSummary & "ORDER BY WorkCompany, IDNumber" 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 %> LAB Associate 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.
        Company   City, State   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("WorkPhone"),3) PhonePrefix = Mid(rsMembersList("WorkPhone"),4,3) PhoneLast4 = Right(rsMembersList("WorkPhone"),4) %> <% Count=(Count + 1) rsMembersList.MoveNext Loop %> <% End If %>
>   > " onMouseOver="drs('Click to view details about this company.'); 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 company web site.'); return true;" onMouseOut="nd(); return true;" onClick="NewWindow(this.href,'website','500','500','yes'); return false;"> <%= rsMembersList("WorkCompany") %> <% Else %> <%= rsMembersList("WorkCompany") %> <% End If %> >   > <%= rsMembersList("WorkCity") %>, <%= rsMembersList("WorkStateOrProvince") %> >  > " onMouseOver="drs('Click to view details about this company.'); return true;" onMouseOut="nd(); return true;" onClick="NewWindow(this.href,'details','500','300','yes'); return false;"> (<%= 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 %>