..Josh   ..Rob & Debbie   ..Elaine & Lloyd   ..Chuck & Becky   ..Justin   ..Zane   ..Rich  
..Cook Off 2002   ..Cook Off 2003   ..Cook Off 2004   ..Cook Off 2005  
<% Set Conn = server.createobject("ADODB.Connection") Conn.mode = 1 'adModeRead Conn.Open "DBQ=" & Server.MapPath("links.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "admin", "" Set rstLinks = server.createobject("ADODB.Recordset") Set rstLinks.ActiveConnection = Conn strSQLInfo = "Select * from links order by myOrder" rstLinks.open strSQLInfo do until rstLinks.eof currentID = rstLinks("id").Value currentTitle = rstLinks("Title").Value currentURL = rstLinks("URL").Value response.write(".." & currentTitle & "  ") rstLinks.movenext loop rstLinks.close Conn.close %>