Angel Court Retailers
If you know of a shop that Angel Court would be perfect for, please send us the shop information. E-Mail Us
<%
Dim Conn3, rsState
set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open ConString
'response.write constring
Set rsState = Conn3.Execute("SELECT distinct state_abr, tblState.state FROM tblState, tblStores where state_abr = tblStores.state " )
While Not rsState.EOF
%>
&state_name=<%= rsState("state")%>"><%= rsState("state")%>
<%
rsState.MoveNext
if Not rsState.EOF then
response.write " / "
end if
Wend
rsState.Close
Set rsState = Nothing
%>
Shops outside the U.S.that carry
our products:
<%
Dim Conn5, rsCountry, Conn2, rstoreinfo
set Conn5 = Server.CreateObject("ADODB.Connection")
Conn5.Open ConString
'response.write constring
Set rsCountry = Conn5.Execute("SELECT * FROM tblCountry" )
%>
<%
While Not rsCountry.EOF
%>
&country_name=<%= rsCountry("country")%>"><%= rsCountry("country")%>
<%
rsCountry.MoveNext
if Not rsCountry.EOF then
response.write " / "
end if
Wend
rsCountry.Close
Set rsCountry = Nothing
%>
|