type mismatch: 'cdbl'

Bom dia, mais um erro ocorreu e eu não consigo solucioná-lo.

O erro é o seguinte:

Microsoft VBScript runtime error '800a000d' Type mismatch: 'cdbl'

E a linha a qual o erro se refere é esta :

<option value="<%=orscidades("codigo")%>" <% if cint(orscidades("codigo"))=cdbl(id) then response.write "selected" end if%>><%=orscidades("nome")%></option>

Gostaria de saber se alguém pode me ajudar. Desde já agradeço!