<% set rs = server.CreateObject("ADODB.Recordset") selsql = "SELECT distinct tblTopic.UserId, tblTopic.CategoryId , tblTopic.Subject , tblUser.UserName From tblTopic,tblUser,tblCategory WHERE tblTopic.UserId = tblUser.UserId and tblTopic.CategoryId = tblCategory.CategoryId" rs.Open selsql,db,3 %>

<% if rs.EOF then %> <% else %> <% rs.MoveNext end if %>


Topic	Topic Starter	Replies	Views
Records not Found
<% = rs.fields("Subject") %>