<% function DoDateTime(str, nNamedFormat, nLCID) dim strRet dim nOldLCID strRet = str If (nLCID > -1) Then oldLCID = Session.LCID End If On Error Resume Next If (nLCID > -1) Then Session.LCID = nLCID End If If ((nLCID < 0) Or (Session.LCID = nLCID)) Then strRet = FormatDateTime(str, nNamedFormat) End If If (nLCID > -1) Then Session.LCID = oldLCID End If DoDateTime = strRet End Function %> Semi-frequent musings of Japhthor al Chil. Personal Site and design testing ground. Enter at your own risk. Results may vary http://www.japhthor.com/ en-gb (pics-1.1 "http://www.icra.org/ratingsv02.html" comment "ICRAonline EN v2.0" l gen true for "http://japhthor.com" r (nz 1 vz 1 lz 1 oz 1 cz 1) "http://www.rsac.org/ratingsv01.html" l gen true for "http://japhthor.com" r (n 0 s 0 v 0 l 0)) Copyright 1999-2003, Japhthor al Chil. http://www.japhthor.com/images/magneto_header.gif http://www.japhthor.com/ 144 25 Image for Japhthor.com <% Set rs_latest_posts = Server.CreateObject("ADODB.Recordset") rs_latest_posts.ActiveConnection = MM_conn_japhthor_blog_STRING Set rs_latest_posts = Server.CreateObject("ADODB.Recordset") rs_latest_posts.ActiveConnection = MM_conn_japhthor_blog_STRING rs_latest_posts.Source = "SELECT posttitle, postdatetime, postSummary, postcategory.postCategory, postid, postdatetime + 0 AS posted, postCategoryCode, date_format(postdatetime, '%a, %d %b %Y %T') AS postDate FROM posts, postcategory WHERE posts.postcategory = postCategoryID ORDER BY postdatetime DESC" rs_latest_posts.CursorType = 0 rs_latest_posts.CursorLocation = 2 rs_latest_posts.LockType = 1 rs_latest_posts.Open() rs_latest_posts_numRows = 0 x=0 while not rs_latest_posts.eof if x<15 then response.write "" response.write "" response.write ""& rs_latest_posts("postSummary") &"Category: " & rs_latest_posts.Fields.Item("postCategory").Value & "" response.write "http://www.japhthor.com/newsarchives/post.asp?m=" & datepart("m",(rs_latest_posts.Fields.Item("postdatetime").Value)) & "&y=" & datepart("yyyy",(rs_latest_posts.Fields.Item("postdatetime").Value)) & "#p" & rs_latest_posts.Fields.Item("posted").Value &"" response.write "" & (rs_latest_posts.Fields.Item("postDate").Value) & " PST" response.write "" end if ' Increment the counter by 1 each time the loop goes round x=x+1 ' Loop rs_latest_posts.movenext wend ' Close the database connections and set the recordset equal to nothing rs_latest_posts.Close() Set rs_latest_posts = Nothing ' Write out the End Channel Data tag and End RSS tag. %>