SELECT STATE |
| <%
strSQL = "SELECT state FROM customer_data.csv where type=1 group by state"
rs.open strSQL,dbConnFormat,3,1,1
nCount = rs.recordcount
i=0
if nCount > 0 then
nBreak = nCount/2
while not rs.EOF
if i = nBreak then
response.Write " | | "
end if
%>
<%=ucase(rs(0))%>
<%
i = i+1
rs.movenext
wend
end if
rs.close
%> |
<%
sState = ""
strSQL = "SELECT name,address,city,state,zip,tel FROM customer_data.csv where type = 1 order by state,name"
rs.open strSQL,dbConnFormat,3,1,1
nCount = rs.recordcount
i=0
if nCount > 0 then
while not rs.EOF
if lcase(rs("state")) <> sState then
response.write "
"
end if
sState = lcase(rs("state"))
response.write "" & doHTML(rs("name")) & " "
if len(rs("Address")) > 1 then
response.write " " & doHTML(rs("Address"))
else
response.write " "
end if
response.write " " & doHTML(rs("city")) & " " & doHTML(rs("zip")) & "
"
if len(rs("tel")) > 1 then
response.write "Tel: " & doHTML(rs("tel")) & "
"
else
response.write "
"
end if
i = i+1
rs.movenext
wend
end if
rs.close
%>
<%
sState = ""
strSQL = "SELECT name,city,state FROM customer_data.csv where type = 3 order by state,name"
rs.open strSQL,dbConnFormat,3,1,1
nCount = rs.recordcount
i=0
if nCount > 0 then
while not rs.EOF
if lcase(rs("state")) <> sState then
response.write "
"
end if
sState = lcase(rs("state"))
response.write doHTML(rs("name")) & " - " & doHTML(rs("city")) & "
"
i = i+1
rs.movenext
wend
end if
rs.close
%>
<%
sState = ""
strSQL = "SELECT name,city,state FROM customer_data.csv where type = 2 order by state"
rs.open strSQL,dbConnFormat,3,1,1
nCount = rs.recordcount
i=0
if nCount > 0 then
while not rs.EOF
if lcase(rs("state")) <> sState then
response.write "
"
end if
sState = lcase(rs("state"))
response.write doHTML(rs("name")) & " - " & doHTML(rs("city")) & "
"
i = i+1
rs.movenext
wend
end if
rs.close
%>
| <%
strSQL = "SELECT name,city,state FROM customer_data.csv where type = 4 order by name"
rs.open strSQL,dbConnFormat,3,1,1
nCount = rs.recordcount
i=0
if nCount > 0 then
nBreak = nCount/2
while not rs.EOF
if i = 25 then
response.Write " | | "
end if
%>
" class="storesLinkOn" target="_blank"><%=doHTML(rs("name"))%>
<%
i = i+1
rs.movenext
wend
end if
rs.close
%>
|
|
SAKS FIFTH AVENUE
BARNEYS NEW YORK
NORDSTROM