NET Solutions Wales: e-commerce, consultants, software, hardware: Our products

<%@language = vbscript%> <% varpath = server.mappath("../../ms_access") varpath= varpath & "/e-nsw.mdb" if not request.querystring("catid") = "" then vartosearch = request.querystring("catid") end if if not isempty(request.form("add")) then response.write "here" response.end end if if request.querystring("prodid") = "" then response.redirect("products.html") else varprodidtouse = request.querystring("prodid") '________________________________________________________________________________________ 'set conn = server.createobject("ADODB.connection") 'conn.open "e-nsw" set conn2 = server.createobject("ADODB.connection") sConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & varpath &_ "; Persist Security Info=False;" Conn2.ConnectionString = sConnString Conn2.open set rsdetails = conn2.execute("SELECT * FROM tblproducts WHERE [clientid] = " & clng(session("theclientid")) & " AND productid = '" & varprodidtouse & "'") '________________________________________________________________________________________ end if %> NET Solutions Wales: e-commerce, consultants, software, hardware: Our products

<% response.write session("erradd") session("erradd") = "" %>

<%if rsdetails.eof = true then%> An error has occurred when looking up the details of this product. Please try again later. If the error continues, please ensure your browser has cookies enabled. <% else %>

<%=rsdetails("Product_name")%>

<%=rsdetails("Product_desc")%>

<%set rsoptions = conn2.execute("SELECT * FROM tbloptions WHERE [clientid] = " & clng(session("theclientid")) & " AND productid = '" & request.querystring("prodid") & "'") if rsoptions.eof = true then%> An error has occurred as no options were found. A price cannot be assigned. Please try again later. <% else do until rsoptions.eof = true %>

<%=rsoptions("Option_Desc")%>
<%=session("currencytype")%><%=rsoptions("Option_Price")%>	">

<% rsoptions.movenext loop rsoptions.close end if %>

<%end if%>

">