The Texas Association of Business: Local Chambers of Commerce

<% dim conn, cst, rs dim pagestart, recordcount dim x, sql, sqlwhere dim Region, County, Begins, BeginsU set conn=Server.CreateObject("ADODB.Connection") cst ="Provider=vfpoledb;Data Source=E:\Public\SBAMP\Data\mpdata.dbc;Mode=ReadWrite;Share Deny None;Password='';Collating Sequence=MACHINE" conn.Open cst set rs = Server.CreateObject("ADODB.recordset") sql = "SELECT memb.id, memb.name,iif(!empty(ALLT(memb.sort_by)),ALLT(memb.sort_by),allt(memb.name)) AS co_name, memb.mailaddr, memb.phyaddr, memb.url_id, dire.category, memb.webnolist, urla.url, addr.address1, addr.address2, addr.city, addr.state, addr.zip,addr.county, phon.phone, phon.ext, phon.status, fax.phone AS fphone, memb.systype from memb LEFT JOIN urla ON memb.url_id = urla.urla_id LEFT JOIN dire on memb.id = dire.id LEFT JOIN phon ON memb.phone1_id = phon.phon_id LEFT JOIN addr ON memb.mailaddr = addr.addr_id LEFT JOIN phon AS Fax on memb.fax_id = fax.phon_id " sqlwhere = "WHERE dire.category='Chambers Of Commerce' and memb.webnolist = 0 and memb.status in ('A','B','P','D')" if Request.QueryString("Region")<>"" then sqlwhere = sqlwhere + "AND memb.location = " + CHR(34) + Request.QueryString("Region") + CHR(34) end if if Request.QueryString("County")<>"" then sqlwhere = sqlwhere + "AND addr.county = " + CHR(34) + Request.QueryString("County") + CHR(34) end if if Request.QueryString("Begins")<>"" then if len(Request.QueryString("Begins")) < 3 then BeginsU = Ucase(Request.QueryString("Begins")) sqlwhere = sqlwhere + "AND upper(iif(!empty(memb.sort_by),memb.sort_by, memb.name)) LIKE " + CHR(34) + BeginsU + "%" + CHR(34) else sqlwhere = sqlwhere + "AND (lower(memb.name) LIKE " + CHR(34) + "%" + Request.QueryString("Begins") + "%" + CHR(34) + "OR LOWER(addr.city) LIKE " + CHR(34) + "%" + Request.QueryString("Begins") + "%" + CHR(34) + ")" end if end if sql = sql + sqlwhere sql = sql + " order by co_name" rs.Open sql, conn, 3 %>

Local Chambers of Commerce <% if Request.QueryString("Region")<>"" then Region=Request.QueryString("Region") Response.Write("
Region: ") Response.Write(Request.QueryString("Region")) end if if Request.QueryString("County")<>"" then Response.Write("
County: ") Response.Write(Request.QueryString("County")) end if if Request.QueryString("Begins")<>"" then if len(Request.QueryString("Begins")) < 3 then Response.Write("
Begins with: ") else Response.Write("
Contains: ") end if Response.Write(Request.QueryString("Begins")) end if %>

<% Response.Write("") %>

Narrow the list of local
chambers of commerce by
selecting one or more
of the items below:

Region:

&Begins=<%Request.QueryString("Begins") %>" alt="North Central Texas" title="North Central Texas" /> &Begins=<%Request.QueryString("Begins") %>" alt="North Texas" title="North Texas" /> &Begins=<%Request.QueryString("Begins") %>" alt="East Texas" title="East Texas" /> &Begins=<%Request.QueryString("Begins") %>" alt="Gulf Coast" title="Gulf Coast" /> &Begins=<%Request.QueryString("Begins") %>" alt="Central Texas" title="Central Texas" /> &Begins=<%Request.QueryString("Begins") %>" alt="West Texas" title="West Texas" /> &Begins=<%Request.QueryString("Begins") %>" alt="South Texas" title="South Texas" />

County:

Search
Term:

<% if rs.RecordCount > 0 then Response.Write("

Returned: " ) Response.Write(rs.RecordCount) Response.Write(" Chamber Records

") end if %>

Clear Selections

Texas Chamber of Commerce
Executives (TCCE) Web Site

<% do until rs.EOF If rs.Fields.Item("systype")="P" then Response.Write("") rs.MoveNext Response.Write("") loop rs.close conn.close %>

") Response.Write(rs.Fields.Item("name")) Response.Write(" ") Else Response.Write("
") Response.Write(rs.Fields.Item("name")) Response.Write(" ") end if Response.Write(rs.Fields.Item("address1")) Response.Write(" ") If IsNull(rs.Fields.Item("address2")) then Response.Write(rs.Fields.Item("address2")) Response.Write(" ") end if Response.Write(rs.Fields.Item("city")) Response.Write(", ") Response.Write(rs.Fields.Item("state")) Response.Write(" ") Response.Write(rs.Fields.Item("zip")) Response.Write(" ") if rs.Fields.Item("Phone")<>"" then Response.Write(Mid(rs.Fields.Item("Phone"),1,3)) Response.Write(".") Response.Write(Mid(rs.Fields.Item("Phone"),4,3)) Response.Write(".") Response.Write(Mid(rs.Fields.Item("Phone"),7,4)) Response.Write(" ") end if if rs.Fields.Item("Fphone")<>"" then Response.Write("Fax: ") Response.Write(Mid(rs.Fields.Item("Fphone"),1,3)) Response.Write(".") Response.Write(Mid(rs.Fields.Item("Fphone"),4,3)) Response.Write(".") Response.Write(Mid(rs.Fields.Item("Fphone"),7,4)) Response.Write(" ") end if Response.Write(" 0 then Response.Write(rs.Fields.Item("phyaddr")) else Response.Write(rs.Fields.Item("mailaddr")) end if Response.Write("&type=map', 1)"">Map") Response.Write("	") if not rs.EOF then If rs.Fields.Item("systype")="P" then Response.Write("	") Response.Write(rs.Fields.Item("name")) Response.Write(" ") Else Response.Write("	") Response.Write(rs.Fields.Item("name")) Response.Write(" ") end if Response.Write(rs.Fields.Item("address1")) Response.Write(" ") If IsNull(rs.Fields.Item("address2")) then Response.Write(rs.Fields.Item("address2")) Response.Write(" ") end if Response.Write(rs.Fields.Item("city")) Response.Write(", ") Response.Write(rs.Fields.Item("state")) Response.Write(" ") Response.Write(rs.Fields.Item("zip")) Response.Write(" ") if rs.Fields.Item("Phone")<>"" then Response.Write(Mid(rs.Fields.Item("Phone"),1,3)) Response.Write(".") Response.Write(Mid(rs.Fields.Item("Phone"),4,3)) Response.Write(".") Response.Write(Mid(rs.Fields.Item("Phone"),7,4)) Response.Write(" ") end if if rs.Fields.Item("Fphone")<>"" then Response.Write("Fax: ") Response.Write(Mid(rs.Fields.Item("Fphone"),1,3)) Response.Write(".") Response.Write(Mid(rs.Fields.Item("Fphone"),4,3)) Response.Write(".") Response.Write(Mid(rs.Fields.Item("Fphone"),7,4)) Response.Write(" ") end if Response.Write(" 0 then Response.Write(rs.Fields.Item("phyaddr")) else Response.Write(rs.Fields.Item("mailaddr")) end if Response.Write("&type=map', 1)"">Map") rs.MoveNext end if Response.Write("