Muchas gracias por el dato Al Zuwaga, no sabia de la función InStr(), la Split no me servia mucho por que tenia que generar más código, bueno para el que le sirva les pongo como me quedó el código:
Código:
<%
do while not Tipot1.EOF
nombre = Tipot1 ("tipologia")
arreglo = "" & trim(Tabla.fields(10)) & ""
%>
<option value="<%=nombre%>"<% if (instr(arreglo, nombre)) then response.write "selected" %>><%=nombre%></option>
<%
Tipot1.MoveNext
Loop
%>