ステップ1：sql = "selectidfromtable" rs = conn.execute（sql）の結果
ステップ2：ステップ1（rs.RecordCount）の最大値内で乱数を生成します。
コード：
<％ランダム化％>
<％
dimr（10）
fori = 0toubound（r）
r（i）= int（rnd（）*100）
int（rnd（）*100）
％>
ステップ3：アレイを「、」分割に結合します
<％ランダム化％>
<％
sql = "SelectidFromTable"
rs = conn.execute（sql）
maxRecord = rs.RecordCount
dimr（10）
fori = 0toubund（r）
r（i）= rs（int（rnd（）*maxrecord））
次
s = join（r、 "、"）
sql = "select*fromtablewheredin（"＆s＆ "）"
newrs = conn.execute（sql）
％>
