GOMOD :: free modern design classified ads - items for sale, want lists

<% ' DateVal is the date to display ' If Abbreviate is True then the date is displayed in short form ' Otherwise its displayed verbose Function DateString(DateVal, Abbreviate) Dim intDate, strDay, strMonth, strYear intDate = Day(DateVal) strYear = Year(DateVal) if Abbreviate Then strMonth = MonthName(Month(DateVal), True) DateString = MonthName(Month(DateVal), True) & " " & intDate & " " & strYear Else strMonth = MonthName(Month(DateVal)) strDay = WeekDayName(WeekDay(DateVal), False, vbSunday) Dim suffix suffix = "th" Select Case intDate case 1,21,31 : suffix = "st" case 2,22 : suffix = "nd" case 3,23 : suffix = "rd" End Select DateString = strDay & " " & " " & strMonth & " " & intDate & suffix & ", " & strYear End If End Function Function GetNewLinks OpenDBConn sSQL = "SELECT * FROM tblDirLinks WHERE lnkValidated = 'Y' " &_ "AND lnkCategoryID IN(SELECT catID FROM tblDirCategories WHERE catType = " & SQLStr("link") & ") " & _ "ORDER BY lnkDateAdded DESC " Set rsNewLinks = GobjConnect.Execute(sSQL) GetNewLinks = GetNewLinks & "" If Not rsNewLinks.EOF Then x = 0 Do While Not rsNewLinks.EOF AND x < FVAL(giDefLinkCount) x = x + 1 GetNewLinks = GetNewLinks & "" &_ "" &_ "" '"" &_ '"" rsNewLinks.MoveNext Loop Else GetNewLinks = GetNewLinks & "" End If rsNewLinks.Close Set rsNewLinks = Nothing GetNewLinks = GetNewLinks & "

" & gsSubCatTagOpen & x & "." & gsSubCatTagClose & "	" & gsSubCatTagOpen &_ "" 'If gsNewWindow = True Then 'GetNewLinks = GetNewLinks & " TARGET=""_blank""" 'End If GetNewLinks = GetNewLinks & rsNewLinks.Fields("lnkName") & "" & gsSubCatTagClose &_ "
	Date Added: " & gsLinkDateTagOpen & Replace("" & rsNewLinks.Fields("lnkDateAdded"), " ", " ") & gsLinkDateTagClose & "
" & GSL_NoNewBooks & "