<%@language = vbscript%> <% varpath = server.mappath("../../ms_access") varpath= varpath & "/e-nsw.mdb" if request.querystring("varclientid") <> "" then session("theclientid") = request.querystring("varclientid") else session("theclientid") = session("theclientid") end if if not request.querystring("catid") = "" then vartosearch = request.querystring("catid") end if '_____________________________________________________________________________ 'check this cart has been configured set conn = server.createobject("ADODB.connection") sConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & varpath &_ "; Persist Security Info=False;" Conn.ConnectionString = sConnString Conn.open set rsload = conn.execute("SELECT * FROM tblconfiguration WHERE [clientid] = " & clng(session("theclientid")) & "") if rsload.eof = true then varnoconfiguration = "true" else session("currencytype") = rsload("currencytype") session("shref") = rsload("shref") session("checkcode") = rsload("checkcode") end if rsload.close '__________________________________________________________________________________ if session("thesearch") <> "" then vartosearch = "like" end if %> NET Solutions Wales: e-commerce, consultants, software, hardware: Our products
nav

 







<%if not varnoconfiguration = "true" then%>
<%if vartosearch = "" then%>
Please select from our categories above the product you wish to view, or click here to view all our products.
<%else%>
<% if vartosearch = "all" then set rsproducts = conn.execute("SELECT * FROM tblproducts WHERE [clientid] = " & clng(session("theClientid")) & "") vartosearch = "" elseif vartosearch = "like" then set rsproducts = conn.execute("SELECT * FROM tblproducts WHERE [clientid] = " & clng(session("theClientid")) & " AND (product_name" & " Like '%" & session("thesearch") & "%' OR product_desc" & " Like '%" & session("thesearch") & "%')") session("thesearch") = "" vartosearch = "" else set rsproducts = conn.execute("SELECT * FROM tblproducts WHERE [clientid] = " & clng(session("theClientid")) & " AND categoryid = " & clng(vartosearch) & "") vartosearch = "" end if %> <%if rsproducts.eof = true then%> There are currently no products listed for this category or search. Please select a different category from the list above or try a different search. <%else varcount = 0 do until rsproducts.eof = true varcount = varcount + 1 %>
">
<%=rsproducts("Product_name")%>
<%=rsproducts("Product_Desc")%>

<% rsproducts.movenext loop end if end if %>
<% 'main end if for configuration else%> This cart has not been configured. We are sorry for any inconvenience. Please check back soon <% end if %>