CashBarn | Valentine's Day Sweepstakes & Contests

<% 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 | Valentine's Day Sweepstakes & Contests | www.cashbarn.com

CONTESTS/GIVEAWAYS

FREEBIES/FREE SAMPLES
VALENTINE SWEEPS

ST PATRICK'S SWEEPS

Valentine's Day Sweepstakes & Contests

VALENTINE'S DAY SWEEPS & CONTESTS

How would you like to surprise your sweetheart this Valentine's Day with dozens of long-stemmed roses, diamond jewelry, or a romantic getaway?

If that sounds like a great way to express your love on the most romantic day of the year, enter these Valentine's Day Sweepstakes and keep your fingers crossed for a big win!