%@ Language=VBScript %>
<% Option Explicit %>
<% Response.Buffer = true %>
<%
session("a_aid") = request.QueryString("a_aid")
session("a_bid") = request.QueryString("a_bid")
'on error resume next
dim rsCategories, strsql, rssettings, storefont, rsCount, icount, rsSub, iHalfway, i, category_ID, product_ID
dim a_aid, a_bid, a_index, a_string, a_prefix, a_suffix, strParameters, arParameters, product_category
strParameters = Request.ServerVariables("query_string")
if strParameters <> "" and (InStr (strParameters,"?") > 0) then
if (InStr (strParameters,"a_aid")) > 0 then
if (InStr (strParameters,"a_bid")) > 0 then
arParameters = split(strparameters, "=")
product_category = arParameters(3)
a_prefix = "http://www.candlestickforum.com/store/PPF/parameters/"
a_aid = request.Querystring("a_aid")
a_string = request.QueryString("a_bid")
a_index = InStr (a_string,"?")
a_bid = Left (a_string,(a_index - 1))
a_suffix = "/more_info.asp"
conn.close
set conn = nothing
response.Redirect(a_prefix & product_category & "_" & a_aid & "_" & a_bid & a_suffix)
end if
arParameters = split(strparameters, "=")
product_category = arParameters(2)
a_prefix = "http://www.candlestickforum.com/store/PPF/parameters/"
a_string = request.Querystring("a_aid")
a_index = InStr (a_string,"?")
a_aid = Left (a_string,(a_index - 1))
a_suffix = "/more_info.asp"
conn.close
set conn = nothing
response.Redirect(a_prefix & product_category & "_" & a_aid & a_suffix)
end if
end if
set rsCount = conn.execute("stor_Count_Categories")
iCount = rsCount("the_count")
iHalfway = cint(iCount/2)
set rssettings = server.CreateObject("ADODB.Recordset")
rssettings.CursorLocation = adUseClient
strsql = "stor_Settings_select"
set rssettings = conn.execute(strsql)
storefont = rssettings("StoreFontFace")
rssettings.Close
set rssettings = nothing
set rsCategories = server.CreateObject("ADODB.RECORDSET")
rsCategories.CursorLocation = adUseClient
set rsCategories = conn.execute("stor_Categories_select_storefront")
set rsSub = server.CreateObject("ADODB.RECORDSET")
rsSub.CursorLocation = adUseClient
%>
Storefront
|
Storefront
Do you own or operate a financial or other related website? Be sure to review our Affiliate program to see how you can generate additional revenue by marketing our products. |
Want to receive our products for free? Create a Candlestick Forum Wish List of items you would enjoy receiving. Share your list with family and friends for gift giving suggestions, or send it to yourself for later review. |
Click on the product categories below to see product selections:
<%if not rsCategories.EOF then%>
<%
i = 0
do while not rsCategories.EOF%>
<%if i = 0 or i = -300 then%>
<%end if%>
- "><%=rsCategories("Name")%>
<%
i = i + getChildNodes(rsCategories("category_ID"))
%>
<%
i = i + 1
rsCategories.MoveNext%>
<%if not rsCategories.EOF then%>
<%
if i >= iHalfway then
i = -300
response.Write(" | ")
end if
%>
<%if i = 0 or i = -300 then%>
<%end if%>
- "><%=rsCategories("Name")%>
<%
i = i + getChildNodes(rsCategories("category_ID"))
%>
<%end if%>
<%
if not rsCategories.EOF then
rsCategories.MoveNext
i = i + 1
if i >= iHalfway then
i = -300
response.Write(" | ")
end if
end if
loop
%>
|
<%end if%>
<%
if request.QueryString("a_aid") > "" then
%>
<%
end if
%>
|
<%
conn.close
set conn = nothing
%>