GoGreen PC TuneUp™
Learn More

Insta-Install™
this is how we code sign our software and ssl encrypt our websites from our affiliate partner SSL.com

myBlog

myBlog Home

Back to Blog MTNCOMP


ASP, VBScript, Javascript - Custom Order Material - Plastic Sheet

Published: Saturday, February 23, 2019 written by Drew Jackson
View Count: 562
Keywords: ASP, VB Script, Javascript, OLE-DB, MS Access, HTML, Custom Order



this is a classic example of custom cut order for materials.
 
even some of the larger material companies do not have an asp, javascript, database driven working example that works pretty good. wish i still had this operational, but the company has moved on to different solutions if not any at all. this was done back in 2011.. and ran for 7 years successfully
 
here is the code... enjoy...  more to come...
 

--- p.asp ---

< %@ LANGUAGE="VBSCRIPT" % >
< %
   option explicit
   response.expires = 0
   if request.querystring("method") = "leaveadminmode" then
           session("un") = ""
       end if
      
   rem title transition variables
   dim t1, t2
   dim product_description, sheet_description, shoppingcart_total, sheet_style
   t1 = ""
   t2 = ""
  
   select case request.querystring("sheet_style")
   case "full_sheet"
       sheet_style= "full_sheet"
       sheet_description= "Full Sheet"
   case "cut_to_size"
       sheet_style= "cut_to_size"
       rem sheet_description = ""
       rem already set by RS datafield
   case else
          sheet_style= "full_sheet"
   end select
  
% >
<!--#include virtual="/inc/sqldsn.asp"-->
<!--#include virtual="/inc/sqltext.asp"-->

<html>

<head>

<title>your title</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<meta name="keywords" content="your description">

<meta name="description" content="your description">

<META NAME="ROBOTS" CONTENT="all, index, follow">

<META NAME="REVISIT-AFTER" CONTENT="15 days">

<META NAME="DISTRIBUTION" CONTENT="global">

<META NAME="COPYRIGHT" CONTENT="Copyright (c) year yourcompanyname. All rights reserved.">

<META NAME="AUTHOR" CONTENT="owner name">

<style type="text/css">

<!--

body {

    margin-left: 15px;

    margin-top: 15px;

    margin-right: 15px;

    margin-bottom: 15px;

}
a:link {
    color: #00129B;
    text-decoration: none;
}
a:visited {
    text-decoration: none;
    color: #00129B;
}
a:hover {
    text-decoration: underline;
    color: #FF0000;
}
a:active {
    text-decoration: none;
    color: #00129B;
}
.style2 {
    font-family: "Times New Roman", Times, serif;
    font-size: 13px;
    font-weight: bold;
}
.style3 {
    font-family: "Times New Roman", Times, serif;
    font-size: 15px;
}
.style4 {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-weight: bold;
    color: #FF0000;
    font-size: 32px;
}
.style5 {font-size: 26px}

-->

</style></head>



<body bgcolor="#003399" text="#000000">

< % select case request.querystring("mode") % >

< % case "deleteconfirm" % >
< %

sql = "delete * from products_table"
sql = sql & " WHERE product_id=" & request.querystring("product_id") & " "
response.write (sql)
set rs = Conn.Execute(sql)
response.write vbcrlf

sql = "delete * from products_detail_table"
sql = sql & " WHERE product_id=" & request.querystring("product_id") & " "
response.write (sql)
set rs = Conn.Execute(sql)
response.redirect "p.asp"

% >

< % case "deletedetailconfirm" % >
< %

sql = "delete * from products_detail_table"
sql = sql & " WHERE product_id=" & request.querystring("product_id") & " AND subproduct_id="  & request.querystring("subproduct_id")
response.write (sql)
set rs = Conn.Execute(sql)
response.redirect "p.asp?product_id=" & request.querystring("product_id")

% >


< % case "deleteproduct" % >
< %
sql = "SELECT * FROM products_table p WHERE p.product_id=" & request.querystring("product_id") & " "
'response.write (sql)
set rs = Conn.Execute(sql)
% >
<form name="deleteproduct" method="POST" action="p.asp?mode=deleteconfirm&product_id=< %=request.querystring("product_id")% >">
<table bgcolor="white" border="0" width="640">
<tr>
    <td colspan="2"><h1><font face="Arial">Delete</font></h1></td>
</tr>
<tr>
    <td><font face="Arial">Product Description: </font><input name="product_description" type="text" size="50" maxsize="50" value='< %=getsqltext(rs("product_description"))% >'></td>
</tr>
<tr>
    <td><font face="Arial">Full Sheet Description: </font><input name="product_full_sheet_size" type="text" size="50" maxsize="50" value='< %=getsqltext(rs("product_full_sheet_size"))% >'></td>

