<% Dim kep2, list, kepek, kep1, kep3, kep4 list ="14/36,14/48,14/49,14/90,14/134,13/5,15/1,15/2,15/3,9/7,8/6,7/19,2/4,15/4,15/5,15/6,1/s63,1/s68,1/s37,15/7,1/s11,1/s5,2/a14,2/a8,2/a7" ParseString kepek, list, "," kep1 = "http://fabricius.twwt.com/ichan/" & kepek(rnd(Ubound(kepek))) & ".jpg" kep2 = "http://fabricius.twwt.com/ichan/" & kepek(rnd(Ubound(kepek))) & ".jpg" if kep2 = kep1 then kep2 = "http://fabricius.twwt.com/ichan/" & kepek(rnd(Ubound(kepek))) & ".jpg" if kep2 = kep1 then kep2 = "http://fabricius.twwt.com/ichan/" & kepek(rnd(Ubound(kepek))) & ".jpg" end if end if kep3 = "http://fabricius.twwt.com/ichan/" & kepek(rnd(Ubound(kepek))) & ".jpg" if kep3 = kep1 or kep3 = kep2 then kep3 = "http://fabricius.twwt.com/ichan/" & kepek(rnd(Ubound(kepek))) & ".jpg" if kep3 = kep1 or kep3 = kep2 then kep3 = "http://fabricius.twwt.com/ichan/" & kepek(rnd(Ubound(kepek))) & ".jpg" end if end if kep4 = "http://fabricius.twwt.com/ichan/" & kepek(rnd(Ubound(kepek))) & ".jpg" if kep4 = kep1 or kep4 = kep2 or kep4 = kep3 then kep4 = "http://fabricius.twwt.com/ichan/" & kepek(rnd(Ubound(kepek))) & ".jpg" if kep4 = kep1 or kep4 = kep2 or kep4 = kep3 then kep4 = "http://fabricius.twwt.com/ichan/" & kepek(rnd(Ubound(kepek))) & ".jpg" end if end if %>

New Photos Jun 2003 - <% = SecondsToDate(now(), "mmm yyyy") %>
Photos Jan 2000 - Jan 2003