<%@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 %> BEGINNINGS For Parents of Children Who Are Deaf or Hard of Hearing
 
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:

All Canadian orders must be paid in U.S. currency and include Canadian shipping and handling charges. Canadian credit card orders will be charged current rate of exchange.

Foreign Orders:

Payment for orders from outside the United States must be prepaid in U.S. currency only and include foreign shipping and handling charges. BEGINNINGS can confirm shipping but cannot guarantee delivery.  Please contact BEGINNINGS at 919-850-2724 ext. 10 for details.


PARENT MANUAL

<% While ((Repeat1__numRows <> 0) AND (NOT rsParent.EOF)) %>
<% if rsParent.Fields.Item("LargeImage").Value <> "" then %> ','LargeImage','scrollbars=yes,resizable=yes,width=350,height=320')"> <% end if %> <% if rsParent.Fields.Item("SmallImage").Value <> "" then %> <% end if %> <% if rsParent.Fields.Item("LargeImage").Value <> "" then %> <% end if %>  

<%=(rsParent.Fields.Item("ProductName").Value)%>
<%=(rsParent.Fields.Item("Description").Value)%>

" checked> $<%=(rsParent.Fields.Item("ProPrice").Value)%>

Language

">

 

 

 

 

 

 

<% 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 %>
<% if rsVideos.Fields.Item("LargeImage").Value <> "" then %> ','LargeImage','scrollbars=yes,resizable=yes,width=350,height=320')"> <% end if %> <% if rsVideos.Fields.Item("SmallImage").Value <> "" then %> <% end if %> <% if rsVideos.Fields.Item("LargeImage").Value <> "" then %> <% end if %>  

<%=(rsVideos.Fields.Item("ProductName").Value)%>
<%=(rsVideos.Fields.Item("Description").Value)%>

" checked> $<%=(rsVideos.Fields.Item("ProPrice").Value)%>
Format
">

 

 

 

 

 

 

<% 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)) %>
<% if rsBrochures.Fields.Item("LargeImage").Value <> "" then %> ','LargeImage','scrollbars=yes,resizable=yes,width=350,height=320')"> <% end if %> <% if rsBrochures.Fields.Item("SmallImage").Value <> "" then %> <% end if %> <% if rsBrochures.Fields.Item("LargeImage").Value <> "" then %> <% end if %>  
<%=(rsBrochures.Fields.Item("ProductName").Value)%>
<%=(rsBrochures.Fields.Item("Description").Value)%>

$<%=(rsBrochures.Fields.Item("ProPrice").Value)%> each
Language

"> ">

 

 

 

 

 

<% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rsBrochures.MoveNext() Wend %>

 

 

 

 

  

<% rsParent.Close() Set rsParent = Nothing %> <% rsVideos.Close() Set rsVideos = Nothing %> <% rsBrochures.Close() Set rsBrochures = Nothing %>