%
Dim strLink, strAdId
Dim photo_lower, photo_upper, photo_id, cookie_photo_id
photo_lower = 1
photo_upper = 4
cookie_photo_id = Request.Cookies("carolinafcu_pid_ad")
if cookie_photo_id <> "" then
if CInt(cookie_photo_id) >= photo_upper then
photo_id = photo_lower
else
photo_id = CInt(cookie_photo_id) + 1
end if
else
Randomize
photo_id = Int((photo_upper - photo_lower + 1) * Rnd + photo_lower)
end if
Response.Cookies("cccu_pid_ad") = photo_id
select case(photo_id)
case 1
strAdId = "auto"
strLink = "asp/products/product_3_2.asp"
case 2
strAdId = "checking"
strLink = "asp/products/product_2.asp"
case 3
strAdId = "onlineaccess"
strLink = "https://netit.financial-net.com/carolinafcu/"
case 4
strAdId = "visa"
strLink = "asp/products/product_3_5.asp"
end select
%>
|
 |
Try these Mortgage Calculators!
|
|
|