<%@ Language = VBScript%> <% opendb() set buyer=Obj.Execute("Select id,equipment,comments from classifiedadd where buyer=True") set seller=Obj.Execute("Select id,equipment,comments from classifiedadd where buyer=False") %> Classified Adds
<%If Flag then%> <%Else%>
<%sr=0 cnt=1 while Not buyer.EOF if cnt=1 then bg="#E0D9A3" else bg="#ECE8C6" end if sr=sr+1%> <%buyer.MoveNext if cnt=1 then cnt=2 else cnt=1 end if Wend set buyer=nothing%> <%sr=0 cnt=1 while Not seller.EOF if cnt=1 then bg="#E0D9A3" else bg="#ECE8C6" end if sr=sr+1%> <%seller.MoveNext if cnt=1 then cnt=2 else cnt=1 end if Wend set seller=nothing%>
 
 
 Buyers
Sr # Product name: Description  
 <%=sr%>  <%=buyer("equipment")%>  <%=buyer("comments")%> ">Detail
  
Sellers
Sr # Product name: Description  
 <%=sr%>  <%=seller("equipment")%>  <%=seller("comments")%> ">Detail
 
<%End If%>