<%@ LANGUAGE=VBScript EnableSessionState=false LCID=1033 %> <% ' -------------------------------- PRELUDE ------------------------------------- Dim CityRegion ' ------------------------------- PRE-PAGE ------------------------------------- Sub PrePage ' -------------------------- ' PrePage ' -------------------------- General_PrePage() ' -------------------------- ' Read Input Variables ' -------------------------- CityRegion = ParseRequestText(Request("Region"), null, null) If (IsBlank(CityRegion)) Then HandleError("No region was specified for viewing ads.") End If ' -------------------------- ' Setup Page Variables ' -------------------------- Page.Title = LookupListLabel("city_regions", CityRegion) Page.HideToolbar = HIDE_TOOLBAR End Sub ' ------------------------------- POST-PAGE ------------------------------------ Sub PostPage General_PostPage() End Sub ' -------------------------------- OUTPUT -------------------------------------- Sub Output Dim SQL, Rs Dim ClassifiedID, Content, IsHighlighted, Background %> <%= bt_NormalText %>

<%= LookupListLabel("city_regions", CityRegion) %>

<% ' ------------------------- ' Construct Query ' ------------------------- SQL = "SELECT classified_id, content, is_highlighted" &_ " FROM t_Ad_Classifieds" &_ " WHERE city_region = " & FormatSQLText(CityRegion) &_ " AND approval_status = " & FormatSQLInteger(APPROVAL_STATUS_APPROVED) &_ " AND expiration_date >= CONVERT(datetime, CONVERT(varchar(4), YEAR(GETDATE())) + '/' + CONVERT(varchar(2), MONTH(GETDATE())) + '/' + CONVERT(varchar(2), DAY(GETDATE())))" &_ " ORDER BY rent, expiration_date" Set Rs = Database.GetRecords(SQL) If (Not Rs.EOF) Then Response.Write("> <%= Content %>

<%= bt_SmallText %> E-mail To A Friend <%= et_SmallText %>
<% Rs.MoveNext() Wend Response.Write("
") While (Not Rs.EOF) ClassifiedID = ParseSQLInteger(Rs("classified_id")) Content = ParseSQLText(Rs("content")) IsHighlighted = ParseSQLText(Rs("is_highlighted")) If (IsHighlighted) Then Background = " BGCOLOR=""" & GetConfigVar("Applications.Classifieds.HighlightColor") & """" Else Background = "" End If %>

") Else Response.Write("

No Classified Ads Found") End If Rs.Close %> <%= et_NormalText %> <% End Sub %>