JerryKindall.com: Once Upon a Time on the Web


Click thumbnail to enlarge

Golden Gate
1/15/2005
6 comments

 

Current
2007 Archives
   August
   June
   March
2006 Archives
   December
   November
   May
   April
   March
   February
   January
2005 Archives
   December
   November
   October
   September
   August
   July
   June
   May
   April
   March
   February
   January
2004 Archives
2003 Archives
2002 Archives
2001 Archives

Gallery
Download
Comments
Links

About Jerry
Amazon Wish List

MeFi-Projects

Seattle Pancakes

© 2001-2012 Jerry Kindall


Search this site
Search the Web



 

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
%>