</tr>
<tr>
    <td><font face="Arial">Sort Order: </font><input name="sort_order" type="text" size="5" maxsize="50" value="< %=rs("sort_order")% >"></td>
    <td><input type="Submit" value="Delete? Are you sure?"></td>
</tr>
<tr>
    <td>&nbsp;</td>
</tr>
</table>
</form>

< % case "edit" % >
< %
sql = "SELECT * FROM products_table p WHERE p.product_id=" & request.querystring("product_id") & " "
'response.write (sql)
set rs = Conn.Execute(sql)
% >
<form name="edit" method="POST" action="p.asp?mode=updatedescription&product_id=< %=request.querystring("product_id")% >">
<table bgcolor="white" border="0" width="640">
<tr>
    <td colspan="2"><h1><font face="Arial">Edit</font></h1></td>
</tr>
<tr>
    <td><font face="Arial">Product Description: </font><input name="product_description" type="text" size="50" maxsize="50" value='< %=getsqltext(rs("product_description"))% >'></td>
</tr>
<tr>
    <td><font face="Arial">Full Sheet Description: </font><input name="product_full_sheet_size" type="text" size="50" maxsize="50" value='< %=getsqltext(rs("product_full_sheet_size"))% >'></td>

</tr>
<tr>
    <td><font face="Arial">Sort Order: </font><input name="sort_order" type="text" size="5" maxsize="50" value="< %=rs("sort_order")% >"></td>
</tr>
<tr>
    <td><font face="Arial">Visible? </font><select name="active_status">
            <option value="< %=rs("active_status")% >" selected>< %=rs("active_status")% ></option>
        <option value="True">True</option>
        <option value="False">False</option>
    </td>
    <td><input type="Submit" value="Update"></td>
</tr>
<tr>
    <td>&nbsp;</td>
</tr>
</table>
</form>


< % case "editdetail" % >
< %
sql = "SELECT * FROM products_detail_table p WHERE p.product_id=" & request.querystring("product_id") & " AND subproduct_id =" & request.querystring("subproduct_id")
'response.write (sql)
set rs = Conn.Execute(sql)
% >
<form name="edit" method="POST" action="p.asp?mode=updateproductsdetail&product_id=< %=request.querystring("product_id")% >&subproduct_id=< %=request.querystring("subproduct_id")% >">
<table bgcolor="white" border="0" width="640">
<tr>
    <td colspan="2"><h1><font face="Arial">Edit Sub Product Detail</font></h1></td>
</tr>
<tr>
    <td><font face="Arial">Sub Product Description: </font><input name="subproduct_description" type="text" size="50" maxsize="50" value='< %=getsqltext(rs("subproduct_description"))% >'></td>
</tr>
<tr>
    <td><font face="Arial">Cut to Size $: </font><input name="cut_to_size" type="text" size="50" maxsize="50" value='< %=getsqltext(rs("cut_to_size"))% >'></td>
</tr>
<tr>
    <td><font face="Arial">Full Sheet $: </font><input name="full_sheet" type="text" size="50" maxsize="50" value='< %=getsqltext(rs("full_sheet"))% >'></td>
</tr>
<tr>
    <td><font face="Arial">Sort Order: </font><input name="sort_order" type="text" size="5" maxsize="50" value="< %=rs("sort_order")% >"></td>
</tr>
<tr>
    <td><font face="Arial">Visible? </font><select name="active_status">
            <option value="< %=rs("active_status")% >" selected>< %=rs("active_status")% ></option>
        <option value="True">True</option>
        <option value="False">False</option>
    </td>
    <td><input type="Submit" value="Update"></td>
</tr>
<tr>
    <td>&nbsp;</td>
</tr>
</table>
</form>


< % case "deletedetail" % >
< %
sql = "SELECT * FROM products_detail_table p WHERE p.product_id=" & request.querystring("product_id") & " AND subproduct_id =" & request.querystring("subproduct_id")
'response.write (sql)
set rs = Conn.Execute(sql)
% >
<form name="deletedetail" method="POST" action="p.asp?mode=deletedetailconfirm&product_id=< %=request.querystring("product_id")% >&subproduct_id=< %=request.querystring("subproduct_id")% >">
<table bgcolor="white" border="0" width="640">
<tr>
    <td colspan="2"><h1><font face="Arial">Delete Sub Product Detail</font></h1></td>
</tr>
<tr>
    <td><font face="Arial">Sub Product Description: </font><input name="subproduct_description" type="text" size="50" maxsize="50" value='< %=getsqltext(rs("subproduct_description"))% >'></td>
</tr>
<tr>
    <td><font face="Arial">Cut to Size $: </font><input name="cut_to_size" type="text" size="50" maxsize="50" value='< %=getsqltext(rs("cut_to_size"))% >'></td>
