ASP随机数每次都一样

我想把单价变成范围值，上下限取正负5%内的任意值，小数取2位。结果每次生成的随机数都一样。怎么改？
temp1=rs.fields("单价")
        temp2=round(((100-95+1)*rnd+95)/100*temp1,2)
        temp3=round(((105-100+1)*rnd+100)/100*temp1,2)
        danjia=temp2&"~"&temp3