<% session.Timeout=10 str="" if session("m_rnd")<>"" then else Randomize n=Int((9999-1+1) * Rnd +1) if len(n)<4 then str=n for i=1 to 4-(len(n)) str=0&str next else str=CStr(n) end if session("m_rnd")=str end if response.Write "document.write('"&session("m_rnd")&"');" %>