0 then
num=num&1
end if
if instr(s,"DFAF")>0 then
num=num&2
end if
if instr(s,"GSFF")>0 then
num=num&3
end if
if instr(s,"ASFD")>0 then
num=num&4
end if
if instr(s,"GHJK")>0 then
num=num&5
end if
if instr(s,"CISG")>0 then
num=num&6
end if
if instr(s,"VMFK")>0 then
num=num&7
end if
response.Write(num)
%