<% option explicit dim panel dim newImage dim lastImage lastImage = session("lastImage") newIMage = heroImageRandomizer while newImage = lastImage newImage = heroImageRandomizer wend panel = newImage session("lastImage") = newImage ' to add more images, increase arrayImages number and assign it to the array private function heroImageRandomizer() dim arrayImages(6) dim arraySize dim chosenImage Randomize arrayImages(0) = "images/hp_image2.jpg" arrayImages(1) = "images/vdc_hp_guy.jpg" arrayImages(2) = "images/vdc_hp_couple.jpg" arrayImages(3) = "images/vdc_hp_guy2.jpg" arrayImages(4) = "images/vdc_hp_2guys.jpg" arrayImages(5) = "images/vdc_hp_guy3.jpg" arraySize = UBound( arrayImages ) chosenImage = INT( (arraySize)*RND() ) heroImageRandomizer = arrayImages( chosenImage ) end function 'dim num 'dim ad 'if len(request.cookies("visit")) = 0 then ' ad = 0 ' response.cookies("visit") = 1 ' response.cookies("visit").expires = #1/1/2010 00:00:00# 'else ' visitnum = cint(request.cookies("visit")) ' nextnum = 1 + visitnum ' visit = formatnumber((visitnum/6),1) ' ad = right(visit,1) ' response.cookies("visit") = nextnum ' response.cookies("visit").expires = #1/1/2010 00:00:00# 'end if 'if ad = 0 or ad = 1 or ad = 3 or ad = 5 or ad = 7 or ad = 9 then ' panel="images/hp_image2.jpg" 'elseif ad = 2 then ' panel="images/vdc_hp_guy.jpg" 'elseif ad = 4 then ' panel="images/vdc_hp_couple.jpg" 'elseif ad = 6 then ' panel="images/vdc_hp_guy2.jpg" 'elseif ad = 8 then ' panel="images/vdc_hp_2guys.jpg" 'else ad = 9 ' panel="images/vdc_hp_guy3.jpg" 'end if %> Welcome to Van Dyne Crotty!

  Company Information   Press Releases    Career Opportunities    Contact Us    Site Map    Home  

Van Dyne Crotty supports the relief effort in New York by offering flag t-shirts to VDC customers.

BBBOnLine Reliability Seal 2003 Van Dyne Crotty Corporation
Use and browsing of this website are subject to the Privacy Policy contained herein.