problemas con selected

[nancy8120]

hola
tengo el siguiente problema y no entido porque me esta saliendo ya que esto lo he hecho varias veces
ok, toy haciendo una pagina para editar el contenido de una tabla unos de esos campos biene de otra tabla asi q tengo select o una lista para
llamar esa tabla
la idea es que el valor q esta en la tabla que quiero editar quede como selected para q no se cambie el valor en caso de q
voy a editar otro campo y ese lo quierio dejar como esta
buen he intentado de varias formas cuando hago esta comparacion

if rst("IDCLIENTE") = "rstcliente" then response.write "selected"
rstcliente lo pongo entre " no me hace nada
si le quito las comillas me manda este error
microsoft vbscript runtime error '800a000d' type mismatch
y si lo fuerzo
ejemplo
if rst("IDCLIENTE") = "3" then response.write "selected"
entonces si me hace el selected osea esea no se que es lo que estoy haciendo mal les muestro el codigo
gracias

Código:

strsqld = "SELECT * FROM design_base WHERE idcliente = "&idcliente&" and codigo_diseno='"&codigo&"'"
set rstd = conn.execute(strsqld)
if not rstd.eof then
dim rstcliente
	rstcliente = rstd("idcliente")
	end if
		strsql = "SELECT IDCLIENTE, NOMBRE FROM cliente "
	                 set rst = conn.execute(strsql)
                                 %>
          <select size="1" name="cliente">
				    <%	
				  		if not rst.eof then
        				do while not rst.eof
        				
        				%>
                       <option value="<%=rst("IDCLIENTE")%>" <%if rst("IDCLIENTE") = rstcliente then response.write "selected"%> ><%=rst("nombre")%>-<%=rstcliente%></option>

		             <% 
		          
		             rst.movenext
		                loop
		                
	                    end if
	                  rst=close
                      set rst=nothing

					%>

				</select>