Error

[pepelucho]

Holas, tengo un if q si el combo esta con el numero cero me muestra un combo sino me muestra otro pero me sale error este es el error:

error '80020009'
/articulos/mante/editar.asp, line 195

Aqui el codigo:
<%
Set rs0=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
sql0="select i.especialidad FROM interes i,especialidad e where i.especialidad=e.id_especialidad and i.id="& cad
sql1="select *from especialidad"
rs0.open sql0, cn
rs1.open sql1,cn
%>
<%If rs0(0)<>0 then%> ' linea 195
<select name="especialidad">
<% Do while not rs1.EOF %>
<option value="<% = rs1("ID_especialidad") %>"<% If rs1("ID_especialidad") = rs0("especialidad") then Response.Write " SELECTED" %>><% = rs1("especialidad") %>
</option>
<%
rs1.MoveNext
Loop
rs1.close
%>
</select>
<%Else%>
<select name="especialidad">
<%Do while not rs1.EOF %>
<option value="<%=rs1.Fields("id_especialidad")%>" selected>
<%=rs1.Fields("especialidad")%>
</option>
<%
rs1.MoveNext
loop
rs1.Close
%>
</select>
<%end if%>