<%@language = vbscript%> <% session("theclientid") = request.querystring("varclientid") 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 conn = server.createobject("ADODB.connection") sConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ "C:\Websites\866\www.netsolutionswales.co.uk\ms_access\e-nsw.mdb;" &_ "Persist Security Info=False;" Conn.ConnectionString = sConnString Conn.open set rsdetails = conn.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") = "" %>
<--Go back

<%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 = conn.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%>

"> ">