%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsParent__MMColParam rsParent__MMColParam = "1" If (Request.QueryString("Category") <> "") Then rsParent__MMColParam = Request.QueryString("Category") End If %> <% Dim rsParent Dim rsParent_cmd Dim rsParent_numRows Set rsParent_cmd = Server.CreateObject ("ADODB.Command") rsParent_cmd.ActiveConnection = MM_connConnect_STRING rsParent_cmd.CommandText = "SELECT * FROM tblProducts WHERE Category = ""Parent Manual"" ORDER BY ProductName ASC" rsParent_cmd.Prepared = true rsParent_cmd.Parameters.Append rsParent_cmd.CreateParameter("param1", 200, 1, 150, "%" + rsParent__MMColParam + "%") ' adVarChar Set rsParent = rsParent_cmd.Execute rsParent_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsParent_numRows = rsParent_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsVideos_numRows = rsVideos_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rsBrochures_numRows = rsBrochures_numRows + Repeat3__numRows %> <% Dim rsVideos__MMColParam rsVideos__MMColParam = "1" If (Request.QueryString("Category") <> "") Then rsVideos__MMColParam = Request.QueryString("Category") End If %> <% Dim rsVideos Dim rsVideos_cmd Dim rsVideos_numRows Set rsVideos_cmd = Server.CreateObject ("ADODB.Command") rsVideos_cmd.ActiveConnection = MM_connConnect_STRING rsVideos_cmd.CommandText = "SELECT * FROM tblProducts WHERE Category = ""Videos"" ORDER BY ProductName ASC" rsVideos_cmd.Prepared = true rsVideos_cmd.Parameters.Append rsVideos_cmd.CreateParameter("param1", 200, 1, 150, "%" + rsVideos__MMColParam + "%") ' adVarChar Set rsVideos = rsVideos_cmd.Execute rsVideos_numRows = 0 %> <% Dim rsBrochures__MMColParam rsBrochures__MMColParam = "1" If (Request.QueryString("Category") <> "") Then rsBrochures__MMColParam = Request.QueryString("Category") End If %> <% Dim rsBrochures Dim rsBrochures_cmd Dim rsBrochures_numRows Set rsBrochures_cmd = Server.CreateObject ("ADODB.Command") rsBrochures_cmd.ActiveConnection = MM_connConnect_STRING rsBrochures_cmd.CommandText = "SELECT * FROM tblProducts WHERE Category = ""Brochures"" ORDER BY ProductName ASC" rsBrochures_cmd.Prepared = true rsBrochures_cmd.Parameters.Append rsBrochures_cmd.CreateParameter("param1", 200, 1, 150, "%" + rsBrochures__MMColParam + "%") ' adVarChar Set rsBrochures = rsBrochures_cmd.Execute rsBrochures_numRows = 0 %>
![]() |
|||
| |
|
|
|
| Ordering
Materials The following materials are available for purchase. You may also download the order form and mail your request. Prices & Product availability subject to change. Please allow 4 – 6 weeks for processing and shipment. All orders are sent via media mail, unless otherwise requested as USPS priority mail. For alternative shipping methods, please contact BEGINNINGS at 919-850-2724 ext. 10. Street addresses are required to ensure proper delivery for online orders - NO PO BOXES. Canadian Orders: Foreign Orders:
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsParent.MoveNext() Wend %> VIDEOS <% While ((Repeat2__numRows <> 0) AND (NOT rsVideos.EOF)) %> <% if rsVideos.Fields.Item("ProductID").Value = 358 then %>BEGINNINGS: COMMUNICATION CHOICES is no longer available - Updated DVD Coming October 2009! <% else %>
<% end if %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsVideos.MoveNext() Wend %> BEGINNINGS BROCHURES <% While ((Repeat3__numRows <> 0) AND (NOT rsBrochures.EOF)) %>
<% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rsBrochures.MoveNext() Wend %>
|
|