</tr>
<tr>
    <td><font face="Arial">Full Sheet $: </font><input name="full_sheet" type="text" size="50" maxsize="50" value='< %=getsqltext(rs("full_sheet"))% >'></td>
</tr>
<tr>
    <td><font face="Arial">Sort Order: </font><input name="sort_order" type="text" size="5" maxsize="50" value="< %=rs("sort_order")% >"></td>
</tr>
<tr>
    <td><font face="Arial">Visible? </font><select name="active_status">
            <option value="< %=rs("active_status")% >" selected>< %=rs("active_status")% ></option>
        <option value="True">True</option>
        <option value="False">False</option>
    </td>
    <td><input type="Submit" value="Delete? Are you sure?"></td>
</tr>
<tr>
    <td>&nbsp;</td>
</tr>
</table>
</form>


< % case "addsubproduct" % >
<form name="addsubproduct" method="POST" action="p.asp?mode=addproductsdetailconfirm&product_id=< %=request.querystring("product_id")% >">
<table bgcolor="white" border="0" width="640">
<tr>
    <td colspan="2"><h1><font face="Arial">Add Sub Product </font></h1></td>
</tr>
<tr>
    <td><font face="Arial">Sub Product Description: </font><input name="subproduct_description" type="text" size="50" maxsize="50" value=''></td>
</tr>
<tr>
    <td><font face="Arial">Cut to Size $: </font><input name="cut_to_size" type="text" size="50" maxsize="50" value='0.00'></td>
</tr>
<tr>
    <td><font face="Arial">Full Sheet $: </font><input name="full_sheet" type="text" size="50" maxsize="50" value='0.00'></td>
</tr>
<tr>
    <td><font face="Arial">Sort Order: </font><input name="sort_order" type="text" size="5" maxsize="50" value=""></td>
</tr>
<tr>
    <td><font face="Arial">Visible? </font><select name="active_status">
        <option value="True" selected>True</option>
        <option value="False">False</option>
    </td>
    <td><input type="Submit" value="Submit"></td>
</tr>
<tr>
    <td>&nbsp;</td>
</tr>
</table>
</form>



< % case "updateproductsdetail" % >
< %

sql = "update products_detail_table"
sql = sql & " set subproduct_description = '" & getsqltext(trim(request.form("subproduct_description"))) & "', "
sql = sql & " full_sheet = " & getsqltext(trim(request.form("full_sheet"))) & ", "
sql = sql & " cut_to_size = " & getsqltext(trim(request.form("cut_to_size"))) & ", "
sql = sql & " sort_order = " & getsqltext(trim(request.form("sort_order"))) & ", "
sql = sql & " active_status = " & getsqltext(trim(request.form("active_status"))) & " "
sql = sql & " WHERE product_id=" & request.querystring("product_id") & " and subproduct_id=" & request.querystring("subproduct_id")
response.write (sql)
set rs = Conn.Execute(sql)
response.redirect "p.asp?product_id=" & request.querystring("product_id")

% >

< % case "addproductsdetailconfirm" % >
< %

sql = "INSERT INTO products_detail_table "
sql = sql & " (product_id, subproduct_description, cut_to_size, full_sheet, sort_order, active_status ) "
sql = sql & " select "
sql = sql & request.querystring("product_id") & ", "
sql = sql & " '" & getsqltext(trim(request.form("subproduct_description"))) & "', "
sql = sql & " " & getsqltext(trim(request.form("cut_to_size"))) & ", "
sql = sql & " " & getsqltext(trim(request.form("full_sheet"))) & ", "
sql = sql & " " & getsqltext(trim(request.form("sort_order"))) & ", "
sql = sql & " " & getsqltext(trim(request.form("active_status"))) & " "

response.write (sql)
set rs = Conn.Execute(sql)
response.redirect "p.asp?product_id=" & request.querystring("product_id")

% >
< % case "addproductconfirm" % >
< %

sql = "INSERT INTO products_table "
sql = sql & " (product_description, product_full_sheet_size, sort_order, active_status ) "
sql = sql & " select "
sql = sql & " '" & getsqltext(trim(request.form("product_description"))) & "', "
sql = sql & " '" & getsqltext(trim(request.form("product_full_sheet_size"))) & "', "
sql = sql & " " & getsqltext(trim(request.form("sort_order"))) & ", "
sql = sql & " " & getsqltext(trim(request.form("active_status"))) & " "

response.write (sql) & vbCRLF
set rs = Conn.Execute(sql)

