<%@LANGUAGE="VBSCRIPT"%> <% UC_CartColNames=Array("ProductID","Quantity","Price","Total") UC_ComputedCols=Array("","","","Price") set UCCart1=VBConstuctCart("canticle",1,UC_CartColNames,UC_ComputedCols) UCCart1__i=0 %><% ' *** Add item to UC Shopping cart UC_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then UC_editAction = UC_editAction & "?" & Request.QueryString End If UC_recordId = CStr(Request.Form("UC_recordId")) If (Request.Form("UC_recordId").Count = 1) Then set UC_rs=Nothing UC_uniqueCol="" UC_redirectPage = "cart.asp" If (NOT (UC_rs is Nothing)) Then ' Position recordset to correct location If (UC_rs.Fields.Item(UC_uniqueCol).Value <> UC_recordId) Then ' reset the cursor to the beginning If (UC_rs.CursorType > 0) Then If (Not UC_rs.BOF) Then UC_rs.MoveFirst Else UC_rs.Close UC_rs.Open End If Do While (Not UC_rs.EOF) If (Cstr(UC_rs.Fields.Item(UC_uniqueCol).Value) = UC_recordId) Then Exit Do End If UC_rs.MoveNext Loop End If End If UC_BindingTypes=Array("LITERAL","LITERAL","NONE","NONE") UC_BindingValues=Array("Pink Rose, M34, 142L, 142LF, 143, 142W, 142WF","1","","") UCCart1.AddItem UC_rs,UC_BindingTypes,UC_BindingValues,"increment" ' redirect with URL parameters If (UC_redirectPage <> "") Then If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then UC_redirectPage = UC_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(UC_redirectPage) End If End If %><% ' *** Add item to UC Shopping cart UC_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then UC_editAction = UC_editAction & "?" & Request.QueryString End If UC_recordId2 = CStr(Request.Form("UC_recordId2")) If (Request.Form("UC_recordId2").Count = 1) Then set UC_rs=Nothing UC_uniqueCol="" UC_redirectPage = "cart.asp" If (NOT (UC_rs is Nothing)) Then ' Position recordset to correct location If (UC_rs.Fields.Item(UC_uniqueCol).Value <> UC_recordId2) Then ' reset the cursor to the beginning If (UC_rs.CursorType > 0) Then If (Not UC_rs.BOF) Then UC_rs.MoveFirst Else UC_rs.Close UC_rs.Open End If Do While (Not UC_rs.EOF) If (Cstr(UC_rs.Fields.Item(UC_uniqueCol).Value) = UC_recordId2) Then Exit Do End If UC_rs.MoveNext Loop End If End If UC_BindingTypes=Array("LITERAL","LITERAL","NONE","NONE") UC_BindingValues=Array("Yellow Rose, DM611, D616, D615W","1","","") UCCart1.AddItem UC_rs,UC_BindingTypes,UC_BindingValues,"increment" ' redirect with URL parameters If (UC_redirectPage <> "") Then If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then UC_redirectPage = UC_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(UC_redirectPage) End If End If %><% ' *** Add item to UC Shopping cart UC_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then UC_editAction = UC_editAction & "?" & Request.QueryString End If UC_recordId3 = CStr(Request.Form("UC_recordId3")) If (Request.Form("UC_recordId3").Count = 1) Then set UC_rs=Nothing UC_uniqueCol="" UC_redirectPage = "cart.asp" If (NOT (UC_rs is Nothing)) Then ' Position recordset to correct location If (UC_rs.Fields.Item(UC_uniqueCol).Value <> UC_recordId3) Then ' reset the cursor to the beginning If (UC_rs.CursorType > 0) Then If (Not UC_rs.BOF) Then UC_rs.MoveFirst Else UC_rs.Close UC_rs.Open End If Do While (Not UC_rs.EOF) If (Cstr(UC_rs.Fields.Item(UC_uniqueCol).Value) = UC_recordId3) Then Exit Do End If UC_rs.MoveNext Loop End If End If UC_BindingTypes=Array("LITERAL","LITERAL","NONE","NONE") UC_BindingValues=Array("White Rose, DM601, D606, D605W","1","","") UCCart1.AddItem UC_rs,UC_BindingTypes,UC_BindingValues,"increment" ' redirect with URL parameters If (UC_redirectPage <> "") Then If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then UC_redirectPage = UC_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(UC_redirectPage) End If End If %><% ' *** Add item to UC Shopping cart UC_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then UC_editAction = UC_editAction & "?" & Request.QueryString End If UC_recordId4 = CStr(Request.Form("UC_recordId4")) If (Request.Form("UC_recordId4").Count = 1) Then set UC_rs=Nothing UC_uniqueCol="" UC_redirectPage = "cart.asp" If (NOT (UC_rs is Nothing)) Then ' Position recordset to correct location If (UC_rs.Fields.Item(UC_uniqueCol).Value <> UC_recordId4) Then ' reset the cursor to the beginning If (UC_rs.CursorType > 0) Then If (Not UC_rs.BOF) Then UC_rs.MoveFirst Else UC_rs.Close UC_rs.Open End If Do While (Not UC_rs.EOF) If (Cstr(UC_rs.Fields.Item(UC_uniqueCol).Value) = UC_recordId4) Then Exit Do End If UC_rs.MoveNext Loop End If End If UC_BindingTypes=Array("LITERAL","LITERAL","NONE","NONE") UC_BindingValues=Array("Red Rose, MREDR, 843, 824W, 842L","1","","") UCCart1.AddItem UC_rs,UC_BindingTypes,UC_BindingValues,"increment" ' redirect with URL parameters If (UC_redirectPage <> "") Then If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then UC_redirectPage = UC_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(UC_redirectPage) End If End If %><% ' *** Add item to UC Shopping cart UC_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then UC_editAction = UC_editAction & "?" & Request.QueryString End If UC_recordId5 = CStr(Request.Form("UC_recordId5")) If (Request.Form("UC_recordId5").Count = 1) Then set UC_rs=Nothing UC_uniqueCol="" UC_redirectPage = "cart.asp" If (NOT (UC_rs is Nothing)) Then ' Position recordset to correct location If (UC_rs.Fields.Item(UC_uniqueCol).Value <> UC_recordId5) Then ' reset the cursor to the beginning If (UC_rs.CursorType > 0) Then If (Not UC_rs.BOF) Then UC_rs.MoveFirst Else UC_rs.Close UC_rs.Open End If Do While (Not UC_rs.EOF) If (Cstr(UC_rs.Fields.Item(UC_uniqueCol).Value) = UC_recordId5) Then Exit Do End If UC_rs.MoveNext Loop End If End If UC_BindingTypes=Array("LITERAL","LITERAL","NONE","NONE") UC_BindingValues=Array("Lily, M40R, 4023, 4022W, 4022L","1","","") UCCart1.AddItem UC_rs,UC_BindingTypes,UC_BindingValues,"increment" ' redirect with URL parameters If (UC_redirectPage <> "") Then If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then UC_redirectPage = UC_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(UC_redirectPage) End If End If %><% ' *** Add item to UC Shopping cart UC_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then UC_editAction = UC_editAction & "?" & Request.QueryString End If UC_recordId6 = CStr(Request.Form("UC_recordId6")) If (Request.Form("UC_recordId6").Count = 1) Then set UC_rs=Nothing UC_uniqueCol="" UC_redirectPage = "cart.asp" If (NOT (UC_rs is Nothing)) Then ' Position recordset to correct location If (UC_rs.Fields.Item(UC_uniqueCol).Value <> UC_recordId6) Then ' reset the cursor to the beginning If (UC_rs.CursorType > 0) Then If (Not UC_rs.BOF) Then UC_rs.MoveFirst Else UC_rs.Close UC_rs.Open End If Do While (Not UC_rs.EOF) If (Cstr(UC_rs.Fields.Item(UC_uniqueCol).Value) = UC_recordId6) Then Exit Do End If UC_rs.MoveNext Loop End If End If UC_BindingTypes=Array("LITERAL","LITERAL","NONE","NONE") UC_BindingValues=Array("Dove, M3WD, 303, 302W, 302WF","1","","") UCCart1.AddItem UC_rs,UC_BindingTypes,UC_BindingValues,"increment" ' redirect with URL parameters If (UC_redirectPage <> "") Then If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then UC_redirectPage = UC_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(UC_redirectPage) End If End If %><% ' *** Add item to UC Shopping cart UC_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then UC_editAction = UC_editAction & "?" & Request.QueryString End If UC_recordId7 = CStr(Request.Form("UC_recordId7")) If (Request.Form("UC_recordId7").Count = 1) Then set UC_rs=Nothing UC_uniqueCol="" UC_redirectPage = "cart.asp" If (NOT (UC_rs is Nothing)) Then ' Position recordset to correct location If (UC_rs.Fields.Item(UC_uniqueCol).Value <> UC_recordId7) Then ' reset the cursor to the beginning If (UC_rs.CursorType > 0) Then If (Not UC_rs.BOF) Then UC_rs.MoveFirst Else UC_rs.Close UC_rs.Open End If Do While (Not UC_rs.EOF) If (Cstr(UC_rs.Fields.Item(UC_uniqueCol).Value) = UC_recordId7) Then Exit Do End If UC_rs.MoveNext Loop End If End If UC_BindingTypes=Array("LITERAL","LITERAL","NONE","NONE") UC_BindingValues=Array("White Dove, MCM2, CM12","1","","") UCCart1.AddItem UC_rs,UC_BindingTypes,UC_BindingValues,"increment" ' redirect with URL parameters If (UC_redirectPage <> "") Then If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then UC_redirectPage = UC_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(UC_redirectPage) End If End If %> Canticle Creations Wedding Favours and Invitations
HOME CATALOGUE PROGRAM FEATURED ITEMS TEMPLATES REQUEST FORM

Featured Products

View our selection of "New" stationery items and products or our "Promotions and Clearance" section below. The new products are will be listed in our catalogue. You can be linked by selecting an image and browse through the catalogue categories.

NEW
   
Program Folder- Page 25 Moments 2 Cherish Memento - Page 5 Urns - Page 6
 
Combo's- Page 7 Faded Birch - Page 15 Precious - Page 19 Early Departure - Page 16
   
Deer Fields - Page 20 Glory - Page 14 Quilt - Page 20 Angel - Page 18
   
Celebrate - Page 20 Blue Sincerity - Page 19 Mossy Stream - Page 17 Buffalo Plains - Page 20
     
Pathway - Page 13 Purple Pansy - Page 11 Sea Breeze - Page 4 Emerging Sun- Page 4
     
Rose Bouquet - Page 4 Four Seasons- Page 4 Western - Page 4 Lakeside - Page 4

 

 

 

PROMOTIONAL & CLEARANCE

List of items coming soon!

 

 

 

 

Home | Catalogue | Request Form | Program

©2005 Canticle Cards and Canticle Creations. All Rights Reserved. Design by Lisa Bryce.