| |
| |
| SUCCESS STORIES |
 |
| |
<%
Function RandomNumber(intHighestNumber)
Randomize
RandomNumber = Int(Rnd * intHighestNumber) + 1
End Function
sql="select Count(*) as Max from BT_Clientele where Status=1"
Set rsBT_Clientele = Server.CreateObject("ADODB.Recordset")
rsBT_Clientele.Open sql,cn
Dim Max:Max=rsBT_Clientele("Max")
rsBT_Clientele.Close()
if int(Max)<>0 then
Dim RNo:RNo=RandomNumber(Max)
RNo=RNo-1
sql="select * from BT_Clientele where Status=1"
rsBT_Clientele.Open sql,cn,3
rsBT_Clientele.Move(RNo)
for i=1 to Max%>
<%
if rsBT_Clientele.EOF then
rsBT_Clientele.MoveFirst()
end if
%>
|
|
| ˆTop |
|
| |
<%
rsBT_Clientele.MoveNext()
next
end if
%>
|
|
|
| |
|
