<%@ language="VBScript"%>
<%Option Explicit%>
Cutler Forest Products Inc.
<%
dim strSectionID
dim strSectionName
dim strProductCode
dim strProductDescription
dim strThick
dim strSize
dim strGrade
dim strPerUnit
dim strQtyAvail
dim strPRCMSQ
dim strPRCPC
dim strConnection
dim strSQL
dim connData
dim cmdData
dim rsData1
dim rsData2
Set connData = Server.CreateObject("ADODB.Connection")
Set cmdData = Server.CreateObject("ADODB.Command")
Set rsData1 = Server.CreateObject("ADODB.Recordset")
Set rsData2 = Server.CreateObject("ADODB.Recordset")
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("database/cutler.mdb")
with connData
.ConnectionString = strConnection
.Open
end with
%>
Check in often to take advantage of the latest online specials.
Please contact our Order Desk for further information.
The current specials are as follows:
Description
Code
Thick'
Size
Grade
Per
Unit
Qty.
Avail
PRC/MSQ”
PRC/PC.
<%
strSQL = "SELECT section_id, section_name FROM special_section ORDER BY section_name"
With cmdData
.ActiveConnection = connData
.CommandText = strSQL
End With
Set rsData1 = cmdData.Execute
%>
<%
Do While not rsData1.EOF
strSectionID = trim(rsData1.fields(0).value)
strSectionName = trim(rsData1.fields(1).value)
%>
<%=strSectionName%>
<%
strSQL = "SELECT product_code,product_description, thick, [size], grade, per_unit, qty_avail, prc_msq, prc_pc FROM special_product WHERE section_id =" & strSectionID & " ORDER BY product_description"
'response.Write(strSQL)
With cmdData
.ActiveConnection = connData
.CommandText = strSQL
End With
Set rsData2 = cmdData.Execute
%>
<%
If not rsData2.eof then
%>
Prices quoted are for bundle quantities only. Special pricing expires when quantities sold equals quantities available. Usual terms and conditions apply.
