<% Response.Buffer = true Response.ContentType = "text/xml" Function ApplyXMLFormatting(strInput) strInput = Replace(strInput,"&", "&") strInput = Replace(strInput,"'", "'") strInput = Replace(strInput,"""", """) strInput = Replace(strInput, ">", ">") strInput = Replace(strInput,"<","<") ApplyXMLFormatting = strInput End Function %> life from the motor city http://www.shananegins.com/blog Helping to keep you better informed... About me! en-us 2008 <% CurrDate = Now() CurrHour = Hour(CurrDate) CurrHour = CurrHour-1 if CurrHour < 10 then CurrHour = "0" & CurrHour CurrMin = Minute(CurrDate) if CurrMin < 10 then CurrMin = "0" & CurrMin CurrSec = Second(CurrDate) if CurrSec < 10 then CurrSec = "0" & CurrSec CurrDateT = WeekdayName(Weekday(CurrDate), TRUE) & ", " & Day(CurrDate) & " " & _ MonthName(Month(CurrDate), TRUE) & " " & Year(CurrDate) & " " & _ CurrHour & ":" & CurrMin & ":" & CurrSec & " EST" %> <%=CurrDateT%> 240 http://www.shananegins.com/blog/lftmc.gif Life from the Motor City http://www.shananegins.com/blog <% Set FeatSiteConn = Server.CreateObject("ADODB.Connection") FeatSiteConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\shananegins.com\blog\blog.mdb" Set FeatSite = Server.CreateObject("ADODB.RECORDSET") FeatSite.CursorType = 1 FeatSite.LockType = 2 SQLText="SELECT TOP 5 entryName, pubPriv, entryText, entryDate, entryTime, a.entryID, (SELECT COUNT(commentID) FROM tblComment b WHERE a.entryID = b.entryID) AS comCount, catType FROM tblShowEntries a WHERE entryDate <= #" & Now() & "# ORDER BY entryDate DESC, entryTime DESC" FeatSite.Open SQLText, FeatSiteConn 'response.write SQLText FeatCt = 1 do while not FeatSite.EOF and FeatCt < 6 ArtDesc = Replace(FeatSite("entryText"), chr(180), "'") ArtDesc = Replace(ArtDesc, "´", "'") ArtDesc = Replace(ArtDesc, "&", "&") ArtDesc = Replace(ArtDesc, "&nbsp;", " ") ArtDesc = Replace(ArtDesc, "
", "
") ArtDesc = Replace(ArtDesc, "

", "

") ArtDesc = Replace(ArtDesc, "

", "
") ArtDesc = """" & ArtDesc & """" if FeatSite("pubPriv")=1 then ArtDesc = ArtDesc elseif FeatSite("pubPriv")=2 then ArtDesc = "This is a private entry. If you know the password you can login to view it!" end if ArtTitle = Replace(FeatSite("entryName"), chr(180), "'") ArtTitle = Replace(ArtTitle, "´", "'") ArtTitle = Replace(ArtTitle, "&", "&") ArtDate = FeatSite("entryDate") ArtTime = FeatSite("entryTime") ArtHour = Hour(ArtTime) ArtHour = ArtHour - 1 if ArtHour < 10 then ArtHour = "0" & ArtHour ArtMin = Minute(ArtTime) if ArtMin < 10 then ArtMin = "0" & ArtMin ArtSec = Second(ArtTime) if ArtSec < 10 then ArtSec = "0" & ArtSec ArtDateT = WeekdayName(Weekday(ArtDate), TRUE) & ", " & Day(ArtDate) & " " & _ MonthName(Month(ArtDate), TRUE) & " " & Year(ArtDate) & " " & _ ArtHour & ":" & ArtMin & ":" & ArtSec & " EST" %> <%=ArtTitle%> http://www.shananegins.com/blog/index.asp?entryID=<%=FeatSite("entryID")%>&selectedDate=<%=FeatSite("entryDate")%> <%=ArtDesc%> <%=ArtDateT%> <% FeatSite.MoveNext FeatCt = FeatCt + 1 loop FeatSite.close() set FeatSite = Nothing %>