asp查询

下面代码是列出一级栏目的信息块，但我只想要其中的一个模块，比如说ID=85的模块，该怎么改下面的代码呢？




<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="MainTable">
<%
Sql="select ID,SortName,gotoURL from Ok3w_Class where ChannelID=" & ChannelID & " and ParentID=0 and gotoURL='' order by OrderID"
Set oRs = Conn.Execute(Sql)
Do While Not oRs.Eof
%>
  <tr>
<%For i=1 To 2%>  
  <td valign="top"<%If i<>2 Then%> width="50%" style="padding-right:8px;"<%End If%>>
<%If Not oRs.Eof Then%>
<table border="0" cellspacing="0" cellpadding="0" class="dragTable" width="100%">
  <tr>
  <td class="head"><h3 class="L"></h3>
  <span class="TAG"><a href="<%=Page_URL(ChannelID,oRs("ID"),"")%>" target="_blank"><%=oRs("SortName")%></a></span> <span class="more"><a href="<%=Page_URL(ChannelID,oRs("ID"),"")%>" target="_blank">更多...</a></span></td>
  </tr>