The Potts Family Tree
<% Dim number Randomize ' Initialize random-number generator. number = Int((831 * Rnd) + 1) ' Generate random value between 1 and 765. set Conn = server.createobject("adodb.connection") Conn.Open "DSN=PottsNet" SQLstmt = "select * from quotes where id = "& number &"" set rs = conn.execute(SQLStmt) %> "<%= rs("quote") %>"
<%= rs("source") %>