<% iSpecial = 15 SQL ="SELECT * FROM Products WHERE Products.CategoryID=" & iSpecial & " ORDER BY UniqueID Desc" 'Note that products is a view!!!! SET rsSpecial = Server.CreateObject("ADODB.RecordSet") rsSpecial.Open sql, oConn %>

<% Do until rsSpecial.EOF %>

	" width="84" border="0" alt>
	<%=rsSpecial("Name")%> <% strDescription = rsSpecial("Description") strDescription = Replace(strDescription, chr(13), " ") Response.Write strDescription %>

<%rsSpecial.MoveNext Loop%> <% rsSpecial.Close SET rsSpecial = Nothing %>