<%Dim slumptal Randomize slumptal = Int(Rnd * 10000) %>