%@ Language=VBScript %> <% Response.Expires = -1500 %> <% lnOrdno=SESSION("order") passedorder=request.querystring("ordno") If isempty(lnordno) then lnordno=passedorder End if set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\home\britt2\process\wassco.mdb;" If lnordno>0 then strSQLquery="SELECT * FROM ord_mstr WHERE order_id="&lnordno set ro = Server.CreateObject("ADODB.Recordset") ro.Open strSQLQuery, conn If ro("invno")>0 AND ro("cust_id")>0 Then ro.close conn.close set ro = nothing set conn = nothing session("order")=0 session.abandon response.redirect "http://www.britt2.com" End If ro.close SET ro = nothing End if getprod=request.querystring("prod_id") IF cint(getprod)=0 OR cint(getprod)>4 then response.redirect "http://www.britt2.com" End if strSQLQuery = "SELECT * FROM prod_mstr WHERE prod_id= "&getprod set r1 = Server.CreateObject("ADODB.Recordset") r1.Open strSQLQuery, conn strSQLQuery = "SELECT * FROM prod_dtl WHERE prod_id= "&getprod&" ORDER BY min" set rd = Server.CreateObject("ADODB.Recordset") rd.Open strSQLQuery, conn strSQLQuery = "SELECT * FROM prod_color WHERE prod_id= "&getprod set rc = Server.CreateObject("ADODB.Recordset") rc.Open strSQLQuery, conn strSQLQuery = "SELECT * FROM prod_img WHERE prod_id= "&getprod set ri = Server.CreateObject("ADODB.Recordset") ri.Open strSQLQuery, conn strSQLQuery = "SELECT * FROM prod_ship WHERE prod_id= "&getprod set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQLQuery, conn strSQLQuery = "SELECT * FROM company WHERE id=1" set rm = Server.CreateObject("ADODB.Recordset") rm.Open strSQLQuery, conn %>
|
|||||||||||
<% If r1.RecordCount = 0 then Response.write "There are no products available" response.Write " | " Else %> <% laadultqty="" 'laprices=laprices& "|||||||||||
"
'laprices=laprices& "Miss that personal Touch? Call us: " 'laprices=laprices& "918-834-4444 " 'laprices=laprices& "One of our friendly and knowledgeable representatives would be happy to assist you with your order! " 'laprices=laprices& " |