Free eCard with images from our unique New York Christmas collection

New York Winter eCards

<% Dim ProdRS, ProdSQL Set ProdRS = Server.CreateObject("ADODB.Recordset") ProdSQL = "SELECT dbo._SiteWizard_MerchantWizard_Product.ProductID As ProductID, " &_ "dbo._SiteWizard_MerchantWizard_Product.Code As Code, " &_ "dbo._SiteWizard_MerchantWizard_Product.CategoryID As CategoryID, " &_ "dbo._SiteWizard_MerchantWizard_Product.SubCategoryID As SubCategoryID, " &_ "dbo._SiteWizard_MerchantWizard_Product.Name As Name, " &_ "dbo._SiteWizard_MerchantWizard_Product.Online As Online, " &_ "Product_Images.Image_Name As Image_Name, " &_ "Product_Images.Directory_Name As Directory_Name, " &_ "Product_Images.Image_sm As Image_sm, " &_ "Product_Images.Image_bg As Image_bg, " &_ "dbo._SiteWizard_MerchantWizard_Category.Name As CategoryName, " &_ "dbo._SiteWizard_MerchantWizard_SubCategory.Name As SubCategoryName " &_ "FROM dbo._SiteWizard_MerchantWizard_Product INNER JOIN dbo._SiteWizard_MerchantWizard_Category ON " &_ "dbo._SiteWizard_MerchantWizard_Product.CategoryID = dbo._SiteWizard_MerchantWizard_Category.CategoryID " &_ "INNER JOIN dbo._SiteWizard_MerchantWizard_SubCategory ON " &_ "dbo._SiteWizard_MerchantWizard_Product.SubCategoryID = dbo._SiteWizard_MerchantWizard_SubCategory.SubCategoryID " &_ "LEFT JOIN Product_Images ON " &_ "dbo._SiteWizard_MerchantWizard_Product.ProductID = Product_Images.ProductID " &_ "Where dbo._SiteWizard_MerchantWizard_Product.Online = 1 " &_ " ORDER BY dbo._SiteWizard_MerchantWizard_Category.Name, dbo._SiteWizard_MerchantWizard_Product.Name" If Err.number <> 0 Then Response.Write "ProdSQL Error " Response.Write Err.description & " " Response.Write Err.source & " " else ' Response.Write "ProdSQL No Errors " end if ProdRS.Open ProdSQL, nychristmasgiftsDB If Err.number <> 0 Then Response.Write "ProdRS Open Error " Response.Write Err.description & " " Response.Write Err.source & " " else ' Response.Write "ProdRS Open No Errors " end if if NOT ProdRS.EOF then Dim encode_url row_count=1 Do Until ProdRS.EOF encode_url = Server.URLEncode(img_path & ProdRS("Directory_Name") & "/" & ProdRS("Image_bg")) ' Response.Write(encode_url) If row_count < 4 Then %> <% row_count = row_count + 1 If not ProdRS.EOF then ProdRS.MoveNext End If Else %> <% row_count=1 End If loop ' PageRS.Close ' Set PageRS = Nothing ProdRS.Close Set ProdRS = Nothing Else %> <% End If %> ">/<%=ProdRS("Image_sm")%>" alt="New York <%=ProdRS("CategoryName")%> - <%=ProdRS("Name")%>"> Send eCard /<%=Replace(Trim(ProdRS("SubCategoryName"))," ","-")%>/<%=Replace(Trim(ProdRS("Name"))," ","-")%>-<%=Trim(ProdRS("Code"))%>.html"><%=ProdRS("Name")%> .html"><%=ProdRS("CategoryName")%> Coming Soon