'get ID of product just inserted
sql =  " select product_id from products_table WHERE "
sql = sql & " product_description = '" & getsqltext(trim(request.form("product_description"))) & "' AND "
sql = sql & " product_full_sheet_size = '" & getsqltext(trim(request.form("product_full_sheet_size"))) & "' AND "
sql = sql & " sort_order = " & getsqltext(trim(request.form("sort_order"))) & " AND "
sql = sql & " active_status = " & getsqltext(trim(request.form("active_status"))) & " "

response.write (sql) & vbCRLF
set rs = Conn.Execute(sql)

dim new_ID
new_ID = rs("product_id")

'rem insert dummy record

sql = "INSERT INTO products_detail_table "
sql = sql & " (product_id, subproduct_description, cut_to_size, full_sheet, sort_order, active_status ) "
sql = sql & " select " & new_ID & ", "
sql = sql & " 'sample subproduct description', "
sql = sql & " 1.00, "
sql = sql & " 1.00, "
sql = sql & " 1, "
sql = sql & " " & getsqltext(trim(request.form("active_status"))) & " "
response.write (sql) & vbCRLF
set rs = Conn.Execute(sql)

response.redirect "p.asp"
% >

< % case "addproduct" % >

<form name="addproduct" method="POST" action="p.asp?mode=addproductconfirm">
<table bgcolor="white" border="0" width="640">
<tr>
    <td colspan="2"><h1><font face="Arial">Add Product</font></h1></td>
</tr>
<tr>
    <td><font face="Arial">Product Description: </font><input name="product_description" type="text" size="50" maxsize="50" value=''></td>
</tr>
<tr>
    <td><font face="Arial">Full Sheet Description: </font><input name="product_full_sheet_size" type="text" size="50" maxsize="50" value=''></td>

</tr>
<tr>
    <td><font face="Arial">Sort Order: </font><input name="sort_order" type="text" size="5" maxsize="50" value=""></td>
</tr>
<tr>
    <td><font face="Arial">Visible? </font><select name="active_status">
        <option value="True" selected>True</option>
        <option value="False">False</option>
    </td>
    <td><input type="Submit" value="Add Product"></td>
</tr>

<tr>
    <td>&nbsp;</td>
</tr>
</table>
</form>



< % case "updatedescription" % >
< %

sql = "update products_table"
sql = sql & " set product_description = '" & getsqltext(trim(request.form("product_description"))) & "', "
sql = sql & " product_full_sheet_size = '" & getsqltext(trim(request.form("product_full_sheet_size"))) & "', "
sql = sql & " sort_order = " & getsqltext(trim(request.form("sort_order"))) & ", "
sql = sql & " active_status = " & getsqltext(trim(request.form("active_status"))) & " "
sql = sql & " WHERE product_id=" & request.querystring("product_id") & " "
response.write (sql)
set rs = Conn.Execute(sql)
response.redirect "p.asp"

% >

< % case else % >

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">

  <tr>

    <td width="31%" valign="top"><div align="center">
      <p style="margin-top: 0;"><img src="http://www.bulkdrive.com/yourimages_images/your_logo_2.gif" alt="your logo alt title" width="325" height="261"></p>
                    <div align="center"><font face="Arial, Helvetica, sans-serif" style="margin-top: 0; margin-bottom: 0;" align="center"><b>DISTRIBUTOR OF SHEET, ROD &amp; TUBE</b></font>
        </div>
            <p align="center" style="margin-top: 0; margin-bottom: 0;"><font face="Times New Roman, Times, serif"><b>If we don't have what you want in stock, <br>
        we will get it for you.</b></font></p>
            <p style="margin-top: 0; margin-bottom: 0;">.</p>
        <p align="center" style="margin-top: 0;"><img src="http://www.bulkdrive.com/yourcompany_images/visa72.gif" width="72" height="46">&nbsp; <img src="http://www.bulkdrive.com/yourcompany_images/mcard72.gif" width="72" height="47"></p>
        <p align="center" class="style3" style="margin-bottom: 0;"><strong>companyname</strong></p>
        <p class="style3" style="margin-top:0;margin-bottom:0;"><strong>street address<br>
  city state zip</strong></p>
        <p class="style3" style="margin-top:0;margin-bottom:0;"><strong>Phone #</strong></p>
        <p class="style3" style="margin-top:0;"><strong>Fax #</strong></p>
        <p class="style3" style="margin-bottom: 0;">Find our store using </p>
        <p class="style3" style="margin-top: 0; margin-bottom: 0;"><a href="http://www.mapquest.com/maps/map.adp?address=yourstreetaddress&zoom=11">  &nbsp;Mapquest</a>&nbsp; <a href="http://www.yellowpages.com/maps?address=yourstreetaddress">Yellow Pages</a> </p>
    </div></td>

    <td width="69%" colspan="2" valign="top"><blockquote>
      <p style="margin-bottom: 0;">&nbsp;</p>
