%
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
%>
|
 |
Welcome to Carolina Federal Credit Union Online Application Area
Here you'll find links to all the applications available on our site. By
following the links below you are able to fill out applications for loans, membership or
other specific areas.
|
|
|