<% Bin1 = "1111" Bin2 = "0101" i = 1 While i <= Len(Bin1) BinSalida = BinSalida & (Mid(Bin1,i,1) and Mid(Bin2,i,1)) i = i + 1 Wend Response.Write BinSalida %>