<table width="97%" border="1">
  <tr valign="top">
    <td width="100%"><div align="center"><span class="style4">O<span class="style5">NLINE STORE</span></span></div></td>
  </tr>
< % if request.querystring("orderplaced") = "true" then % > 
    <tr valign="top">
    <td width="100%">
    <div align="center">
        <h3><font color="red">Your order has been placed. Order # < % = request.querystring("OrderID")% ></font></h3>
        </div></td>
  </tr>
< % end if % > 
  <tr valign="top">
    <td height="264">


< %
if request.querystring("product_id") <> "" then

    if session("un") = "admin" then
    sql = " SELECT products_table.active_status, products_detail_table.active_status, * "
    sql = sql & " FROM products_table INNER JOIN products_detail_table ON products_table.product_id = products_detail_table.product_id "
    sql = sql & " WHERE ( ((products_table.product_id)=" & request.querystring("product_id") & "))  "
    sql = sql & " ORDER BY products_table.sort_order, products_detail_table.sort_order; "
    else
    sql = " SELECT products_table.active_status, products_detail_table.active_status, * "
    sql = sql & " FROM products_table INNER JOIN products_detail_table ON products_table.product_id = products_detail_table.product_id "
    sql = sql & " WHERE ( ((products_table.active_status)=Yes) AND ((products_detail_table.active_status)=Yes) AND ((products_table.product_id)=" & request.querystring("product_id") & "))  "
    sql = sql & " ORDER BY products_table.sort_order, products_detail_table.sort_order; "
    end if
   
else
    if session("un") = "admin" then
        sql = " SELECT  * FROM products_table p ORDER BY sort_order"
    else
        sql = " SELECT  * FROM products_table p WHERE p.active_status = Yes ORDER BY sort_order"
    end if
   
end if

'response.write (sql)
set rs = Conn.Execute(sql)
% >

< % if request.querystring("product_id") <> "" then % >

<h1>< % product_description = rs("product_description") % >< % response.write(product_description)% ></h1>
<table border="0" cellpadding="3" cellspacing="0" >

    <tr>
    < % if request.querystring("sheet_style") = "cut_to_size" then % >
    <form name="cut_to_size_values">
    <td rowspan="8" valign="top" bgcolor="silver">
    <center>
    <b>Cut to Size<br>Dimensions</b>
    <br><br>
    Length: (inches)<br><br><input type="text" name="length" value="0" size="5">
    <br>
    Width: (inches)<br><br><input type="text" name="width" value="0"  size="5">
    <br><br><font size='-1'>Instructions:<br> Enter length, width,<br>and then enter quantity<br>of plastic thickness<br>then click Add to Cart</font>
    </center>
    </td>
    </form>
    < % end if % >
    <td bgcolor="silver"><b><center>Thickness</center></b></td>
    <td bgcolor="silver"><b><center>
    < % if request.querystring("sheet_style") = "full_sheet" then % >
    < % sheet_description = rs("product_full_sheet_size") % >
    < % response.write (sheet_description) % >
    < % else % >
    < % sheet_description = "Custom Cut To Size<br>Sq. Ft. Price" % >
    < % response.write (sheet_description) % >
    < % end if % >
    </center></b></td>
    <td bgcolor="silver"><b><center>Order Qty</center></b></td>
    <td bgcolor="silver"><b><center>Subtotal Price</center></b></td>
    <td bgcolor="silver"><b><center>&nbsp;</center></b></td>
    </tr>
   
    < %
    Do While Not rs.EOF
    % >
    < %
    t1 = rs("subproduct_description")
    if t1 <> t2 then
    % >

