asp随机判断错误求解?原来是当每超过三条数据的时候判断If (Total Mod 3)=0 Then如何改为随机每4-

asp随机判断错误求解?
原来是当每超过三条数据的时候判断
If (Total Mod 3)=0 Then
如何改为随机每4-6条数据的时候判断
把这句改为aaa=Int((6 - 4 + 1) * Rnd() + 4)
If (Total Mod aaa)=0 Then后为什么,明明定义的是4-6条为什么会出现8条、12条等.
以下是部分代码：
If Rs.Bof Or Rs.Eof Then
'Response.write "False"
Else
ydate = GetDate(Lyear,LHour,Lminute)
Do Until Rs.EOF
ydate = DATEADD ("s" ,Int((59 * Rnd) + 1),ydate)
BHour = FormatDateTime(ydate,3)
AHour = Split(LHour,"-",-1,1)
BHour = Split(BHour,":",-1,1)
Aminute= Split(Lminute,"-",-1,1)
LHour = BHour(0)&"-"&AHour(1)
Lminute = BHour(1)&"-"&Aminute(1)
'当每超过三条数据的时候判断
aaa=Int((6 - 4 + 1) * Rnd() + 4)
If (Total Mod aaa)=0 Then
If Total 0 Then
ydate = FormatDateTime(ydate,2)&" "&LLHour(0)&":"&LLminute(0)&":00"
'Response.write ydate
ydate = DATEADD ("d" ,1,ydate)
Lyear = FormatDateTime(ydate,2)
LHour = LLHour(0)&"-"&LLHour(1)
Lminute = LLminute(0)&"-"&LLminute(1)
Total = 0
End If
End If
ydate = GetDate(Lyear,LHour,Lminute)
Response.write "
ID："&Rs("id")&" 更新时间："&ydate&"
"
Sql = "Update Table_1 Set ydate='"&ydate&"' Where id="&Rs("id")
'Response.write Sql
Conn.Execute(Sql)
Total=Total+1
Rs.MoveNext
Loop
End If
Rs.Close