Análise do método de chamando aleatoriamente n peças de dados

Etapa 1: sql = "selectIdFromTable" resultado com rs = conn.execute (sql)

Etapa 2: gerar um número aleatório dentro do valor máximo da etapa1 (Rs.RecordCount) .n

código:

<%Randomize%>

<%

Dimr (10)

fori = 0Toubound (r)

r (i) = int (rnd ()*100)

int (rnd ()*100)

%>

Etapa 3: junte -se à matriz em um "" Split

<%Randomize%>

<%

SQL = "SelectIdFromTable"

rs = Conn.Execute (SQL)

MaxRecord = Rs.RecordCount

Dimr (10)

fori = 0toubund (r)

r (i) = rs (int (rnd ()*maxrecord))

próximo

s = junção (r, ",")

sql = "Selecione*FromTablewheredin (" & s & ")"

newrs = Conn.Execute (SQL)

%>