<form name="subproduct< %=rs("subproduct_id")% >" method="post" action="p.asp?mode=insert&product_id=< %=request.querystring("product_id")% >&sheet_style=< % = sheet_style % >">
<input type="hidden" name="sheet_description" value='< %=sheet_description% >')
    <tr>
   
    <td><p align="center">
     <input type="hidden" name="subproduct_id" value="< %=rs("subproduct_id") % >">
     <input type="hidden" name="subproduct_description" value='< %=rs("subproduct_description")% >'>
     < %=rs("subproduct_description") % >
     </td>

     <td><p align="center">
    < % if sheet_style = "full_sheet" then % >
     <input type="hidden" name="subproduct_price" value="< %=rs("full_sheet")% >">
     <input type="hidden" name="subproduct_long_description" value='Full Sheet (4x8, 32 sqft), < %=getsqltext(rs("subproduct_description"))% >'>
    <b>< %=formatcurrency(rs("full_sheet"),2)% ></b> x (4x8, 32 sqft) x <i>Order Qty</i>
     < % else % >
     <input type="hidden" name="subproduct_price" value="< %=rs("cut_to_size")% >">
    <input type="hidden" name="subproduct_long_description" value='Cut to Size, < %=getsqltext(rs("subproduct_description"))% >'>
    <b>< %=formatcurrency(rs("cut_to_size"),2)% ></b>
    < % end if % >
     </td>

    <td>
    <p align="center">
    < % if sheet_style = "full_sheet" then % >
    <input type="text" size="3" name="subproduct_quantity" value="0" OnChange="var myval; myval = (32 * document.subproduct< %=rs("subproduct_id")% >.subproduct_price.value) * document.subproduct< %=rs("subproduct_id")% >.subproduct_quantity.value; myval = Math.round(myval * 100) / 100; document.subproduct< %=rs("subproduct_id")% >.subproduct_extendedprice.value = '$' + myval.toFixed(2) ;">
    < % end if % >
    < % if sheet_style = "cut_to_size" then % >
    <input type="hidden" name="cut_to_size_length" size="3" value="0"><input type="hidden" name="cut_to_size_width" size="3" value="0">
    <input type="text" size="3" name="subproduct_quantity" value="0" OnChange="document.subproduct< %=rs("subproduct_id")% >.cut_to_size_length.value=document.cut_to_size_values.length.value;document.subproduct< %=rs("subproduct_id")% >.cut_to_size_width.value=document.cut_to_size_values.width.value;var myval; myval = (((document.cut_to_size_values.length.value * document.cut_to_size_values.width.value) / 144 )* document.subproduct< %=rs("subproduct_id")% >.subproduct_price.value) * document.subproduct< %=rs("subproduct_id")% >.subproduct_quantity.value; myval = Math.round(myval * 100) / 100; document.subproduct< %=rs("subproduct_id")% >.subproduct_extendedprice.value = '$' + myval.toFixed(2) ;">
    < % end if % >
    </td>
    <td>
    <p align="center">
    <input type="text" size="5" name="subproduct_extendedprice" value="0">
    </td>
    <td>
    <input type="Submit" name="Add" value="Add to Cart">
< % if session("un") = "admin" then % >
    &nbsp;
    <a alt="Edit" title="Edit" href="p.asp?mode=editdetail&product_id=< %=request.querystring("product_id")% >&subproduct_id=< %=rs("subproduct_id")% >"><font face="Arial" color="red"  size="-1">Edit</font></a>&nbsp;
    <a alt="Delete" title="Delete" href="p.asp?mode=deletedetail&product_id=< %=request.querystring("product_id")% >&subproduct_id=< %=rs("subproduct_id")% >"><font face="Arial" color="red"  size="-1">Delete</font></a>
< % end if % >
   
    </td>

      </tr>    
</form>

    < % end if % >

    </tr>
    < %
    t2 = t1
    rs.MoveNext
    Loop
    % >

<tr>
<td colspan="8">
< % if sheet_style = "cut_to_size" then % >
<i>Cut to Size Special Instructions and Note: If you have a cut to size special shape other than a rectangle or square, please call our office to request a quote.</i><br><br>
< % end if % >
< % if session("un") = "admin" then % >
    <br><center><a alt="Add Subproduct" title="Add Subproduct" href="p.asp?mode=addsubproduct&product_id=< %=request.querystring("product_id")% >"><font face="Arial" color="red" size="-1">Add Sub Product</font></a></center>
< % end if % ><br>
<i>Instructions: change the quantity field and then press your keyboard TAB key to update the Subtotal Price, and then click Add to Cart.</i>
</td>
</tr>


</table>

< % else % >
<br>
<ul>
<form name="products" method="post">
    <h2>Plastic Products</h2>
    < %
    Do While Not rs.EOF
    % >
    < %
    t1 = rs("product_description")
    if t1 <> t2 then
    % >
    <li><a href="p.asp?product_id=< %=rs("product_id")% >&sheet_style=< % =sheet_style % >">< %=rs("product_description")% ></a>
    < % if session("un") = "admin" then % >
    - <a href="p.asp?mode=edit&product_id=< %=rs("product_id")% >&sheet_style=< % =sheet_style % >"><font color="red" face="Arial" size="-1">Edit</font></a>&nbsp;
    - <a href="p.asp?mode=deleteproduct&product_id=< %=rs("product_id")% >&sheet_style=< % =sheet_style % >"><font color="red" face="Arial" size="-1">Delete</font></a>
    - <font face="Arial" size="-1" color="red">Visible (Active)?: < %=rs("active_status")% ></font>
    < % end if % >
     <br>
    < %
    end if
    % >
    < %
    t2 = t1
    rs.MoveNext
    Loop
    % >

</form>
</ul>

< % end if % >

</td>
  </tr>
