<%
Brand = request.querystring("Brand")
myStyle = request.querystring("myStyle")
Category = request.querystring("Category")
if Brand="" and myStyle="" and Category="" then
Category="Dresses"
end if
dqstr = ""
if Brand<>"" then
dqstr = dqstr & "brand=" & Server.URLEncode(Brand)
end if
if myStyle<>"" then
if dqstr <> "" then
dqstr = dqstr & "&"
end if
dqstr = dqstr & "myStyle=" & myStyle
end if
if Category<>"" then
if dqstr <> "" then
dqstr = dqstr & "&"
end if
dqstr = dqstr & "Category=" & Category
end if
%>
Shop the Harajuku streets!
Shop by brand:
<%
rs.open "SELECT distinct Brand FROM Products",DBConn,1,3
do while not rs.eof
if rs("Brand")<>"" then
qstr = "?brand=" & Server.URLEncode(rs("Brand"))
end if
%>
<% if Brand = rs("Brand") then %>
- <%=rs("Brand")%>
<% else %>
- <%=rs("Brand")%>
<% end if %>
<%
rs.movenext
loop
rs.close
%>
Shop by style:
<%
For j = 1 to 5
select case j
case 1: aStyle = "Fairy"
case 2: aStyle = "Punk"
case 3: aStyle = "Gothic"
case 4: aStyle = "Lolita"
case 5: aStyle = "Mori"
end select
qstr = "?myStyle=" & aStyle
%>
<% if myStyle = aStyle then %>
- <%=aStyle%>
<% else %>
- <%=aStyle%>
<% end if %>
<%
next
%>
Shop by item type:
<%
rs.open "SELECT distinct Category FROM Products",DBConn,1,3
do while not rs.eof
if rs("Category")<>"" then
qstr = "?Category=" & Server.URLEncode(rs("Category"))
end if
%>
<% if Category = rs("Category") then %>
- <%=rs("Category")%>
<% else %>
- <%=rs("Category")%>
<% end if %>
<%
rs.movenext
loop
rs.close
%>
