<% sql = "Select * From topics" Set topicObj = server.CreateObject ("ADODB.RecordSet") topicObj.Open sql,Conn,adOpenDynamic topicObj.Find "ID="&id&"" 'For previous topicObj.MovePrevious if topicObj.bof then topicobj.MoveNext response.write "Previous topic " else %> ">View previous topic <% topicobj.MoveNext topicobj.MoveNext End if 'End here %> :: <% 'For next if topicObj.EOF then response.write "Next topic" Else %> ">View next topic <%end if%>