como bien dices ese código es vb por lo tanto deberías de preguntar en el foro de asp.
Cita: la subrutina no lo tienes cerrada
end sub
en la condicional está mal
if campo.valor = 'lo que sea' then
la condicional no la tienes cerrada
end if
select case
Case "Boca":
y seguro que algo mas
(&) se usa para concatenar
Cita: cad = 'hola'
con = cad & ' ¿como estás?'
response.write con