<% 'Confirm SelCurrency Form_Currency = TRIM( Request( "FormCurrency" ) ) Cooky_Currency = Request.Cookies( "UserCurrency" ) if Form_Currency = "" then if Session( "selected_currency" ) = "" then if Cooky_Currency = "" then SelCurrency = "USD" else SelCurrency = Cooky_Currency end if else SelCurrency = Session( "selected_currency" ) end if else SelCurrency = Form_Currency end if Session( "selected_currency" ) = SelCurrency if Cooky_Currency <> SelCurrency then addCookie "UserCurrency", SelCurrency end if 'Increment Application Counters Application( "AVProductCount" ) = Application( "AVProductCount" ) + 1 ' Open Database Connection dbPath = "E:/hshome/webcaddy/database/storedbexchange.mdb" Set Con = Server.CreateObject("ADODB.Connection") Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath Set RS = Server.CreateObject( "ADODB.RecordSet" ) RS.ActiveConnection = Con ' Get Current Category cat = TRIM( Request( "cat" ) ) IF cat = "" THEN %>

Go to the "Mogg Adapter" Web Store for your Astronomy Imaging needs


<% End If ' Display ALL Products in Catagory 'sqlString = "SELECT *" &_ ' "FROM Products WHERE product_category='" & cat & "' " &_ ' "ORDER BY product_orderby " ' Display ONLY Products in Catagory that are in STOCK ' Negative Stock Value Display Also sqlString = "SELECT *" &_ "FROM Products WHERE product_category='" & cat & "' " &_ "AND product_stock <> 0 " &_ "ORDER BY product_orderby " RS.Open sqlString %>
Currency:
<% WHILE NOT RS.EOF %> <% RS.MoveNext WEND %>
<% IF RS( "product_picture" ) <> "?????" THEN %> " HSPACE="4" VSPACE="4" BORDER="0" align="center"> <% END IF %> <%=RS( "product_name" )%>
<%=RS( "product_briefDesc" )%>
<% product_price = ProductExchange(Session ("selected_currency"),RS( "product_price_USD" ),RS( "product_price_AUD" ),RS( "product_price_EUR" ),RS( "product_price_GBP" ),RS( "product_price_JPY" ),RS( "product_price_CAD" )) %>
 
<%IF RS( "product_status" ) = 1 THEN %>
"> "> ">

Cost <%=Session ("selected_currency")%> : <%=FormatCurrency(product_price)%>
<%if RS("product_stock") > 0 then %> In Stock <%else%> Made to Order <%end if%>

<%END IF%>

Copyright Steven Mogg 2001-2011
Home: http://moggadapters.com  Email: steven@moggadapters.com