< % if session("un") = "admin" and request.querystring("product_id") = "" then % >
    <tr>
    <td>
    <center><a alt="Add Subproduct" title="Add Subproduct" href="p.asp?mode=addproduct"><font color="red" face="Arial" size="-1">Add New Product</font></a></center>
    </td>
    </tr>
< % end if % >
 
 
</table>

< %
select case request.querystring("mode")

case "insert"

    sql = "insert into shoppingcart_table "
    sql = sql & " (session_id, product_id, subproduct_id, product_description, price_per_sq_foot, qty, extended_price, date_inserted) "
    if request.querystring("sheet_style") = "cut_to_size" then
        sql = sql & " values (" & Session.SessionID & ", " & request.querystring("product_id") & ", " & request.form("subproduct_id") & ", '" & product_description & ", " & request.form("full_sheet_description") & ", " & "Length:" & request.form("cut_to_size_length") & " Width:" & request.form("cut_to_size_width") & " " & getsqltext(request.form("subproduct_long_description")) & "', " & request.form("subproduct_price")  & ", " & request.form("subproduct_quantity") & ", '" & request.form("subproduct_extendedprice") & "', '" & now() & "') "
    else
        sql = sql & " values (" & Session.SessionID & ", " & request.querystring("product_id") & ", " & request.form("subproduct_id") & ", '" & product_description & ", " & request.form("full_sheet_description") & " " & getsqltext(request.form("subproduct_long_description")) & "', " & request.form("subproduct_price")  & ", " & request.form("subproduct_quantity") & ", '" & request.form("subproduct_extendedprice") & "', '" & now() & "') "
    end if
    'response.write (sql)
    set rs = Conn.Execute(sql)

case "delete"

    sql = "delete from shoppingcart_table "
    sql = sql & " where row_id =  " & request.querystring("row_id") & " AND session_id = " & Session.SessionID
    'response.write (sql)
    set rs = Conn.Execute(sql)

case "update"

case else

end select

% >

< % rem SID: response.write (Session.SessionID) % >
< %
sql = " SELECT * from shoppingcart_table where session_id = " & Session.SessionID
'response.write (sql)
set rs1 = Conn.Execute(sql)
if not rs1.EOF then
    response.write ("<p><p>")
    response.write ("<table border='0' cellpadding='0'>")
    response.write ("<tr><td rowspan='10'><img src='http://www.yourFQDN.com/images/shopping_cart_thumb.jpg'></td></tr>")
    response.write ("<tr><td bgcolor='Silver' colspan='8'><b>Your Shopping Cart</b></td></tr>")
    response.write ("<tr><td bgcolor='Silver'><b>Product</b></td><td bgcolor='Silver'><b>Price / Sq. Ft.</b></td><td bgcolor='Silver'><b>Order Quantity</b></td><td bgcolor='Silver'><b>Extended Price</b></td><td bgcolor='Silver'>&nbsp;</td></tr>")
    Do While Not rs1.EOF
    response.write ("<tr>")
    'response.write ("<td>" & rs1("row_id") & "-" & rs1("session_id") & " </td><td> " & rs1("product_id") & " </td><td> " & rs1("subproduct_id") & " </td> " )
    response.write ("<td> " & rs1("product_description") & " </td><td><p align='center'>" & formatcurrency(rs1("price_per_sq_foot"),2) & "</td><td><p align=center>" & rs1("qty") & " </td><td><p align=right>" & formatcurrency(rs1("extended_price"),2) & " </td> " )
    response.write ("<td> " & "<input type='button' name='Remove' value='Remove' OnClick=" & chr(34) & "window.open('p.asp?product_id=" & request.querystring("product_id") & "&mode=delete&row_id=" & rs1("row_id") & "', '_parent')" & chr(34) & "</td>"  )
    shoppingcart_total = shoppingcart_total + CCur(rs1("extended_price"))
    response.write ("</tr>")
    rs1.MoveNext
    Loop
    response.write ("<tr><td bgcolor='Silver' colspan='8'><p align='center'><b>Shopping Cart Total = " & formatcurrency(shoppingcart_total, 2) & "</b></td></tr>")
    response.write ("</table>")
else
    response.write ("<p>Your Shopping Cart is empty" & " - Note: Terms and Conditions apply.<hr>")
    shoppingcart_total = 0
end if

% >
<div align='center'>
<form name="test">
<input type=button name="homepage" value="Home page" OnClick="window.open('http://www.yourFQDN.com', '_parent')">
<input type=button name="productshomepage" value="Products Home page" OnClick="window.open('http://www.yourFQDN.com/p.asp', '_parent')">
< % select case sheet_style
case "full_sheet"
    response.write ("<input type='button' name='fullvscustombutton' value='Switch to Custom Size Pricing' OnClick=" & chr(34) & "window.open('p.asp?sheet_style=cut_to_size&product_id=" & request.querystring("product_id") & "', '_parent') " & chr(34) & "></form>" )
