YOURURLLINK YOURDESCRIPTION en-us YOURCOPYRIGHT <% CurrDate = Now() CurrHour = Hour(CurrDate) 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 YOURSITEIMAGEFILE YOURSITEURL <% Set FeatSite = Server.CreateObject ("ADODB.Recordset") SQLText = "SELECT art_id, art_title, art_date, art_desc " & _ "from articles where art_date <= '" & Now() & "' " & _ "order by art_date DESC" response.write(sqltext) FeatSite.Open SQLText, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText FeatCt = 1 do while not FeatSite.EOF and FeatCt < 4 ArtDesc = Replace(FeatSite("art_desc"), chr(180), "'") ArtDesc = Replace(ArtDesc, "´", "'") ArtDesc = Replace(ArtDesc, "&", "&") ArtTitle = Replace(FeatSite("art_Title"), chr(180), "'") ArtTitle = Replace(ArtTitle, "´", "'") ArtTitle = Replace(ArtTitle, "&", "&") ArtDate = FeatSite("art_date") ArtHour = Hour(ArtDate) if ArtHour < 10 then ArtHour = "0" & ArtHour ArtMin = Minute(ArtDate) if ArtMin < 10 then ArtMin = "0" & ArtMin ArtSec = Second(ArtDate) if ArtSec < 10 then ArtSec = "0" & ArtSec ArtDateT = WeekdayName(Weekday(ArtDate), TRUE) & ", " & Day(ArtDate) & " " & _ MonthName(Month(ArtDate), TRUE) & " " & Year(ArtDate) & " " & _ ArtHour & ":" & ArtMin & ":" & ArtSec & " EST" %> YOURURLGOESHEREPLUS&ARTID=<%=FeatSite("art_id")%>.asp <%=ArtDesc%> <%=ArtDateT%> <% FeatSite.MoveNext FeatCt = FeatCt + 1 loop FeatSite.close() set FeatSite = Nothing %>