Source Code
This is the ASP source code for the routine that shuffles the links under "Siteseeing" on the left side nav bar.
<%
jklinks = Application("jklinks")
Randomize
If not isArray(jklinks) Then ' init and shuffle the list first time
' this looks big and ugly, but it's just an array of all the links
jklinks = Array("<A HREF=""http://a.wholelottanothing.org/"">Matt Haughey</A>", "<A HREF=""http://bitstream.manilasites.com/"">BitStream</A>", "<A HREF=""http://blackholebrain.editthispage.com/"">blackholebrain</A>", "<A HREF=""http://blog.glennf.com/"">GlennLog</A>", "<A HREF=""http://bluezfire.org/"">Bluezfire</A>", "<A HREF=""http://boingboing.net/"">Boing Boing</A>", "<A HREF=""http://catless.ncl.ac.uk/Lindsay/weblog/latest.html"">Bifurcated Rivets</A>", "<A HREF=""http://consequently.org/"">Consequently.org</A>", "<A HREF=""http://denbeste.nu/"">USS Clueless</A>", "<A HREF=""http://dev.null.org/blog/"">null device</A>", "<A HREF=""http://doc.weblogs.com/"">Doc Searls</A>", "<A HREF=""http://friends.macjournals.com/mattd/"">Life & Deatherage</A>", "<A HREF=""http://instapundit.blogspot.com/"">InstaPundit</A>", "<A HREF=""http://internetbrothers.org/"">Lucid Confusion</A>", "<A HREF=""http://jimfl.tensegrity.net/"">Everything Burns</A>", "<A HREF=""http://linkfilter.net/"">Linkfilter</A>", "<A HREF=""http://morfa.blogspot.com/"">MorfaBlog</A><SMALL> (Welsh)</SMALL>", "<A HREF=""http://phonezilla.net/3stations/"">phonezilla</A>", "<A HREF=""http://scobleizer.ManilaSites.Com/"">Scobleizer</A>", "<A HREF=""http://speechtherapy.mullinax.net/speakeasy/"">speakeasy</A>", "<A HREF=""http://stipp.creatureofcomfort.org/"">House of Stooner</A>", "<A HREF=""http://suodatin.com/suodatin/"">Suodatin</A><SMALL> (Finnish)</SMALL>", "<A HREF=""http://theflangynews.editthispage.com/"">Flangy News</A>", "<A HREF=""http://timesshadow.editthispage.com/"">Time's Shadow</A>", "<A HREF=""http://whimmydiddle.com/"">Whimmydiddle</A>", "<A HREF=""http://world.std.com/~emg/blogger.html"">Follow Me Here</A>", "<A HREF=""http://www.120degrees.com/"">120degrees</A>", "<A HREF=""http://www.2020hindsight.org/"">2020 Hindsight</A>", "<A HREF=""http://www.accidentaljulie.com/index2.php"">Accidental Julie</A>", "<A HREF=""http://www.aggrevox.com/lauren"">aqua hydro</A>", "<A HREF=""http://www.alistapart.com/index.html"">A List Apart</A>", "<A HREF=""http://www.allaboutgeorge.com/"">All About George</A>", "<A HREF=""http://www.anitarowland.com/"">Anita Rowland</A>", "<A HREF=""http://www.arielmeadow.com/"">Electrolicious</A>", "<A HREF=""http://www.arstechnica.com/"">Ars Technica</A>", "<A HREF=""http://www.backupbrain.com/"">Backup Brain</A>", "<A HREF=""http://www.bekkoame.ne.jp/~aabb/plus9.html"">gmtPlus9</A>", "<A HREF=""http://www.billbarol.com/blather"">Blather</A>", "<A HREF=""http://www.bitchquick.com/"">Bitchquick</A>", "<A HREF=""http://www.blackbeltjones.com/work/index.html"">Blackbelt Jones</A>", "<A HREF=""http://www.blurble.net/identity/"">Identity</A>", "<A HREF=""http://www.bradlands.com/"">The BradLands</A>", "<a href=""http://www.brunching.com/"">Brunching Shuttlecocks</a>", "<A HREF=""http://www.brushstroke.tv/"">brushstroke.tv</A>", "<A HREF=""http://www.bryanjbusch.com/"">Bryan J. Busch</A>", "<A HREF=""http://www.cadence90.com/blogs/nixon.html"">cadence90</A>", "<A HREF=""http://www.camworld.com/"">Camworld</A>", "<A HREF=""http://www.cheesedip.com/"">Cheesedip</A>", "<A HREF=""http://www.cherise.net/"">Luxury Light 60</A>", "<A HREF=""http://www.curry.com/"">Adam Curry</A>", "<A HREF=""http://www.dallas.net/~robeads/"">Rob Eads</A>", "<A HREF=""http://www.dangerousmeta.com/"">Dangerousmeta</A>", "<A HREF=""http://www.dansanderson.com/blog/"">BrainLog</A>", "<A HREF=""http://www.davezilla.com/"">Davezilla</A>", "<A HREF=""http://www.dollarshort.org/"">Dollarshort</A>", "<A HREF=""http://www.drmenlo.com/abuddha/bookmark.htm"">Abuddahs Memes</A> ", "<A HREF=""http://www.dynamist.com/scene.html"">Dynamist.com</A>", "<A HREF=""http://www.edgecase.org/"">Edgecase</A>", "<A HREF=""http://www.eleganthack.com/blog/index.html"">Elegant Hack</A>", "<A HREF=""http://www.evhead.com/"">Evhead</A>", "<A HREF=""http://www.evhead.com/"">Evhead</A>", "<A HREF=""http://www.fark.com/"">Fark</A>", "<A HREF=""http://www.fimoculous.com/"">Fimoculous.com</A>", "<A HREF=""http://www.flutterby.com/"">Flutterby</A>", "<A HREF=""http://www.foreword.com/danelope.php"">Danelope</A>", "<A HREF=""http://www.fresh-hell.com/weblog/index.htm"">Fresh Hell</A>", "<A HREF=""http://www.frykitty.com/"">Frytopia</A>", "<A HREF=""http://www.ftrain.com/"">Ftrain</A>", "<A HREF=""http://www.furia.com/twas/"">TWAS</A>", "<A HREF=""http://www.garyy.net/"">same as it ever was</A>", "<A HREF=""http://www.geegaw.com/"">Geegaw</A>", "<A HREF=""http://www.glassdog.com/"">Glassdog</A>", "<A HREF=""http://www.haddock.org/"">Haddock</A>", "<A HREF=""http://www.harrumph.com/"">Harrumph</A>", "<A HREF=""http://www.hilowitz.com/john/home.html"">Hilowitz.com</A>", "<A HREF=""http://www.hullocentral.demon.co.uk/site/anfin.htm"">Also Not Found...</A>", "<A HREF=""http://www.hyperorg.com/"">JOHO</A>", "<A HREF=""http://www.inthegray.com/"">In the Gray</A>", "<A HREF=""http://www.janeforshort.net/"">jane for short</A>", "<A HREF=""http://www.joelonsoftware.com/"">Joel on Software</A>", "<A HREF=""http://www.kottke.org/"">Jason Kottke</A>", "<A HREF=""http://www.kuro5hin.org/"" TITLE=""pron. 'Kewro-five-hin'"">Kuro5hin</A>", "<A HREF=""http://www.lakefx.nu/"">Lake Effect</A>", "<A HREF=""http://www.larkfarm.com/weblog.asp"">Larkfarm</A>", "<A HREF=""http://www.leuschke.org/log/"">leuschke.org</A>", "<A HREF=""http://www.lkmc.ch/"">LKmc</A><SMALL> (German)</SMALL>", "<A HREF=""http://www.marinacci.org/~joshy/blog.cgi"">JoshyBlog</A>", "<A HREF=""http://www.megnut.com/"">Megnut</A>", "<A HREF=""http://www.memepool.com/"">Memepool</A>", "<A HREF=""http://www.metafilter.com/"">MetaFilter</A>", "<A HREF=""http://www.miscmedia.com/"">MISCmedia</A>", "<A HREF=""http://www.mizdos.com/"">Mizdos.com</A>", "<A HREF=""http://www.mobylives.com/"">MobyLives</A>", "<A HREF=""http://www.ncf.ca/~ek867/wood_s_lot.html"">wood s lot</A>", "<A HREF=""http://www.nedrichards.com/blogger.html"">NedBlog</A>", "<A HREF=""http://www.nextdraft.com/"">NextDraft</A>", "<A HREF=""http://www.noahgrey.com/"">Noah Grey</A>", "<A HREF=""http://www.noisebetweenstations.com/personal/weblogs/"">Noise Between...</A>", "<A HREF=""http://www.notsosoft.com/blog/"">Not.so.soft</A>", "<A HREF=""http://www.nwlink.com/~rxg/piffle.html"">Absolute Piffle</A>", "<A HREF=""http://www.obscurestore.com/"">Obscure Store</A>", "<A HREF=""http://www.oliverwillis.com/"">Oliver Willis</A>", "<A HREF=""http://www.oreillynet.com/meerkat/"">Meerkat</A>", "<A HREF=""http://www.peterme.com/"">Peterme</A>", "<A HREF=""http://www.plasticbag.org/"">PlasticBag</A>", "<A HREF=""http://www.poynter.org/medianews/"">Media News</A>", "<A HREF=""http://www.publiustx.net/"">Reductio ad Absurdum</A>", "<A HREF=""http://www.randomwalks.com/"">randomWalks</A>", "<A HREF=""http://www.rebeccablood.net/"">Rebecca's Pocket</A>", "<A HREF=""http://www.retroafro.f2s.com/"">Retroafro</A>", "<A HREF=""http://www.robotwisdom.com/"">Robot Wisdom</A>", "<A HREF=""http://www.sapphireblue.com/"">Sapphireblue</A>", "<A HREF=""http://www.scripting.com/"">Scripting News</A>", "<A HREF=""http://www.shauny.org/tinyplace/"">Tinyplace</A>", "<A HREF=""http://www.shirky.com/"">Clay Shirky</A>", "<A HREF=""http://www.slightlynorth.com/"">Slightly North...</A>", "<A HREF=""http://www.stormwerks.com/linked/"">#!/usr/bin/girl</A>", "<A HREF=""http://www.talkingcrow.com/blog/"">Rosebaby</A>", "<A HREF=""http://www.textism.com/"">Textism</A>", "<A HREF=""http://www.thegardencafe.com/"">I Must Insist...</A>", "<A HREF=""http://www.thenoodleincident.com/inflight_correction/log.html"">Inflight Correction</A>", "<A HREF=""http://www.theonionavclub.com/"">Onion AV Club</A>", "<A HREF=""http://www.thewebtoday.com/blogeur/index2.html"">Le Blogeur</A>", "<A HREF=""http://www.timemachinego.com/linkmachinego/"">LinkMachineGo</A>", "<A HREF=""http://www.tomalak.org/"">Tomalak's Realm</A>", "<A HREF=""http://www.vanderwoning.com/"">BWG Update</A>", "<A HREF=""http://www.verdun.com/"">Verdun.com</A>", "<A HREF=""http://www.vfth.com/"">ViewFromTheHeart</A>", "<A HREF=""http://www.wiredfool.com/"">Wired Fool</A>", "<A HREF=""http://www3.telus.net/latrippi/netvironments/"">net.narrative env</A>", "<small>Xplane's </small><A HREF=""http://xplane.com/xblog/"">xBlog</A><SMALL> & </SMALL><A HREF=""http://xplane.com/bblog/"">bBlog</A>")
' first time shuffle - shuffle everything
for x = 0 to UBound(jklinks)
y = Int (Rnd * (Ubound(jklinks) + 1))
t = jklinks(x): jklinks(x) = jklinks(y): jklinks(y) = t
next
End If ' end of first-time init
If Rnd < .2 Then ' scroll off first item
x = join(jklinks, CHR(13)): x = Mid(x, Instr(x, CHR(13)) + 1)
x = x & CHR(13) + jklinks(0): jklinks = split(x, CHR(13))
End If
x = Int(Rnd * 25): y = Int (Rnd * (Ubound(jklinks) + 1))
t = jklinks(x): jklinks(x) = jklinks(y): jklinks(y) = t
x = Int(Rnd * (Ubound(jklinks) + 1)): y = Int (Rnd * (Ubound(jklinks) + 1))
t = jklinks(x): jklinks(x) = jklinks(y): jklinks(y) = t
Application("jklinks") = jklinks
For x = 0 to 24 ' display the links
Response.Write jklinks(x) & "<BR>" & CHR(13)
Next
%>