case "cut_to_size"
    response.write ("<input type='button' name='fullvscustombutton' value='Switch to Full Sheet Pricing' OnClick=" & chr(34) & "window.open('p.asp?sheet_style=full_sheet&product_id=" & request.querystring("product_id") & "', '_parent') " & chr(34) & "></form>" )
case else
    response.write ("<input type='button' name='fullvscustombutton' value='Switch to Custom Size Pricing' OnClick=" & chr(34) & "window.open('p.asp?sheet_style=cut_to_size&product_id=" & request.querystring("product_id") & "', '_parent') " & chr(34) & "></form>" )
end select
% >
< % if shoppingcart_total > 0 then % >
<input type=button name="CheckOut" value="Check Out" OnClick="window.open('http://www.yourFQDN.com/shoppingcart.asp?SessionID=< %=Session.SessionID% >', '_parent')">
< % end if % >
</form>
</center>
<table width="93%" border="0" align="left" cellpadding="10" cellspacing="0">
< % rem <!--#include virtual="yourcompany_navigation_menu.asp"--> % >
</table>
</blockquote>

    </td>

  </tr>

  <tr>

    <td colspan="3" valign="top"><blockquote style="margin-top: 0; margin-bottom: 0;">
      <p align="center" class="style2">Copyright (c) < %=year(date())% > your company or trade name. All rights reserved. <a href="yoursecretloginpage.asp">*</a>
      <br><a href="TermsandConditions.asp">Terms and Conditions</a>
      < % if session("un") = "admin" then % >
      <a href="adminpage.asp"><font face="Arial" size="-1" color="red">Admin Page</font></a>
      <a href="p.asp?method=leaveadminmode"><font face="Arial" size="-1" color="red">Leave Admin mode</font></a>
      < % end if % >
      </p>
      <p align="center" class="style2" style="margin-bottom: 0;">&nbsp;</p>
    </blockquote>       
    
    </td>
  </tr>

</table>

<div align="center"><br>

  &nbsp;

  <!--msnavigation-->

  <font color="#6699CC"></font></div>

< % end select % >

</body>
</html>


--- sqltext.asp ----

<SCRIPT LANGUAGE=VBScript RunAt=Server>
  REM This will get included by anyone who needs this functionality.
  REM That way we don't duplicate all over the place.

  REM Returns SQL number value. 0 if string is empty.
  Function GetFKValue(sText)
    Dim sSQLText

    if sText = "" or sText = " " then
      sSQLText = "NULL"
    else
      sSQLText =  sText
    end if

    GetFKValue = sSQLText
  End Function

  REM Function to double quote all single quotes found in a text field
  Function GetSQLText(sText)
    Dim bEnd
    Dim i
    Dim iLast
    Dim sSQLText

    bEnd = FALSE
    i = 1
    iLast = 1
    While Not bEnd
      i = InStr(iLast,sText,"'")
      if i > 0 then
        sSqlText = sSQLText & Mid(sText,iLast,i-iLast) & "''"
        iLast = i+1
      else
        sSqlText = sSQLText & Mid(sText,iLast)
        bEnd = TRUE   
      end if
    Wend
    GetSQLText = sSQLText
  End Function

  REM Returns SQL single quoted string. NULL if string is empty.
  Function GetSQLTextValue(sText)
    Dim sSQLText

    if sText = "" or sText = " " then
      sSQLText = "NULL"
    else
      sSQLText =  "'" & GetSQLText(sText) & "'"
    end if

    GetSQLTextValue = sSQLText
  End Function

  REM Returns SQL number value. 0 if string is empty.
  Function GetSQLNumberValue(sText)
    Dim sSQLText

    if sText = "" or sText = " " then
      sSQLText = "0"
    else
      sSQLText =  sText
    end if

    GetSQLNumberValue = sSQLText
  End Function
</SCRIPT>

-- sqldsn.asp ---

< %
response.buffer = true

Dim Conn
Dim connstr
Dim oConnection

Dim sql
Dim rs

Dim sql1
Dim rs1

Dim sql2
Dim rs2

Dim sql3
Dim rs3

Dim sql4
Dim rs4

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = 3
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/datafold/datafile.mdb") & ";"


const MIN_VALUE_INT = -2147483648

% >
 
shoppingcart_table
 
 
 
 products_table
 
 
 
products_detail_table
 
 
more to come...
 
 
 
 
 
 

if you found this article helpful, consider contributing $10, 20 or so..to the author. more authors coming soon
FYI we use paypal or patreon, patreon has 3x the transaction fees, so we don't, not yet.

© 2019 myBlog™ v1.1 All rights reserved. We count views as reads, so let's not over think it.