% Dim codefail codefail=0 if Request.QueryString("codefail") <> "" then codefail=Request.QueryString("codefail") end if Dim RandomCode RandomCode="" while len(RandomCode) <> 6 Randomize RandomCode=CStr(Round(Rnd * 1000000)) Wend session("RandomCode")=RandomCode %>