CashBarn | Free Sample Of The Day

<% datToday = Date() intThisYear = Year(datToday) intThisMonth = Month(datToday) intThisDay = Day(datToday) strMonthName = MonthName(intThisMonth) strWeekDayName = WeekDayName(WeekDay(datToday), False, vbSunday) If Request.Cookies("ID") > "" then AFFID = Request.Cookies("AFFID") ID = Request.Cookies("ID") Elseif Request.Querystring("ID") > "" then AffID = Trim(Request.QueryString("ID")) Response.Cookies("AFFID") = AffID ID = Trim(Request.QueryString("ID")) Else Response.Cookies("AFFID") = "99999" Response.Cookies("ID") = "99999" AFFID = Request.Cookies("AFFID") ID = Request.Cookies("ID") End If EmailAddress = Request.Cookies("EmailAddress") FirstName = Request.Cookies("FirstName") %> CashBarn | Free Sample Of The Day | www.cashbarn.com

CONTESTS/GIVEAWAYS

FREEBIES/FREE SAMPLES
VALENTINE SWEEPS

ST PATRICK'S SWEEPS

HALLOWEEN SWEEPS

THANKSGIVING SWEEPS

Free Sample Of The Day

Free Sample Of Biolage
Voluma Therapie Shampoo And Conditioner

DECEMBER, 2010
Free Sample - Parent's Choice Infant Formula

NOVEMBER, 2010
Free Samples For November, 2010