<%@ 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:

Or search by keyword:   
 
<%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%>
Credit Card Online Payments
<% if request.QueryString("a_aid") > "" then %> <% end if %>

 

<% conn.close set conn = nothing %>