i=0
do while i*9<9999
a=i
if len(a)=3 then a="0"&a
if len(a)=2 then a="00"&a
if len(a)=1 then a="000"&a
b=i*9
if len(b)=3 then a="0"&b
if len(b)=2 then a="00"&b
if len(b)=1 then a="000"&b
if int(mid(a,4,1)&mid(a,3,1)&mid(a,2,1)&mid(a,1,1))-int(b)=0 then
if mid(a,1,1)<>mid(a,2,1) and mid(a,1,1)<>mid(a,3,1) and mid(a,1,1)<>mid(a,4,1) and mid(a,2,1)<>mid(a,3,1) and mid(a,2,1)<>mid(a,4,1) and mid(a,3,1)<>mid(a,4,1) and mid(b,1,1)<>mid(b,2,1) and mid(b,1,1)<>mid(b,3,1) and mid(b,1,1)<>mid(b,4,1) and mid(b,2,1)<>mid(b,3,1) and mid(b,2,1)<>mid(b,4,1) and mid(b,3,1)<>mid(b,4,1) then
response.Write(a&"x9="&b&"<br>")
end if
end if
i=i+1
loop