ขอโค๊ต random คือทำโปรโมชั่นอยู่สิ้นเดือนมีการ landom ครั้งนึง โดยข้อมูลของผู้ร่วมสนุกเก็บอยู่ในดาต้าเบสทั้งหมด

<%
Randomize

n_min = 1
n_max = 100

For n = 1 To 20
    n_rnd = Int((n_max - n_min + 1)*Rnd() + n_min )
    Response.Write n_rnd
    Response.Write "<br />"
Next
%>

<%

Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("aspSQL.mdb")
adoCon.Open strCon

Set objRset = Server.CreateObject("ADODB.RecordSet")

SQL = "SELECT * FROM [Customer] "

objRset.PageSize = 1
objRset.Open SQL, adoCon, 1, 3

nMin = 1
nMax = objRset.RecordCount 
nPage = Int((nMax - nMin + 1)*Rnd() + nMin)
objRset.AbSolutePage = nPage


Response.Write objRset("Name")

objRset.Close
Set objRset = Nothing

%>

<%
<%
string text="ABCDEFGHIJKLMNPQRSTUVWXYZ123456789";
string rand = random(str_shuffle(text), 0, 5);
%>
%>