<% ' NEW ITEM lastVisit=REQUEST.COOKIES("lastVisit")("1") IF lastVisit="" THEN lastVisit=DATE() RESPONSE.COOKIES("lastVisit")("1")=DATE() RESPONSE.COOKIES("lastVisit")("2")=lastVisit RESPONSE.COOKIES("lastVisit").EXPIRES=DATE()+365 whichOne=REQUEST.COOKIES("whichOne") IF whichOne="" THEN whichOne="K" pageName="Main" %>
   
<% dateRange=DATE()-15 RESPONSE.WRITE("The following articles have been added or updated since "&dateRange) flag=0 q=CHR(34) nbsp=" " lastUpdate="01/01/2002" SET connTemp=SERVER.CREATEOBJECT("adodb.connection") 'OLE DB connection to Access Database OLEDBtemp="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" OLEDBtemp=OLEDBtemp & server.mappath("data/swissArmyKnife.mdb") 'JET DB connection to Access Database 'OLEDBtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " 'OLEDBtemp=OLEDBtemp & "DBQ=" & SERVER.MAPPATH("data/swissArmyKnife.mdb") connTemp.OPEN OLEDBtemp SET rsTemp=connTemp.execute("SELECT * FROM Info WHERE Page<>'Main' AND Page<>'Links' AND Page<>'About' ORDER BY Page,Category,Subcategory,Title") DO WHILE NOT rsTemp.EOF IF INSTR(whichOne,rsTemp("CSK"))>0 OR INSTR(whichOne,rsTemp("CSM"))>0 AND rsTemp("Title")<>"ÿ" THEN IF rsTemp("DateX")>dateRange AND rsTemp("Title")<>"ÿ" AND rsTemp("Page")<>"Archive" THEN flag=1 IF tempPage<>TRIM(rsTemp("Page")) THEN tempPage=TRIM(rsTemp("Page")) tempCat="" RESPONSE.WRITE("


"&tempPage&"") END IF IF tempCat<>TRIM(rsTemp("Category")) THEN tempCat=TRIM(rsTemp("Category")) IF tempCat<>"" THEN RESPONSE.WRITE("
  • "&tempCat&"...") END IF END IF IF INSTR(LCASE(rsTemp("Page")),"links")>0 THEN RESPONSE.WRITE("
    ") tempX=rsTemp("Title") IF LEFT(tempX,1)="0" AND MID(tempX,7,1)="-" THEN RESPONSE.WRITE(MID(tempX,8)) ELSE RESPONSE.WRITE(tempX) END IF RESPONSE.WRITE("") IF CDATE(rsTemp("DateX"))>CDATE(lastVisit) THEN RESPONSE.WRITE("[New]") IF CDATE(rsTemp("DateX"))>CDATE(lastUpdate) THEN lastUpdate=rsTemp("DateX") END IF END IF rsTemp.MOVENEXT LOOP rsTemp.CLOSE SET rsTemp=nothing connTemp.CLOSE SET connTemp=nothing IF flag=0 THEN RESPONSE.WRITE("") %>


  • Our sister site CommonSenseKitsap.com

    privacy | javascript | copyright | disclaimer | contributor guidelines

    This page last updated: <%=lastUpdate%>