|
<%
SUB DISPLAY_BRANCHES()
ON ERROR RESUME NEXT
DIM STRSQL
DIM I, SCODE
I = 1
STRSQL = "select name, scode from tblbr where not code in ('COM','FAB')"
STRSQL = STRSQL & " order by scode, name "
CALL CREATE_RS(STRSQL,-1)
WHILE NOT RS.EOF
SCODE = RS("scode")
RESPONSE.WRITE RS("name") & ", "
I = I + 1
RS.MOVENEXT
IF NOT RS.EOF THEN
IF SCODE <> RS("scode") THEN
RESPONSE.WRITE SCODE
IF NOT I < 10 THEN
RESPONSE.WRITE " |
Birmingham, AL | Daytona Beach, Pompano Beach, FL | Atlanta, Smyrna, GA | Bolingbrook, Wheeling, IL | New Orleans, LA | Charlton, MA
Beltsville, MD | Grand Rapids, MI | Charlotte, Charlotte-Fabrication, Charlotte-VAD, Greensboro, Raleigh, NC | Akron, Cincinnati, Columbus, OH
Toronto, ON | Pittsburgh, PA | San Juan, PR | Greenville, West Columbia, SC | Knoxville, Memphis, Nashville, Nashville- VAD, TN | Richmond, VA
|
