Código:
<%
arreglo = "," & Replace(trim(Tabla.fields(10)), ", ", ",") & ","
do while not Tipot1.EOF
nombre = Tipot1("tipologia")
%>
<option value="<%=nombre%>"<% if (instr(arreglo, "," & nombre & ",")) then response.write " selected" %>><%=nombre%></option>
<%
Tipot1.MoveNext
Loop
%>
Genial, pero te paso unas modificaciones (que no las probé, pero deberían funcionar)
Primero, saqué la asignación de datos de la variable arreglo fuera del do while (no es nenesario que esté adentro)
Segundo (supongo que los delimitadores son las comas), agregué una coma al inicio y otra al final del arreglo (además de eliminar los espacios entre elementos del arreglo en caso de existir)
Tercero, en el InsTr() comparo ",nombre,"... para evitar posibles inconsistencias (por ejemplo existe "casa", "casa blanca", "casa rozada" y "blanca" y consultás si "blanca" está... te devuelve que si en la posición 2 y 4)
Saludos