Test Catalog Request

<% 'The following line is used to control the page title that displays for merchant admin. 'acbtitle:Home Page; 'The following line is used for wizard identification. 'acbwizard:ac_content_01; dim sThisPage as string = Request.ServerVariables("SCRIPT_NAME") dim strConfPath as string = Replace(Request.ServerVariables("PATH_TRANSLATED"),".aspx",".wzc") if Len(Request.QueryString("PreviewWizard")) > 0 then if System.IO.File.Exists(strConfPath & "t") then strConfPath = strConfPath & "t" end if end if dim objConf as cbXMLData = new cbXMLData() objConf.Load(strConfPath) dim strThemePage as String 'get first available theme in order of precendence 'first check page property strThemePage = objConf.GetElementValue("THEME") if Len(strThemePage) = 0 then 'next check store property strThemePage = objStore.Theme end if dim objTheme as cbXMLData = new cbXMLData() objTheme.Load(System.IO.Path.Combine(objToken.Store.PhysicalDir, strThemePage)) Dim strCSSPage as string strCSSPage = objConf.GetElementValue("CSS") if len(strCSSPage) = 0 then strCSSPage = objTheme.GetElementValue("CSS") end if if len(strCSSPage) > 0 then response.write("" & vbcrlf) end if Dim lstHeadFoot as String = objConf.GetElementValue("HEADFOOT") Dim strFirstName as String Dim strLastName as String Dim strCompany as String Dim strAddress as String Dim strCity as String Dim strState as String Dim strZipCode as String Dim strBillCountry as String Dim strEmail as String Dim strSendMeLetter as String if Len(Request.QueryString("firstname")) > 0 then strFirstName = Request.QueryString("firstname") elseif Len(Request.Form("firstname")) > 0 then strFirstName = Request.Form("firstname") end if 'get the product id if Len(Request.QueryString("lastname")) > 0 then strLastName = Request.QueryString("lastname") elseif Len(Request.Form("lastname")) > 0 then strLastName = Request.Form("lastname") end if if Len(Request.QueryString("company")) > 0 then strCompany = Request.QueryString("company") elseif Len(Request.Form("company")) > 0 then strCompany = Request.Form("company") end if if Len(Request.QueryString("address")) > 0 then strAddress = Request.QueryString("address") elseif Len(Request.Form("address")) > 0 then strAddress = Request.Form("address") end if if Len(Request.QueryString("city")) > 0 then strCity = Request.QueryString("city") elseif Len(Request.Form("city")) > 0 then strCity = Request.Form("city") end if if Len(Request.QueryString("state")) > 0 then strState = Request.QueryString("state") elseif Len(Request.Form("state")) > 0 then strState = Request.Form("state") end if if Len(Request.QueryString("zipcode")) > 0 then strZipCode = Request.QueryString("zipcode") elseif Len(Request.Form("zipcode")) > 0 then strZipCode = Request.Form("zipcode") end if if Len(Request.QueryString("billcountry")) > 0 then strBillCountry = Request.QueryString("billcountry") elseif Len(Request.Form("billcountry")) > 0 then strBillCountry = Request.Form("billcountry") end if if Len(Request.QueryString("email")) > 0 then strEmail = Request.QueryString("email") elseif Len(Request.Form("email")) > 0 then strEmail = Request.Form("email") end if if Len(Request.QueryString("sendmeletter")) > 0 then strSendMeLetter = Request.QueryString("sendmeletter") elseif Len(Request.Form("sendmeletter")) > 0 then strSendMeLetter = Request.Form("sendmeletter") end if Dim rightNow as DateTime = DateTime.Now if (Len(strFirstName) > 0 AND Len(strLastName) > 0 AND Len(strAddress) > 0 AND Len(strCity) > 0 AND Len(strState) > 0 AND Len(strZipCode) > 0) then objToken.StoreGroupDB.QueryNoRs("INSERT INTO catalog_request (FirstName, LastName, Company, Address, city, State, ZipCode, BillCountry, Email, SendMeLetter, ReqDate) VALUES ('" & strFirstName & "', '" & strLastName & "', '" & strCompany & "', '" & strAddress & "', '" & strCity & "', '" & strState & "', '" & strZipCode & "', '" & strBillCountry & "', '" & strEmail & "', '" & strSendMeLetter & "', '" & rightNow & "')") Response.Redirect("http://www.duncraft.com/catalog_request_thankyou.aspx") end if %>

Order By Phone 888-879-5095

View Cart: 0 items
Check Out

100% Guarantee Privacy Policy

Search

Enter item number or keyword

Free Newsletter

Enter your e-mail here


Quick Order Overstock - 50% Sale Gift Certificates New Just In Duncraft Birdfeeders Weekly Specials

Baffles & Guards

Bird Seed & Foods

Bird Seed Holiday Treats

Bird Seed Blocks

Bluebirds & Mealworms

Brackets & Poles

Butterflies & Bees

Closeouts - 50% Sale

Guides - Books - DVD's

Purple Martin Houses

Squirrel Strategies

Stocking Stuffers

Window Strike Solutions

Deal of the Day


Bird House Guide Birding Tips & Info Desktop Calendar Feeder/Food Chart Wild Bird Blog


About Duncraft Catalog Request Contact Us Customer Testimonials Help Desk Register Duncraft Feeder Retail Store Security Policy Shipping Information Affiliate Info Wholesale Info

Request Your Free Catalog

We know you'll enjoy browsing through our beautiful catalog almost as much as you enjoy watching your birds. Be sure to check out our special offer below—just for requesting our FREE catalog today!

The Duncraft Catalog

Our FREE catalog features wild birding specialties—feeders, baths, quality seeds, houses, carefully chosen hardware accessories, garden decor, field guides and more—so you can enjoy beautiful birds all year long and transform your garden and yard into a haven for them and for you.
Sign up for our catalog and we'll give you 10% off your next order! Copy down the promo code on the thank you page after sign up and save today! This exclusive offer ends in 2 weeks.
Important Note: Duncraft accepts catalog requests for mailing addresses within the 48 contiguous United States only.
Please fill in the information below and we will send you our current catalog right away. An asterisk (*) denotes a required field. View our Privacy Policy for additional information.