<%@ Language=VBScript %> Belgrove Appliance, Inc. <% Sub listproc() Dim obj_recordset Dim str_selectsql str_selectsql = "select categoryid, category from category" Set obj_recordset = server.CreateObject("ADODB.Recordset") obj_recordset.open str_selectsql, obj_connection, 2, 2 Response.Write "" End Sub const gcstr_database = "ACCESS" Dim obj_recordset Dim str_sql if request.form("category") = "" or request.form("category") = "All" then str_sql = "select * from classquery ORDER BY postdate Desc" else str_sql = "SELECT * FROM classquery where catid =" & request.form("category") & " ORDER BY postdate Desc" end if Set obj_recordset = server.CreateObject("ADODB.Recordset") obj_connection.CursorLocation = 3 'adUseClient obj_recordset.Open str_sql, obj_connection, 2, 2 %>


<% = MonthName(Month(Date))%>  <% =Day(Date)%>, <%= Year(Date) %>
Filter Classifieds: <% Call listproc %>
<% Do While Not obj_recordset.EOF Dim recset Dim img_sql img_sql = "SELECT * FROM thumbquery where prodID =" & obj_recordset("classid") Set recset = server.CreateObject("ADODB.Recordset") recset.Open img_sql, obj_connection, 2, 2 if recset.EOF then %> <% else %> <% end if %> <% obj_recordset.MoveNext Loop obj_recordset.Close Set obj_recordset = Nothing %>
Click ID for More Information and Enlarged View
ID
Date Posted
Subject - Description
Category
" width="52" height="52" border= "0"> " target=" _blank" > <%=obj_recordset("classid") %> <%= MonthName(Month(obj_recordset("postdate")))%> <%= Day(obj_recordset("postdate")) %>, <%= Year(obj_recordset("postdate"))%> <%= obj_recordset("classtit") %>
<%= obj_recordset("classdes") %> 		<%= obj_recordset("category") %>